Lisp Aşırı büyüklükte

[Manifesti]

Herkese merhaba
Taş kaplamaları yapan bir şirket için çalışın. Bazen kesme listelerini hazırlarken, fabrikadaki çocuklara 25, 50 veya 100 mm daha büyük kesmek için işaret etmelisiniz. Genellikle kota tarafından manuel olarak yapıyorum, aşağıdaki ölçüye eklenerek. Örneğin parça 200 x 25 olmalı ama bunu 300 x 25'e kadar uzatacağım çünkü bahçede kesilecek. Kesme parçaları az olduğu zaman süreç yeterince hızlı ve sınırlı hatalarla ancak daha fazla parça hata artışı konuşurken. Bir lisp oluşturmak mümkün olup olmadığını merak ediyorum ki, oran yukarıdaki gerçek ölçüye işaret eder ve bu, gerçek boyutunun varyasyonlarına veya azalttığı aşırı büyüklüktedir.

 

[rpor66]

(defun c:addltaglio (/ c sel n obj l fr)

(prompt)

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

(setq c 0)
(s)
(sssname sel c)
(setq obj (vlax-ename->vla-object n)
(setq l (vlax-get-property obj 'measurement))
(setq addl (fnlistalunghezze l)
(vlax-put-property obj "textsuffix" (strcat " taglio" (rtos addl 2 0)))
(setq c (1+ c))
)
)

(defun fnlistalunghezze (l)
(cond)
(ve (> l 0) (<= l 100) 120)
(ve (> l 100) (<= l 200) 230)
(ve (> l 200) (<= l 300) 340)
(ve (> l 300) (<= l 400) 450)
(ve (> l 400) (<= l 500) 550)
(> l 500) (<= l 600) 660)
(t l)
)
)

Mümkün olduğu kadar basit.
Öğrenmek için lisp kullanmıyorsanız.
Ekle-in komutunu kullanarak kotaları seçin; seçim filtreleri varlıklar, çizgiler veya metin veya diğeri seçerseniz, önemli değildir.
Kesme kelimesi kotanın değerine ekleyen kişidir, inandığınız gibi değiştirin.
Onları zevkinize genişletebileceğiniz ölçüm aralıkları, umarım bunu nasıl yapacağını sezgisel eder; (t l) en büyük sayıdan daha büyükse, l geri döner.
Yemin ederim

 

[rpor66]

unuttum, ek kısmı çalıştırmak istiyorsanız, \xtaglio kullanın

 

[Manifesti]

Merhaba rpor66, yardım için çok teşekkür ederim. Onları senin gibi yazamam. Öğrenmeye izin veren metinler ve zaman öğreticileri aramaya çalışacağım.