Aller au contenu

Routine AD sur ZWcad 2020


mathieu

Messages recommandés

Bonjour all,

 

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)

 

;; auteur Patrick_35 avec tous mes remerciments

;; 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 !

Lien vers le commentaire
Partager sur d’autres sites

hello

 

je ne connais pas "AD"

 

peut etre que tu ne travailles pas a la meme echelle, l'un en metre, l'autre en centimetre,

 

pas non plus de chiffres apres la virgule, donc pas de difference entre

0.02 et 0.05 metres, ca reste tjrs 0 metres sans chiffres apres la virgule

 

 

 

a+

 

phil

Autodesk Architecture 2023 sous windows 11 64

24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal

Lien vers le commentaire
Partager sur d’autres sites

hello

 

si je ne me trompe, la fonction "AD" et "ADF" n'influence en rien l'attribut A1

 

donc normal que tout reste a 0 non?

 

a+

Phil

 

Ad ou Adf donne le même resultat (0) même avec des regen/rgt !

 

 

 

Je pense qu'a quelque chose qui n'est pas reconnu dans le bloc, au niveau des actions. Du coup il ne doit plus être dynamique.

Peux tu utiliser l'éditeur de bloc de Z ?

 

C'est à dire?

Lien vers le commentaire
Partager sur d’autres sites

je suis pas spécialiste de ZW pas plus que de l'autolisp, mais il me semble, que qq chose n'est pas implémenté de façon identique dans autocad et dans ZW.D'ou le lisp qui fonctionne sous toto et pas sous ZW car le regretté Patrick_35 triait la quintessence de l'autolisp.

Mais de là à dire quoi, il faudrait que qq1 de chez ZW se penche sur la question.

Mais si on fait un pas de coté, il y a d'autres solutions pour faire les cotes de niveaux. Je te renvoie à cette discussion ou LaLozère nous file un couple de bloc qui marche bien sous tocad... à tester sous ZW, il ne nécessite pas de lisp ça se met à jour avec regen.

(oups j'avais oublier le lien... merci pour le rappel du thread)

 

Lien vers le commentaire
Partager sur d’autres sites

Bonjour,

 

A priori, c'est le Bloc qui ne va pas pouvoir fonctionner tel quel, car il y a une formule dans l'attribut et ZWCAD ne l'interprète pas.

Du coup, je vais regarder avec un Dev de chez ZWSOFT pour vérifier s'il y a un moyen détourné d'obtenir le même résultat.

 

Patrick

ZW France est le distributeur de ZWCAD, ZW3D et ARCHLine en France, Belgique francophone, Suisse francophone, et Afrique francophone.

www.zwfrance.fr

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité