NIveaux

[vinz34]

Un petit essai pour m'initier au vlisp :

 

(defun c:niv (/ sslist c e)

 (setvar "pickstyle" 1)

 ;;;Test de l'unité de dessin dans la configuration du dessin
 (while (not c)
   (if	(and (< (setq c (getvar "insunits")) 7) (> c 3))
     (cond ((= c 4) (setq c 1))
    ((= c 5) (setq c 10))
    ((= c 6) (setq c 1000)))
     (progn
(setq c nil)
(initget 2 "me cm mm")
(setq unite (getkword "\nUnité du dessin : [ME/CM/MM]"))
(cond ((= unite "me") (setvar "insunits" 6))
      ((= unite "cm") (setvar "insunits" 5))
      ((= unite "mm") (setvar "insunits" 4))
))))  

 ;;;choix de l'échelle ou doit être insérée la coupe
 (if (> (atof (substr (getvar "acadver") 1 4)) 17)

   (if	(= (getvar "cannoscale") "1:1")
     (setq ech (/ (float(getint "échelle de la coupe : 1/")) c)) ; cannoscale = "1:1"
				
     (setq ech (/ 1 (getvar "cannoscalevalue"))) ; cannoscale /= "1:1"
   ) ; acadver > 16 (_if cannoscale)
   
   (setq ech (/ (float(getint "échelle de la coupe : 1/")) c)); acadver < 16
 ) ;_test acadver

(progn
 (setq	pt     (getpoint "Spécifiez le point d'insertion : ")
nivref (atof (getstring "Précisez son niveau : "))
doc (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object)))
 )
 
 (vla-addpoint doc (vlax-3d-point (list 0 nivref)))
 (vla-put-visible (vlax-ename->vla-object (entlast)) 0)
 (setq sslist (cons (entlast) sslist))
 
(vla-addtext
 doc
 (strcat "%<\\AcObjProp Object(%<\\_ObjId "
  (itoa (vla-get-objectid (vlax-ename->vla-object (entlast))))
  ">%).Coordinates \\f \"%lu2%pt2%pr2\">%" )
 (vlax-3d-point (list 0 0 0)) (* ech 2))  
 (vla-put-alignment (vlax-ename->vla-object (entlast)) 13)
 (vla-put-TextAlignmentPoint
   (vlax-ename->vla-object (entlast))
   (vlax-3D-Point (list (car pt) (+ (* ech 3) (cadr pt)))))
 (setq sslist (cons (entlast) sslist))

 (vla-addsolid
   doc
   (vlax-3d-point pt)
   (vlax-3d-point (polar pt (/ pi 3) (* ech 3)))
   (vlax-3d-point (polar pt (/ (* 2 pi) 3) (* ech 3)))
   (vlax-3d-point (polar pt (/ (* 2 pi) 3) (* ech 3)))
 )
 (setq sslist (cons (entlast) sslist))
 );progn  

 (defun makegroup (lst / dict ind)
   (setq dict (dictsearch (namedobjdict) "ACAD_GROUP")
  ind  "GRP1" )
   (while (member (cons 3 ind) dict)
     (setq ind (strcat "GRP" (itoa (1+ (atoi (substr ind 4)))))))
   (dictadd
     (cdr (assoc -1 dict))
     ind
     (entmakex
(append
  (list
    '(0 . "GROUP") '(100 . "AcDbGroup")	'(300 . "") '(70 . 1)
    '(71 . 1))
  (mapcar (function (lambda (x) (cons 340 x))) lst)
))))

 (makegroup sslist)

)

 

Le makegroup sort d'une routine de Gile. J'ai essayé en vl mais ce n'est pas évident.

 

 

[Edité le 7/4/2008 par vinz34]

[(gile)]

Salut,

 

C'est un bon début, mais plusieurs erreurs chez moi (acad 2007).

 

- (getvar "cannoscale") retourne nil. Il faudrait remplacer :

(> (atoi (substr (getvar "acadver") 1 2)) 16)

par

(> (atof (substr (getvar "acadver") 1 4)) 17)

 

- parenthèses fermantes et ouvrantes en trop dans l'expression :

((setq ech (/ (float(getint "échelle de la coupe : 1/")) c)))

il faut faire :

(setq ech (/ (float(getint "échelle de la coupe : 1/")) c))

 

- tous les (vla-* (entlast)) ne fonctionnent pas. Jusqu'à la version 2007 (au moins) les arguments pour les fonctions vla- doivent être du type vla_object donc :

(vla-* (vlax-ename->vla-object (entlast)))

 

PS : Est-ce que sur ta version (laquelle ?) les fonctions vla acceptent les enames. Si c'est le cas, ça nous promet de jolis problèmes d'incompatibilité...

 

[Edité le 2/4/2008 par (gile)]

[vinz34]

Merci (gile)pour ces premiers retours,

 

j'ai corrigé les (entlast) dans les commandes vla*.

 

J'ai travaillé sur ce code avec la version 2008, puis la 2009 depuis une semaine.