Routine AD sur ZWcad 2020

[mathieu 1]

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 !

[arnaudalp 2]

Quel est ton problème ? Déjà, tes commandes ad et adf sont-elles disponibles lorsque tu les tapes?

[mathieu 1]

Oui, ça me propose bien la ligne de commande suivante :

"Commande : AD

 

Choix d'objet :

Nouveau point : REGEN

Commande :

Nouveau point : *Annuler*

Erreur : Fonction d'annulation"

 

Mais le niveau 0 de base est conservé pour le point suivant :

[arnaudalp 2]

Peux tu envoyer ton bloc ?

[PHILPHIL 4]

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

[mathieu 1]

ci-joint le bloc, et comme dis cela est fonctionnel sur autocad.

Je vous insere aussi la routine.

 

Le forum refusant l'envoie du fichier dwg (et même en zip) ci-dessous un lien wetransfer :

 

https://we.tl/t-9PlEn9UtPA

[PHILPHIL 4]

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

[arnaudalp 2]

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 ?

[mathieu 1]

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?

[x_all 43]

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)

 

[La Lozère 29]

Merci x_all,

Voici le lien : http://cadxp.com/topic/40288-altitude-de-point-sur-pt/

[arnaudalp 2]

Si tu fais un clique droit sur le bloc, et que tu choisis l'option d’édition de bloc, as tu l'éditeur de bloc qui s'ouvre ?

[ZWCAD-France 2]

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

[mathieu 1]

Super, tiens moi au courant.

Je te remercie.