(Xin Lisp) Chuyển Đối Tượng Dim ,text , Về Layer Hiện Hành !

[qu0cba0hp91 3]

Em có lisp tạo layer như dưới . Anh nào có thể viết giúp em lisp khi mà đo dim các đường kick thước mà k cần phải gõ lệnh " ma " để quét các dim lại .

Ví dụ : Như đo dim = nét thấy chỉ cần gõ lệnh " dt " là các dim có thể tự động chuyển về dạng dim hiện hành được không ?

Em xin cảm ơn !!!

 

 

 

 

''''''''''''''''----------------------------LISP TAO LAYER THEO ISO--------------------------------------------------------------

(DEFUN C:TLA() 

(setvar "cmdecho" 0)

  (COMMAND "LAYER" "M" "CAT" "C" "1" "" "LW" "0.4" "" "")

  (COMMAND "LAYER" "M" "CAT1" "C" "2" "" "LW" "0.4" "" "")

  (COMMAND "LAYER" "M" "THAY" "C" "255" "" "LW" "0.25" "" "")

  (COMMAND "LAYER" "M" "THAY1" "C" "253" "" "LW" "0.18" "" "")

  (COMMAND "LAYER" "M" "MANH" "C" "251" "" "LW" "0.13" "" "")

  (COMMAND "LAYER" "M" "MANH1" "C" "250" "" "LW" "0.09" "" "")

  (COMMAND "LAYER" "M" "TRUC" "C" "59" "" "L" "CENTER" "" "LW" "0.09" "" "")

  (COMMAND "LAYER" "M" "KHUAT" "C" "254" "" "L" "HIDDEN" "" "LW" "0.15" "" "")

  (COMMAND "LAYER" "M" "TEXT" "C" "2" "" "LW" "0.25" "" "")

  (COMMAND "LAYER" "M" "CUA" "C" "19" "" "LW" "0.13" "" "")

  (COMMAND "LAYER" "M" "DIM" "C" "177" "" "LW" "0.25" "" "")

  (COMMAND "LAYER" "M" "HATCH" "C" "250" "" "LW" "0.05" "" "")

  (COMMAND "LAYER" "M" "NOITHAT" "C" "129" "" "LW" "0.13" "" "")

  (COMMAND "LAYER" "M" "THEPDAI" "C" "3" "" "LW" "0.3" "" "")

  (COMMAND "LAYER" "M" "THEPDOC" "C" "1" "" "LW" "0.4" "" "")

  (COMMAND "LAYER" "S" "THAY"  "")

  (setvar "cmdecho" 1))

[duoc0979518568 1]

anh làm được chưa anh. giờ em đang cần lisp kiểu như anh nói trên. anh làm được rùi thì chia sẻ cho em vs

 

[ttqhkd 2]

Nếu dùng speed cad thì có lệnh SD với SA là chuyển dim về layer dim và text.

 

[đỗ văn nhân 0]

Cho mail tôi chuyển cho