Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
1 reply to this topic

#1 quocanhxd05

quocanhxd05

    biết vẽ ellipse

  • Members
  • PipPip
  • 57 Bài viết
Điểm đánh giá: 6 (bình thường)

Đã gửi 14 November 2008 - 11:19 PM

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.
  • 0
-------------------- Sống ở trên đời cần một chữ NHẪN --------------------

#2 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 15 November 2008 - 07:36 AM

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 +.
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D