zoom trim lispim birinci işlemden sonra aktivesini yitiriyor problem nedir

Lisp'iniz kısa ise buraya yazabilir misiniz?

Konuya da Lisp'lerle ilgili bölüm altında devam edersek daha doğru olur.

[quote]
Lisp'iniz kısa ise buraya yazabilir misiniz?

Konuya da Lisp'lerle ilgili bölüm altında devam edersek daha doğru olur.

zoom trim lsp
(defun c:zt()
(setvar "cmdecho" 0)
(setq C1 (getpoint "\nFirst corner "))
(setq C2 (getcorner C1 "\nSecond corner "))
(command "zoom" "w" C1 C2)
(command "trim" "c" C1 C2 "")
(while (setq P (entsel "\nSelect object to trim "))
(command P)
)
(command "" "zoom" "p")
(setvar "cmdecho" 1)
(princ)
)

Lispiniz ile ilgili cevabımızı Lisp, C++ ve diğer özelleştirmlere başlığı altında bulabilirsiniz. Şu linki tıklayın -> [url="http://www.adeko.com.tr/forum/topic.asp?TOPIC_ID=125&FORUM_ID=7&CAT_ID=3&Topic_Title=Zoom+Trim+Lispi&Forum_Title=3+%2D+Lisp%2C+C%2B%2B%2C+DCL%2C+Men%FC+ve+Di%F0er+%D6zelle%FEtirmeler"]Zoom Trim Lispi[/url]