Nhờ Sửa Lisp Insert Block

[pawuta 11]

Nhờ ae sửa giúp Lisp gọi block từ thư viện tạo sẵn, nhưng khi chèn thì vẫn giữ các tính chất của block (block att, block động...). Do lisp này khi chèn thì các block att, block động... trở thành block thường. Mong ae giúp đỡ!

(defun c:block01 ()
(setq insertpt1 (getpoint "\nPick Lower Left Corner of the cabinet: "))
(command "_insert" "G:\\Block\\block01.dwg" insertpt1 "" "" "")
(princ)
) 

[pphung183 428]

 

Nhờ ae sửa giúp Lisp gọi block từ thư viện tạo sẵn, nhưng khi chèn thì vẫn giữ các tính chất của block (block att, block động...). Do lisp này khi chèn thì các block att, block động... trở thành block thường. Mong ae giúp đỡ!

(defun c:block01 ()
(setq insertpt1 (getpoint "\nPick Lower Left Corner of the cabinet: "))
(command "_insert" "G:\\Block\\block01.dwg" insertpt1 "" "" "")
(princ)
) 

Khi bạn Insert một bản vê thì nó đã là 1Block roi . Nghĩa là bạn sẽ có Block trong Block.

Do đó chỉ cần thêm dòng này là OK :)

(defun c:block01 ()

.....

(Command "_.Explode" "l")

(princ)

)

[pawuta 11]

Khi bạn Insert một bản vê thì nó đã là 1Block roi . Nghĩa là bạn sẽ có Block trong Block.

Do đó chỉ cần thêm dòng này là OK :)

(defun c:block01 ()

.....

(Command "_.Explode" "l")

(princ)

)

Oh, thanks bạn nhiều nhé!

[pawuta 11]

Xin lỗi vì không yêu cầu từ lúc đầu là khi insert cái block ra mình muốn điểm chèn nằm ngay tâm (điểm point) của block đó luôn. Ai biết sửa dùm phát nha!

[namnhim 6]

bạn tạo Block trong thư viện có tâm Block ở tọa độ 0,0 thì khi gọi Block sẽ hiện đúng vị trí Pick điểm

[pawuta 11]

bạn tạo Block trong thư viện có tâm Block ở tọa độ 0,0 thì khi gọi Block sẽ hiện đúng vị trí Pick điểm

Mình đã thử dùng lệnh Wblock, và UCS để dời trục tọa độ đến tâm block mà khi insert no bị nhảy xa lắm

[Doan Van Ha 3.186]

Có lẽ bị osnap?

[pawuta 11]

Có lẽ bị osnap?

Vậy có cách nào để khắc phục không vậy bạn?

[Lisphnvn72015 1]

ấn F3 ấy

[pawuta 11]

vẫn không được, nguyên nhân chắc không phải do osnap rồi!

[quocmanh04tt 634]

Trước khi chèn, thử kiểm tra xem trên bản vẽ hiện hành đã tồn tại block có tên đó chưa, nếu có rồi thì thử purge hoặc rename block đó đi xem sao!

[namnhim 6]

bạn gửi cái block của bạn nên đây xem cái bệnh của nó thế nào!

[pawuta 11]

Đây bạn, sử dụng lisp trên là sẽ bị nhảy chỗ khác:

http://www.cadviet.com/upfiles/5/136880_caodo.dwg

[quocmanh04tt 634]

Do block. Đã chỉnh:

http://www.cadviet.com/upfiles/5/141736_ccd.dwg

[pawuta 11]

Do block. Đã chỉnh:

http://www.cadviet.com/upfiles/5/141736_ccd.dwg

Haha, hay thật, bạn chỉ mình cách làm với! mò hoài không ra! :))

[quocmanh04tt 634]

Cái điểm chèn của Block không phải là cái UCS như của bạn. Mà là cái điểm bạn có thể dùng qua lệnh BASE của Autocad.

[pawuta 11]

Cái điểm chèn của Block không phải là cái UCS như của bạn. Mà là cái điểm bạn có thể dùng qua lệnh BASE của Autocad.

Oke, thanks bạn nhiều nhé! Giờ mới biết được lệnh BASE, :)!

[pawuta 11]

Oke, thanks bạn nhiều nhé! Giờ mới biết được lệnh BASE, :)!

Cảm ơn mọi người đã quan tâm đến bài viết này!

[Tr.CongSon 42]

Xin lỗi vì không yêu cầu từ lúc đầu là khi insert cái block ra mình muốn điểm chèn nằm ngay tâm (điểm point) của block đó luôn. Ai biết sửa dùm phát nha!

 

Trong bản vẽ Block thư viện, Gõ lệnh INSBASE rồi chon điểm tâm như bạn nói là được mà ^^

[thienchip86 16]

các bác xem sửa lại giúp.dùng Lisp này nhưng khi chèn block vào nó lại nhảy lung tung không nằm ở vị trí pick là sao?

[thienchip86 16]

[thanhduan2407 272]

các bác xem sửa lại giúp.dùng Lisp này nhưng khi chèn block vào nó lại nhảy lung tung không nằm ở vị trí pick là sao?

Dùng lệnh BE để đưa Block về đúng vị trí chèn. Do Block của bạn

[lanvientkh 14]

Trước khi chèn, thử kiểm tra xem trên bản vẽ hiện hành đã tồn tại block có tên đó chưa, nếu có rồi thì thử purge hoặc rename block đó đi xem sao!

Hi bạn quocmanh04tt,

Mình muốn Lisp có thể tự tạo ra block khi có sự giao nhau giữa các đường Line và Pline như hình được ko, nhờ các bạn giúp mình với

 

https://drive.google...iew?usp=sharing

[quocmanh04tt 634]

Có thể làm được nhưng mất nhiều thời gian.