lấy toạ độ điểm chèn của block

[quocanhxd05 6]

Chào mọi người,

mình muốn hỏi câu lệnh dùng để lấy ra toạ độ điểm chèn của block.

ai biết xin chỉ dùm mình. xin cảm ơn trước.

[duy782006 1.549]

Chào mọi người,

mình muốn hỏi câu lệnh dùng để lấy ra toạ độ điểm chèn của block.

ai biết xin chỉ dùm mình. xin cảm ơn trước.

 

Đoạn sau hỏi bạn chọn 1 block nếu đối tượng bạn chọn không phải là block thì tiếp tục hỏi đến khi nào chọn đúng block thì lấy điểm chèn block là DIEMCHENMAU và vẽ tại đó 1 dấu + bằng vetter màu xanh (khi zoom pan cái này sẽ mất đi) bạn làm gì với DIEMCHENMAU cũng được hết.

 

(setq donvi (/ (getvar "viewsize") 40))

(setq ddd (entsel "\nChon Block mau"))

(while

(or

(null ddd)

(/= "INSERT" (cdr (assoc 0 (entget (car ddd)))))

)

(princ "\nDoi tuong khong phai la Block! Chon lai")

(setq ddd (entsel "\nChon Block mau"))

)

(setq DT (car ddd))

(setq DTM (entget DT))

(setq DIEMCHENMAU (cdr (assoc 10 DTM)))

(setq diemvt1 (polar DIEMCHENMAU pi donvi))

(setq diemvt2 (polar DIEMCHENMAU (* 2 pi) donvi))

(setq diemvt3 (polar DIEMCHENMAU (/ pi 2) donvi))

(setq diemvt4 (polar DIEMCHENMAU (- 0 (/ pi 2)) donvi))

(grdraw diemvt1 diemvt2 3)

(grdraw diemvt3 diemvt4 3)

 

Phần màu cam là để lấy tọa độ.

Phần màu xanh là để vẽ dấu +.