Recuperer Hyperlink en lisp

[Derain]

Bonjour,

Je cherche a savoir si il est possible de recuperer en lisp l'hyperlink et le commentaire qui a ete place sur une entitee.

Merci d'avance..

[Tramber]

Si je peux me permettre, il faut aller là.

 

Pas de réponse sur ce type d'entités.

[didier]

bonjour Derain,

Bienvenue sur CadXp,

à priori, je n'ai pas cherché de solution Lisp,

en revanche, en VBA, il doit y avoir une possiblité.

si c'est important pour toi, je veux bien y passer un peu de temps.

mais peut être que tu préfères t'y coller.

tiens moi au courant.

amicalement

 

[Tramber]

J'ai trouvé cà :

 

$HYPERLINKBASE

1

Chemin de tous les hyperliens relatifs du dessin. Si la valeur est nulle, le chemin utilisé est celui du dessin

 

 

Dans le groupe HEADER

 

Mais, c'est vrai, je ne trouve rien dans les autres groupes.

 

L'aide ne donne des liens quasiment que vers le VBA.

Et il y a matière à travailler.

 

Allez mon Didier

:cool:

[Patrick_35]

J'ai bien trouvé ceci dans l'aide d'autocad, mais c'est encore à creuser

 

(vlax-map-collection (vla-get-ModelSpace acadDocument) 'vlax-dump-object) 
; IAcadLWPolyline: AutoCAD Lightweight Polyline Interface
; Property values:
;   Application (RO) = #
;   Area (RO) = 2.46556
;   Closed = 0
;   Color = 256
;   ConstantWidth = 0.0
;   Coordinate = ...Indexed contents not shown...
;   Coordinates = (8.49917 7.00155 11.2996 3.73137 14.8 5.74379 ... )
;   Database (RO) = #

;   Elevation = 0.0
;   Handle (RO) = "53"
;   HasExtensionDictionary (RO) = 0
;   Hyperlinks (RO) = #
;   Layer = "0"
;   Linetype = "BYLAYER"
;   LinetypeGeneration = 0
;   LinetypeScale = 1.0
;   Lineweight = -1
;   Normal = (0.0 0.0 1.0)
;   ObjectID (RO) = 28895576
;   ObjectName (RO) = "AcDbPolyline"
;   PlotStyleName = "ByLayer"
;   Thickness = 0.0
;   Visible = -1

T

 

@+

[Derain]

Je fais la question et la reponce.....

en fait il suffit de connaitre le non de l'applic qui gere les url (PE_URL) et de lire les param etendu de l'entitee.

 

(setq lastent (entget(car(entsel)) '("PE_URL")) )

 

On recupere alors tous les params standard de l'entitee plus les donnees etendues pour PE_URL il suffit alors de quelque car cdr pour isole les bonnes infos.