Insérer la commande multiplier le périmètre par défaut

[Yebisu]

Bonjour,
J'ai déjà le dessus où il me donne avec une commande vba le périmètre et l'insère dans le dessin,
Je voudrais ajouter la valeur du périmètre * (0.16 et 0.9).
Je ne sais pas vraiment où aller.

Je vous remercie.

 

[rpor66]

Mais qui est ce top ? un bon, ou un programme qui se lève ?
vous êtes dans la section vba, vous aimeriez une aide pour changer une commande, soi-disant écrite en vba, mais ne pas la joindre, il n'y a pas de code, ne spécifiez pas le périmètre de ce que, lignes, polylines, vous cherchez, etc.
reformuler la question et vous expliquer mieux.
Au revoir.

 

[Yebisu]

Désolé d'avoir été très vague, c'est l'air chaud cassé :d
..top est un programme externe... évidemment j'ai essayé de chercher les vbas de la commande, mais ils sont bien cachés... ou je ne sais pas où les chercher... J'ai trouvé le nom de la vba, en regardant le bouton, j'ai essayé de faire une recherche dans le dossier autocad mais rien...

la commande calcule le périmètre de la figure entière comprend les cercles de lignes etc. J'ai besoin de multiplier cette valeur pour le calcul du temps de travail d'un moulin selon le matériau fraisé.


Je vous remercie.

 

[rpor66]

(défunc c:périmètre (/ pt1 périm)
(setq pt1 (point d'entrée "choisir le point interne: ")
(setq perim)
(si (/= durée nulle)
(commande "_texte" "_j" "_m" pt1 "" 0 (strcat "p" (rtos perim 2))
)
)

(défunc c:perimetro016 (/ pt1 perim)
(setq pt1 (point d'entrée "choisir le point interne: ")
(setq perim)
(si (/= durée nulle)
(commande "_text" "_j" "_m" pt1 "" 0 (strcat "p*0,16" (rtos (* perim 0.16)) 2))
)
)

(défunc c:perimetro09 (/ pt1 périm)
(setq pt1 (point d'entrée "choisir le point interne: ")
(setq perim)
(si (/= durée nulle)
(command "_text" "_j" "_m" pt1 "" 0 (strcat "p*0.9" (rtos (* perim 0.9) 2))
)
)

(défun fnpérimètre (pt1 / n1 n2 pt1)
(en dernier)
(commande "_poly" "_a" "_o" "_r" "" pt1 "")
(en dernier)
(si (pas (égal n2))
(progrès)
(commande "_area" "_o" "_last")
(commande "_erase" n ")
(getvar "périmètre")
)
(alerter "problème avec calcul de la figure interne")
)
)

est en lisp, dans la forme la plus simple possible, puis créer un fichier et coller le code.
Après le téléchargement, vous avez 3 commandes, périmètre, qui ajoute un texte avec sa valeur calculée en utilisant la commande bpoly, périmètre09, égal mais multiplie par 0,9 et périmètre016, même logique.
le texte a la hauteur à partir de la variable textize, angle 0, la valeur est formatée en format décimal, nombre de décimales à partir des unités de commande.

 

[Yebisu]

Merci, alors je pense pouvoir l'associer avec quelques boutons.)