Jump to content

Routine AD sur ZWcad 2020


Recommended Posts

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 !

Link to post
Share on other 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 2019 sous windows 10 64

24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal

Link to post
Share on other 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

Autodesk Architecture 2019 sous windows 10 64

24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal

Link to post
Share on other 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?

Link to post
Share on other 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)

 

"Rien n’est impossible à l’homme qui n’a pas à le faire lui-même." (Marcel Achard)

 

quelques trucs sur autocad

Link to post
Share on other 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

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...