Initiation Vlisp

[lovecraft]

Bonjour voila, je lance un p'tit sujet sur le vlisp.N'ayant pas beaucoup de connaissance dans ce domaine j'appelle à ,l'aide ;).

 

 (defun c:test ()
(vl-load-com)
(setq ssobj(car(entsel"\nSélectionner une ligne: ")))
(setq ssobj (vlax-ename->vla-object ssobj))
(if (= (vlax-get-property ssobj 'objectname)"AcDbLine") 
(vlax-dump-object ssobj T) 
(alert "Ce n'est pas une ligne")
)
)

 

voila ci dessus un p'tit bout de code pour connaitre les propriétées d'une ligne.

Maintenant j'aimerais obtenir les coordonnées du point de début et de fin.

J'ai qu'il existait startpoint et endpoint (je sais faire en autolisp mais pas en vlisp)

 

j'ai essayé de faire:

 

(vla-get-startpoint)

(vla-get-endpoint)

 

mais cela ne me retourne pas une liste

 

par contre si je fais (vla-get-layer) j'obtiens bien le nom du calque.

 

Merci de votre aide

 

@plus

[Bred]

Salut,

je te laisse chercher, mais je te donne une piste :

pour voir toutes les valeurs (et las méthodes) applicable a un vla-object :

(setq vla-sel (vlax-ename->vla-object (car (entsel "\n Choix de l'objet :"))))
(vlax-dump-object vla-sel t)

 

[(gile)]

Salut,

 

Certaines propriétés retournées par les fonctions vla- ou vlax-get-property (notament les listes) sont contenues dans un "variant" qui lui même peut contenir un "safearray"

 

Pour obtenir une liste, il faut faire :

 

(vlax-safearray->list (vlax-variant-value (vla-get-StartPoint ssobj)))

ou

(vlax-safearray->list (vlax-variant-value (vlax-get-property ssobj 'StartPoint)))

 

 

Mais une astuce consiste à utiliser l'ancienne fonction vlax-get (tout court) :

 

(vlax-get ssobj 'StartPoint)

 

vois ce sujet

[lovecraft]

Merci de ton aide Gile, je vais bientot poster mon premier Vlisp qui consiste a recupere les coordonnées des lignes polyligne 2D et 3D " vous me direz que le sujet a deja été traité mais j'ai fait un lien afin sous excel avec l'adaptation de getexcel.lisp de gile.

 

@plus