Lis Pour la taille avec surdimension

[Manifesti]

Bonjour tout le monde,
travailler pour une entreprise qui fabrique des revêtements de pierre. Parfois, lors de la préparation des listes de coupe, vous devez indiquer aux garçons de l'usine de couper les pièces 25, 50 ou 100 mm de plus. Je le fais habituellement manuellement par quota, auquel j'ajoute une surdimension en insérant la mesure ci-dessous. Par exemple, la pièce doit être 200 x 25 mais je veux qu'elle soit surdimensionnée à 300 x 25 parce qu'elle sera coupée dans la cour. lorsque les morceaux à couper sont peu nombreux, le processus est assez rapide et avec des erreurs limitées, mais lorsque vous parlez de morceaux, les erreurs augmentent. Je me demande s'il était possible de créer un lisp pour s'assurer que les cotes indiquent la mesure réelle ci-dessus et celle de la surdimension sous laquelle elle augmente ou diminue aux variations de la dimension réelle.

 

[rpor66]

(défun c:addltaglio(/ c sel n obj l fr)

(prompte)

(setq sel (ssget (cons 0 "dimension")))

(voir c 0)
(répéter (selle de longueur)
(sssname sel c)
(setq obj (vlax-ename->vla-objet n))
(setq l)
(setq addl (fnlistalunghezze l))
(vlax-put-property obj "textsuffix" (strcat " taglio" (rtos addl 2 0)))
(setq c (1+ c))
)
)

(défun fnlistalunghezze(l)
(cond)
(et (> l 0) (<= l 100)) 120)
(et (> 100) (<= 200)) 230)
(et (> l 200) (<= l 300)) 340)
(et (> l 300) (<= l 400) 450)
(et (> l 400) (<= l 500) 550)
(> l 500) (<= l 600) 660)
(t l)
)
)

aussi simple que possible.
Si vous ne pouvez pas utiliser le lisp, il est temps d'apprendre.
sélectionner les quotas via la commande add-in; sélection filtre les entités, si vous sélectionnez des lignes ou du texte ou autre, cela n'a pas d'importance.
le mot coupe est celui qui ajoute à la valeur du quota, le changer pour comme vous le croyez.
les plages de mesure que vous pouvez étendre à votre goût, j'espère qu'il est intuitif comment le faire; (t l) est la condition finale que si l est plus grand que le plus grand nombre, l retourne.
Au revoir.

 

[rpor66]

J'ai oublié, si vous voulez exécuter la partie supplémentaire, utilisez \xtaglio

 

[Manifesti]

Bonjour rpor66, merci beaucoup pour l'aide. Je ne peux pas les écrire comme toi. Je vais essayer de rechercher des textes et des tutoriels de temps permettant d'apprendre.