AUTOCAD objektum tulajdonság lekérdezés

AUTOCAD objektum tulajdonság lekérdezés
2013-08-08T14:42:04+02:00
2013-08-09T08:46:49+02:00
2022-11-29T13:35:40+01:00
vona62
Sziasztok!
AUTOCAD-ben egy objektum tulajdonság paneljéről szeretném megkapni a Hiperhivatkozás elérési útvonalát.

Vonalvastagság = tmpobj.LineWeight
Hiperhivatkozás = ???
Mutasd a teljes hozzászólást!
A lényeg a lényeg:
Egy objektumhoz több hiperhitkozás csatolható, a hipehivatkozások száma: obj.Hyperlinks.Count
Pl. az első hivatkozás URL-je: obj.Hyperlinks(0).URL
Mutasd a teljes hozzászólást!

  • Ha VBA-ról van szó, íme a Súgópélda, ebből a lényeg megérthető:
    Sub Example_HyperLinks() ' This example creates a Circle object in model space and ' adds a new Hyperlink to its Hyperlink collection Dim Hyperlinks As AcadHyperlinks Dim Hyperlink As AcadHyperlink Dim circleObj As AcadCircle Dim centerPoint(0 To 2) As Double Dim radius As Double Dim HLList As String ' Define the Circle object centerPoint(0) = 0: centerPoint(1) = 0: centerPoint(2) = 0 radius = 5# ' Create the Circle object in model space Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius) ThisDrawing.Application.ZoomAll ' Get reference to the Circle's Hyperlinks collection Set Hyperlinks = circleObj.Hyperlinks ' Add a new Hyperlink complete with all properties Set Hyperlink = Hyperlinks.Add("AutoDesk") Hyperlink.URL = "www.autodesk.com" Hyperlink.URLDescription = "Autodesk Main Site" Hyperlink.URLNamedLocation = "MY_LOCATION" ' Read and display a list of existing Hyperlinks and ' their properties for this object For Each Hyperlink In Hyperlinks HLList = HLList & "____________________________________" & vbCrLf ' Separator HLList = HLList & "URL: " & Hyperlink.URL & vbCrLf HLList = HLList & "URL Description: " & Hyperlink.URLDescription & vbCrLf HLList = HLList & "URL Named Location: " & Hyperlink.URLNamedLocation & vbCrLf Next MsgBox "The circle has " & Hyperlinks.count & " Hyperlink: " & vbCrLf & HLList End Sub
    Mutasd a teljes hozzászólást!
  • A lényeg a lényeg:
    Egy objektumhoz több hiperhitkozás csatolható, a hipehivatkozások száma: obj.Hyperlinks.Count
    Pl. az első hivatkozás URL-je: obj.Hyperlinks(0).URL
    Mutasd a teljes hozzászólást!
  • Remek! Már kezdem érteni! Nekem azonban fordítva kellene: a meglévő objektumomhoz rendelt "Hyperlink.URLDescription"-t szeretném megkapni pl. egy változóban.
    Mutasd a teljes hozzászólást!
  • Sikerült:
    Dim Hyperlinks As AcadHyperlinks Dim Adat as String . Set Hyperlinks = tmpobj.Hyperlinks . Adat = tmpobj.Hyperlinks(0).URL
    Köszönöm a segítséget!
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd