xin lisp xoay, dóng block theo trục X

[tạ hoàn 0]

Rất mong các cao thủ giúp em.

Hiện trạng: Block sau khi insert ra thì bị xoay nhẹ, đang dùng lệnh Align để xoay dóng, rất mất tg khi số lượng Block nhiều

Y/C: Để 1 cạnh thẳng bất kỳ của block căng theo trục X nhiều Block (bỏ qua block tròn) , nhanh hơn lệnh Align

dóng block.dwg

[7o7 79]

Sao không sửa block mà lại “xin” lisp, thời buổi này không ai “cho” không lisp đâu.

[tạ hoàn 0]

số lượng block nhiều bác ạ. bác có ko em mua

 

[Doan Nguyen Van 489]

 

Zalo mình: 097 637 9894

1 phút trước, tạ hoàn đã nói:

số lượng block nhiều bác ạ. bác có ko em mua

 

 

[DungNguyen685 40]

Vào lúc 19/4/2022 tại 15:34, tạ hoàn đã nói:

Rất mong các cao thủ giúp em.

Hiện trạng: Block sau khi insert ra thì bị xoay nhẹ, đang dùng lệnh Align để xoay dóng, rất mất tg khi số lượng Block nhiều

Y/C: Để 1 cạnh thẳng bất kỳ của block căng theo trục X nhiều Block (bỏ qua block tròn) , nhanh hơn lệnh Align

dóng block.dwg

Có 2 trường hợp:

1. Các đối tượng trong block nó đã lệch với phương X khi insert ra góc Block =0 thì nó vẫn lệch. => cái này phải có thêm điều kiện nhận cạnh nào để xoay.

2. Các đối tượng trong block không lệch phương X khi insert ra góc Block /=0 thì nó lệch => cái này thì đủ điều kiện. là đưa góc Block về =0 hoặc insert lại block đó với góc =0.

Test cái này cho TH số 2.

(defun c:zz  (/ ss i n ent blk_name  blk_point  )
(command ".undo" "BE") 
(setq ss (ssget (list (cons 0 "INSERT"))))
(setq i 0)
(setq n (sslength ss) )
(while (< i n)
(setq ent (ssname ss i))
(setq blk_name (cdr (assoc 2 (entget ent))))
(setq blk_point (cdr (assoc 10 (entget ent))))
(princ blk_point)
(command ".insert" blk_name blk_point 1 1 0)
(setq i (1+ i))
)
(command "ERASE" ss "")
(command ".undo" "E")
(princ)
)

 

[DungNguyen685 40]