Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
1 reply to this topic

#1 vantran

vantran

    biết vẽ circle

  • Members
  • PipPip
  • 34 Bài viết
Điểm đánh giá: 3 (bình thường)

Đã gửi 07 April 2011 - 02:01 PM

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.c...pfiles/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 đỡ
  • 0

#2 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 07 April 2011 - 02:49 PM

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)
)

  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC