edit chiều dài đoạn thẳng

[vantran 3]

mình sưu tầm trên diễn đàn lisp thay đổi chiều dài đoạn thẳng http://www.cadviet.com/upfiles/3/et.lsp

Mình sử dụng thấy rất tốt và mình muốn nhờ các bạn sửa lại một tí. trong lisp này khi mình nhập lệnh ET sau đó nhập độ dài cần thay đổi, bây giờ mình muốn sau khi nhập tên lệnh và độ dài đoạn thẳng thì mình sẽ nhập tiếp một gia số để cộng vào độ dài đó (vd: khi mình cần thay đổi các đoạn thẳng có độ dài là 5,10,15,20... tức là cấp số cộng ở đây là 5. thì mình chỉ cần nhập độ dài là 5 và gia số là 5 thì mình không phải lặp lại nhiều lần. Giống như trong lisp copy tăng dần). Mong mọi người giúp đỡ

[ketxu 3005]

Của bạn đây.Chúc bạn vui

(defun c:et (/ tol del i)
(grtext -1 "Free from Cadviet.com @ketxu")
(setq tol (getreal "\nSo bat dau:")
del (getreal "\nGia so :")
i -1)
(while (setq ent (car(entsel "\nChon duong thang:")))
(command "lengthen"  "t" (+ tol (* (setq i (1+ i)) del)) ent "")
)
(princ)
)