Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
quocanhxd05

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

Các bài được khuyến nghị

duy782006    1.373
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 +.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay


×