Citation altimétrique

[Martina Webber]

Bonsoir à tous,
Je suis martin un designer technique et utiliser autocad 2017, j'ai regardé partout et je n'ai pas trouvé de solution à mon problème (il semble être une chose insignifiante mais je ne peux pas comprendre où mettre mes mains) je vous explique.
J'ai un lisp qui fixer un point de référence parvient à mettre à jour tous les blocs sélectionnés appelés "quota_altimetrica". Il n'y a pas de problèmes tant que je ne change pas la visibilité du bloc (pour afficher le symbole de l'eau souterraine), si j'essaie de mettre à jour le quota que vous ne sélectionnez pas, comme si le bloc était un autre.
la seule façon de résoudre la situation est de restaurer le bloc, de mettre à jour le quota, puis de sélectionner la visibilité souhaitée, mais ce n'est pas pratique.

Je ne sais pas où frapper ma tête, j'ai pensé que je ferais deux blocs et deux lis différents, mais ils ne se battent pas, i.e. J'ai chargé l'un ou l'autre, sans les utiliser en parallèle.

J'attache un fichier dwg avec le bloc en question et le lisp (malheureusement il est en allemand).Voir la pièce jointe Quote.dwg, Voir la pièce jointe Quota altimetrica.lspn.b.: l'attribut dans les deux visibilités est le même, la seule différence est la présence des lignes sous le quota.

 

[Betoniera]

Au revoir.
Si vous acceptez un programme sans blocages, j'offre le mien.
vous devez le stocker dans un fichier appelé quotav.lsp
Insérez-le dans un répertoire de recherche (p. ex. autocad 2017-support)
partie avec la commande (charger "quotav") essayer.
Si cela ne suffit pas, je vais vous dire un site où j'ai vu texitaliano64 qui a rendu disponible un programme similaire, je pense que c'est fait avec des blocs.
Bonjour.
http://bar-ingegneria.forumfree.it/?t=74986967#newpost;quotav.lsp calcule et insère les quotas verticaux
;autocad 2012 25-11-2011
(prompt "\n ")
(setq n (getvar "useri1")
(cond)
(= n 0); unité cm
(setq um "cm" déc.)
)
(= n 1); unité mm
(setq um "mm" déc 0)
)
(= n 2); unité m
(setq um "m" dec 2)
)
);

(si ht zéro (setq ht 2) ; taxe de hauteur de texte
(si qb zéro (setq qb 0) ; taxe contingentaire de base
(setq sc)
pb (point d'entrée "\npoint quota base : ")
a (château "\nimmetti valore quota base <" (rtos qb) "> :")
qb1 (objectif a)
a (strcat "\nimmetti altezza testo ht = mm <" (rtos ht) "> :")
ht1 (végétaux a)
)
(si (/= ht1 zéro) (setq ht ht1)); taxe de hauteur de texte
(si (/= qb1 zéro) (setq qb qb1)); impôt contingentaire de base
(setq dl (* 0,125 ht sc)
(commande "_setvar" "textsize" (* ht (getvar "dimscale") 0,1)
(commande "_couleur" 3)
(commande "_linetype" "_s" "continu")


(alors que)
(setq os (getvar "osmode")
(setq p (point d'entrée "\nimmetti punto quota : ")
(- (cadr p) (cadr pb))
Dh (+ dh qb)
a (rtos dh 2 déc)
)
(si (= dh 0) (setq a (strcat "%%p" a))
(si (> dh 0) (setq a (strcat "+" a)))
(setq p1 (- (car p) dl) (+))
p1 (liste (- (car p) dl) (+ (cadr p) dl))
p2 (liste (voiture p) (+ (cadr p) dl))
p3 (liste (+ (car p) dl) (+ (cadr p) dl))
)
(commande "_osmode" 0)
(commande "_pline" p3 p1 p3 ")
(commande "_solide" p2 p3 """)
(commande "_texte" "_c" (liste (car p) (+ (cadr p) (* 0,2 ht sc)))" 0 a)
(commande "_osmode" os)
);

 

[Martina Webber]

Bonjour.
Je vous remercie. [MENTION=22561]bétoniera[/MENTION] pour la droite, j'ai déjà essayé ce lisp et la commodité du bloc et du lisp en ma possession est que les chances peuvent être mises à niveau même à un moment ultérieur, et si je dois les déplacer ou changer le type de quota devrait être plus rapide, c'est pour quelques mois que je travaille là, mais le lisp ne l'a pas écrit et je ne peux pas le mettre main vu mon ignorance de la programmation, j'ai réussi à comprendre que ce qui affecte sur la sélection du bloc
(cible...mais je ne comprends pas comment insérer en plus du bloc "quota_altimetrica" la possibilité de choisir un deuxième élément (un bloc exemplaire pour l'eau souterraine), doit être
(Disons...quand je pourrais résoudre le problème je le mettrais à la disposition de tous (après avoir traduit les indications de l'allemand à l'italien, sont de l'adige élevé pour cela les indications sont en allemand)

 

[Tristan]

le problème, selon moi martin, est que lorsque vous changez la visibilité d'un bloc dynamique, autocad le "renommer" en *u<numero> (comme un bloc anonyme) et donc le lisp ne le voit plus</numero>

 

[Martina Webber]

Merci tristan, j'imaginais quelque chose comme ça arriverait, donc il serait mieux de créer deux blocs mais je ne peux pas comprendre comment écrire dans le lisp que de prendre "quote_altimetriche" vous pouvez également sélectionner "quote_altimetriche_falda". jusqu'à maintenant je comprends que cela doit être spécifié dans la chaîne
(listes setq (sget '(0 . " insert") (2 . " quota_altimetrica "))
(setq anzahl (listes de longueur)
(setq nr 0)
(alors que (< nr anzahl) (élément setq (ssname liste nr))Mais je ne comprends pas comment mettre
(sadd)et surtout où

si vous préférez que je traduise le lisp en italien, ce n'est pas un problème

 

[rpor66]

le problème provient de la commande ssget qui cherche le bloc avec le nom "quota_altimetrica", les blocs dynamiques sont représentés par le nom *u.. mais à travers la fonction (vlax-get-property (vlax-ename->vla-object n) 'nom effectif) vous pouvez avoir le nom original.
dans le fichier lisp j'ai ajouté la fonction qui gère cette opération, vous la trouvez au bas du fichier, ajouté le code qui crée la liste en filtrant tous les blocs avec le nom réel.

Bonjour.

 

[Martina Webber]

mitichissimo rpor66, vous avez résolu mon problème:finger::finger::4406:

Pensez-vous qu'il est utile de le mettre à la disposition de tout le monde sur une discussion séparée ou peut-il être d'accord comme ça ? Je l'aurais traduit en italien et avec l'ajout de la correction je pourrais rendre disponible le bloc complet avec le lisp en italien.

 

[rpor66]

la traduction serait appréciée.

 

[Martina Webber]

Voici, maintenant j'ai traduit le lisp avec les indications en italien (je m'excuse pour le désagrément).
joindre avec le lisp en italien également le fichier dwg qui contient le bloc complet (en plus de la couche il y a le type de quota pour l'existant selon la législation actuelle).

Merci encore énormément pour l'aide et j'espère que la prochaine fois je n'aurai pas à demander de l'aide mais je vais charger quelque chose d'utile pour tous..