ReConcDes

[ReConcDes]

Ráng phát triển lên sap 12 lun di bạn! Sao lai bỏ roi anh em giua chừng vậy nè!!!!!! hichic

Bạn nên chuyển sang dung Etabs di. và tính toán các bảng tính trên excel là dẻ quản lý nhất, vì nếu sai chổ nào bạn có thể hiệu chỉnh ngay, rất tiện lợi.

Sap chỉ nên dùng tính cho kết cấu thép và hồ nước, nhưng cái chung chung thì rất OK, còn tính nhà cửa thì ta nên dùng Etabs thì hiệu quả hơn.

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

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)