Đến nội dung


Hình ảnh
- - - - -

Giúp sữa lại lisp đánh số thứ tự.


  • Please log in to reply
1 reply to this topic

#1 pmhoang

pmhoang

    Chưa sử dụng CAD

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

Đã gửi 18 November 2008 - 12:05 PM

Lisp nay trong thư viện của CadViet, tác dụng của nó là đánh số thứ tự tăng dần, từ 1 số bắt đầu.
Mình sử dụng nhiều thấy nó có khuyết điểm là mỗi lần chọn là phải nhập vào số bắt đầu. Mà mình thì làm rất là nhiều lần đánh số như vậy. Mình nghĩ nếu mà sữa lisp lại không còn phải nhập số nữa mà lấy giá trị số đầu tiên làm chuẩn và sau đó tăng các số còn lại là ok
Vì thường số thứ tự sẽ tăng nối tiếp nhau, cho nên không cần phải nhập số vào --> Làm chập quá trình vẽ.

Mong các bạn giúp với, Mình có gởi Lisp kèm theo. các bạn hoàn chỉnh nó nhé. Thanks
Sao mình không tìm ra chổ nào để gởi file kèm theo?

;****************************************
(princ "\nCADViet.com © 2007")
(princ "\ndchu - free lisp from www.cadviet.com")
;****************************************
(defun c:dchu
(/ tdt csht sdt index tt entdt)
(defun thay
(tt key moi / cu)
(setq cu (assoc key tt))
(subst (cons key moi) cu tt)
)
(setq tdt
(ssget '((0 . "TEXT")))
csht (getint "\nSo bat dau: ")
sdt (sslength tdt) index 0
)
(repeat sdt
(setq entdt
(ssname tdt index)
index (1+ index)
tt (entget entdt)
tt (thay tt 1 (itoa csht))
csht (1+ csht)
)
(entmod tt)
(entupd entdt)
)
(princ)
)
(princ)
  • 0

#2 nvc

nvc

    biết pan

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

Đã gửi 04 May 2009 - 02:37 AM

Lisp nay trong thư viện của CadViet, tác dụng của nó là đánh số thứ tự tăng dần, từ 1 số bắt đầu.
Mình sử dụng nhiều thấy nó có khuyết điểm là mỗi lần chọn là phải nhập vào số bắt đầu. Mà mình thì làm rất là nhiều lần đánh số như vậy. Mình nghĩ nếu mà sữa lisp lại không còn phải nhập số nữa mà lấy giá trị số đầu tiên làm chuẩn và sau đó tăng các số còn lại là ok
Vì thường số thứ tự sẽ tăng nối tiếp nhau, cho nên không cần phải nhập số vào --> Làm chập quá trình vẽ.

Mong các bạn giúp với, Mình có gởi Lisp kèm theo. các bạn hoàn chỉnh nó nhé. Thanks
Sao mình không tìm ra chổ nào để gởi file kèm theo?

;****************************************
(princ "\nCADViet.com © 2007")
(princ "\ndchu - free lisp from www.cadviet.com")
;****************************************
(defun c:dchu
(/ tdt csht sdt index tt entdt)
(defun thay
(tt key moi / cu)
(setq cu (assoc key tt))
(subst (cons key moi) cu tt)
)
(setq tdt
(ssget '((0 . "TEXT")))
csht (getint "\nSo bat dau: ")
sdt (sslength tdt) index 0
)
(repeat sdt
(setq entdt
(ssname tdt index)
index (1+ index)
tt (entget entdt)
tt (thay tt 1 (itoa csht))
csht (1+ csht)
)
(entmod tt)
(entupd entdt)
)
(princ)
)
(princ)



Mình có sẵn LISP này như bạn yêu cầu rồi, copy về xài thôi nhé.Lệnh là : vc
link : http://www.cadviet.c...NTELIGENT_1.lsp
  • 0