Annonce
L'appel à participation est ouvert jusqu'au 19 janvier 2025!
#1 Mon 14 June 2010 16:34
- sambreynol
- Participant actif
- Lieu: Paris
- Date d'inscription: 13 Apr 2006
- Messages: 132
Afficher les sommets sur Autocad Map 3D version 2009
Bonjour,
je souhaiterai savoir si on peut mettre en évidence / afficher les sommets ou noeuds des polylignes ou polygones que l'on trace dnas Autocad Map 3D? Y-a-t-il une manip qui permet cela? mis à part l'accroche objets "ACCROBJ"?
Merci d'avance si vous avez des idées et/ou des solutions!
Hors ligne
#2 Tue 15 June 2010 08:50
- Patrice
- JeSuisCharlie
- Date d'inscription: 16 Sep 2005
- Messages: 4794
Re: Afficher les sommets sur Autocad Map 3D version 2009
Hello
Avec une bonne petite routine VLisp de notre cher Bred (Forum www.cadxp.com), no problemo !
Cette routine (NOD-PL.lsp) dessine tout simplement des points graphiques AutoCAD sur chaque vertex des polylignes selectionnees ... Commande au clavier : NOD-PL
Conseil : Changer le style des points avant pour mieux les voir ! Commande : DDPTYPE
GeoBye, Pat
PS: on lance cette routine en etant sur un calque special et apres on efface eventuellement les points !
Code:
;;; Met Nodal sur sommet polylignes - par Bred le 27/05/08 ;;; Routine : NOD-PL (vl-load-com) (defun c:nod-pl (/ I LST-COORD OB SEL Y R) (or (setq sel (ssget '((0 . "VERTEX,*POLYLINE")))) (setq sel (ssget "_X" '((0 . "VERTEX,*POLYLINE"))))) (repeat (setq i (sslength sel)) (setq ob (vlax-ename->vla-object (ssname sel (setq i (1- i)))) lst-coord (vlax-safearray->list (vlax-variant-value (vla-get-Coordinates ob)))) (setq y 0) (if (equal (vla-get-ObjectName ob) "AcDbPolyline") (setq r 2) (setq r 3)) (repeat (/ (length lst-coord) r) (vla-addpoint (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace (vla-get-ActiveDocument (vlax-get-acad-object))) (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))) ) (vlax-3d-point (list (nth y lst-coord) (nth (setq y (1+ y)) lst-coord) (if (equal (vla-get-ObjectName ob) "AcDbPolyline") 0.0 (nth (setq y (1+ y)) lst-coord))))) (setq y (1+ y)) ) ) (princ) )
(Autodesk Expert Elite Team)
Hors ligne
#3 Tue 15 June 2010 09:35
- youri_1er
- Juste Inscrit !
- Date d'inscription: 9 Jun 2010
- Messages: 3
Re: Afficher les sommets sur Autocad Map 3D version 2009
L'on peu également décomposer ses polylignes et faire une topologie de type réseau en créant les noeuds ce qui nous les crée à chaque sommet de ligne.
Et l'on peu choisir le type de point également, ou un bloc autocad.
Hors ligne
