Chèn block vào tâm các hình tròn

[thien316 0]

Xin nhờ diễn đàn triển khai giúp em một lisp để có thể chèn Blok hàng loạt tại tâm các đường tròn trong bản vẽ. Gửi file đính kèm mọi người xem giúp đỡ. Nội dung cụ thể:

Blok là block sẵn có mình tạo ra trên bản vẽ, các vòng tròn cũng có sẵn.

- Lệnh: ChenBL

- Chọn Block cần chèn

- Chọn điểm trên Block

- Chọn tất cả các đường tròn trên bản vẽ cần chèn block

- Enter để kết thúc

Xin nhờ diễn đàn giúp đỡ.

tam vong tron.dwg

[Doan Nguyen Van 491]

3 giờ trước, thien316 đã nói:

Xin nhờ diễn đàn triển khai giúp em một lisp để có thể chèn Blok hàng loạt tại tâm các đường tròn trong bản vẽ. Gửi file đính kèm mọi người xem giúp đỡ. Nội dung cụ thể:

Blok là block sẵn có mình tạo ra trên bản vẽ, các vòng tròn cũng có sẵn.

- Lệnh: ChenBL

- Chọn Block cần chèn

- Chọn điểm trên Block

- Chọn tất cả các đường tròn trên bản vẽ cần chèn block

- Enter để kết thúc

Xin nhờ diễn đàn giúp đỡ.

tam vong tron.dwg

Thấy bạn hỏi mấy lần, định viết giúp mà xem bản vẽ thấy: Block mẫu để 1 kiểu scale, block sau khi insert lại để kiểu scale khác, nên mình lại bó tay

[thien316 0]

Vào lúc 28/10/2019 tại 16:37, Doan Nguyen Van đã nói:

Thấy bạn hỏi mấy lần, định viết giúp mà xem bản vẽ thấy: Block mẫu để 1 kiểu scale, block sau khi insert lại để kiểu scale khác, nên mình lại bó tay

Xin chỉ giáo, cái block em chỉ scale to lên cho nhìn rõ thôi còn khi chèn mình quét chọn block nào mà mình muốn chèn.

[duy782006 1559]

Vào lúc 28/10/2019 tại 13:11, thien316 đã nói:

Xin nhờ diễn đàn triển khai giúp em một lisp để có thể chèn Blok hàng loạt tại tâm các đường tròn trong bản vẽ. Gửi file đính kèm mọi người xem giúp đỡ. Nội dung cụ thể:

Blok là block sẵn có mình tạo ra trên bản vẽ, các vòng tròn cũng có sẵn.

- Lệnh: ChenBL

- Chọn Block cần chèn

- Chọn điểm trên Block

- Chọn tất cả các đường tròn trên bản vẽ cần chèn block

- Enter để kết thúc

Xin nhờ diễn đàn giúp đỡ.

tam vong tron.dwg

Vì đề bài có bước chọn điểm gốc để copy nên tôi viết tổng quát là copy 1 nhóm đối tượng bất kỳ từ điểm chọn đến tâm các hình tròn. Còn như bạn thích dùng cho block thì trong bước chọn đối tượng chỉ cần chọn cái blocl đó là được. Tên lệnh vẫn giữ như yêu cầu.

(defun c:chenbl ()
(command "undo" "be")
(princ "\n Chon cac doi tuong muon copy")
(setq tapcopy (ssget))
(setq diemgoc (getpoint "\n Dim goc cua doi tuong"))
(princ "\n Chon cac CIRCLE dich")
(setq taptronchon (ssget (list (cons 0 "CIRCLE"))))
 (setq stt 0)
 (setq sotron (sslength taptronchon))
 (while (< stt sotron)
 (setq toadotam (cdr (assoc 10 (entget (ssname  taptronchon stt)))))
(command ".copy" tapcopy "" "_non" diemgoc "_non" toadotam "")
 (setq stt (+ stt 1))
 )
(command "undo" "end")
)

 

[thien316 0]

Vào lúc 2/11/2019 tại 15:27, duy782006 đã nói:

Vì đề bài có bước chọn điểm gốc để copy nên tôi viết tổng quát là copy 1 nhóm đối tượng bất kỳ từ điểm chọn đến tâm các hình tròn. Còn như bạn thích dùng cho block thì trong bước chọn đối tượng chỉ cần chọn cái blocl đó là được. Tên lệnh vẫn giữ như yêu cầu.

• chenbl.lsp
  
• [✎]
   

(defun c:chenbl ()
(command "undo" "be")
(princ "\n Chon cac doi tuong muon copy")
(setq tapcopy (ssget))
(setq diemgoc (getpoint "\n Dim goc cua doi tuong"))
(princ "\n Chon cac CIRCLE dich")
(setq taptronchon (ssget (list (cons 0 "CIRCLE"))))
 (setq stt 0)
 (setq sotron (sslength taptronchon))
 (while (< stt sotron)
 (setq toadotam (cdr (assoc 10 (entget (ssname  taptronchon stt)))))
(command ".copy" tapcopy "" "_non" diemgoc "_non" toadotam "")
 (setq stt (+ stt 1))
 )
(command "undo" "end")
)

 

Rất tuyệt em cảm ơn bác,nếu rảnh ở Hà Nội làm ly cafe anh xây dựng giao lưu!