Depuis une semaine je test ZWCad, pour le moment j'en suis très satisfait, juste quelques points, entre autre la routine "ad" pour les niveau altimétrique automatique qui ne fonctionne pas.
J'ai bien renseigné dans les propriétés de dessins un NGF à 0.00 et chargé la routine ad.
Routine ad dans l'état atuel (fonctionne sur autocad 2010 full)
Citation
;; copie un bloc dynamique en conservant son origine et en le posant
;; sur son paramètre de position
;;
;; deux fonctions disponibles
;; AD qui fait un Règen à chaque boucle
;; ADF qui fait un seul régen à la fin (à utiliser sur un fichier lourd)
(defun c:ad(/ blo ele new pos pt1 tbl)
(vl-load-com)
(and (setq ele (entsel))
(setq ele (vlax-ename->vla-object (car ele)))
(setq pos (vlax-get ele 'insertionpoint))
(while (setq pt1 (getpoint "\nNouveau point : "))
(setq blo (vla-copy ele)
new (mapcar '- pt1 pos)
tbl (vlax-invoke ele 'getdynamicblockproperties)
)
(vlax-put (car tbl) 'value (car new))
(vlax-put (cadr tbl) 'value (cadr new))
(command "REGEN")
)
)
(princ)
)
(defun c:adf(/ blo ele new pos pt1 tbl)
(vl-load-com)
(and (setq ele (entsel))
(setq ele (vlax-ename->vla-object (car ele)))
(setq pos (vlax-get ele 'insertionpoint))
(while (setq pt1 (getpoint "\nNouveau point : "))
(setq blo (vla-copy ele)
new (mapcar '- pt1 pos)
tbl (vlax-invoke ele 'getdynamicblockproperties)
)
(vlax-put (car tbl) 'value (car new))
(vlax-put (cadr tbl) 'value (cadr new))
)
)
(command "REGEN")
(princ)
)
C'est une des routines que j'utilise le plus et qui est sûre en terme d'utilisation et de niveau automatique pour pas faire d'erreur.
En esperant une utilisation possible !