Nhờ sửa lisp chèn block trong một file khác vào bản vẽ

[thietke08 2]

Hiện mình đang tạo lisp để chèn một block trong một bản vẽ có chứa các block thư viện bằng lệnh -INSERTCONTENT tuy nhiên nó báo lỗi không thực hiện được như nhập lệnh trực tiếp trong CAD.

Nhờ mọi người biết cách sửa giúp và chèn thêm điểm chèn bằng cách pick điểm trên bản vẽ. Xin cảm ơn.

 

Lisp hiện tại là 

;INSERT BLOCK LAYER
(defun c:IB	()	(command "-INSERTCONTENT"	""U:\04 CAD\05 DIGITAL LIBRARY\K_LSTEAM-TEMPLATE 2022.dwg"" "K-LA-LAYER-DIM-TABLE-LEADER"	"0,0" "0" "1"))

 

[huunhantvxdts 195]

4 giờ trước, thietke08 đã nói:

Hiện mình đang tạo lisp để chèn một block trong một bản vẽ có chứa các block thư viện bằng lệnh -INSERTCONTENT tuy nhiên nó báo lỗi không thực hiện được như nhập lệnh trực tiếp trong CAD.

Nhờ mọi người biết cách sửa giúp và chèn thêm điểm chèn bằng cách pick điểm trên bản vẽ. Xin cảm ơn.

 

Lisp hiện tại là 

• ib.lsp
  
• [✎]
   

;INSERT BLOCK LAYER
(defun c:IB	()	(command "-INSERTCONTENT"""U:\04 CAD\05 DIGITAL LIBRARY\K_LSTEAM-TEMPLATE "" "K-LA-LAYER-DIM-TABLE-LEADER""0,0" "0" "1"))

 

Lệnh "-INSERTCONTENT" có từ cad bao nhiêu nhỉ sao cad mình không có 

mình thì dùng lệnh insert như sau:

(command "INSERT" (strcat "C:" "\\TND\\dwg\\TND_huongchay1") (list 0 0) 1 1 0)

 

[thietke08 2]

Vào lúc 15/4/2022 tại 22:16, huunhantvxdts đã nói:

Lệnh "-INSERTCONTENT" có từ cad bao nhiêu nhỉ sao cad mình không có 

mình thì dùng lệnh insert như sau:

(command "INSERT" (strcat "C:" "\\TND\\dwg\\TND_huongchay1") (list 0 0) 1 1 0)

 

Thanks bạn. Mình sử dụng cad 2021 nó có lệnh này, nó chèn block có  trong bản vẽ nguồn luôn, không chèn cả bản vẽ.

[duy782006 1.533]

Thấy đường dẩn có khoảng trống. Thường thì lisp không chịu đường dẩn có khoảng trắng và tiếng việt có dấu.

[cualuoi 0]

giờ còn cty nào dùng cad 7 nữa không m.n?

[duy782006 1.533]

Có. Mình đang dùng cad 2007 đây.