Hyperlink in attributes

[Harrie]

Beste Mensen,

Is het mogelijk om aan attribuutwaarden hyperlinks te bevestigen?

Mijn dank.

[roy_043]

Het kan:

Hyperlink toevoegen:

Code Selecteer Uitklappen

(vla-add (vla-get-hyperlinks (vlax-ename->vla-object (car (nentsel)))) "www.cadsite.be" "Een fijne site")

Gegevens van hyperlink opvragen:

Code Selecteer Uitklappen

(vla-get-url (vla-item (vla-get-hyperlinks (vlax-ename->vla-object (car (nentsel)))) 0)) ; => "www.cadsite.be"

Code Selecteer Uitklappen

(vla-get-urldescription (vla-item (vla-get-hyperlinks (vlax-ename->vla-object (car (nentsel)))) 0)) ; => "Een fijne site"

In Bricscad is het zo dat deze links niet als tooltip zichtbaar worden. Dus of het erg nuttig is weet ik niet.

[HofCAD]

Beste Harrie,

Probeer uit de attachment AddHyp2Att.lsp voor een hyperlink attach aan een attrib,
en probeer RemHyp2Att.lsp voor verwijdering van een hyperlink attach aan een attrib.

Met vriendelijke groet, HofCAD CSI.

PS
Hyperlink toevoegen van roy_043:

Code Selecteer Uitklappen

(vla-add (vla-get-hyperlinks (vlax-ename->vla-object (car (nentsel)))) "www.cadsite.be" "Een fijne site")
Kan beter door:

Code Selecteer Uitklappen

(defun c:Add1Hyp (/ obj)
 (vl-load-com)
 (if (setq obj (vlax-ename->vla-object (car (nentsel))))
   (progn
     (vlax-for h (vla-get-hyperlinks obj)
(vla-delete h)
     )
     (vla-add (vla-get-hyperlinks obj)
      "www.cadsite.be"
      "Een fijne site"
     )
   )
 )
)
Het voordeel hier van is de mogelijkheid van een Update.

[Harrie]

Bedankt Roy_043 en HofCAD,

Dit was precies wat ik zocht.

[HofCAD]

Beste Harrie,

Het programma Hyp2Att.lsp is met een dialoogbox voor de tags.
Naast het commando HYP2ATT voor toevoegen en verwijderen,
kun je ook nog steeds de commando's ADDHYP en REMHYP gebruiken.

Met vriendelijke groet, HofCAD CSI.