Get điểm center curve nằm trong block.

[hahavvvv22 0]

Em chào anh chị và mọi người, hiện tại em đang muốn get center của ssget chọn vào (mục đích dùng cho hình Oval). Em gặp lỗi khi ssget là một arc nằm trong block. A/c giúp e với ạ. Em cảm ơn nhiều ạ. 

 

(defun c:getcen ()

  (setq qq (ssget))

  (setq p3 (osnap (vlax-curve-getStartPoint (vlax-ename->vla-object (ssname qq 0))) "cen"))

  (princ p3)

)

 

[Duong Nhat Duy 302]

Để lấy dữ liệu đối tượng (Arc) trong block bạn dùng:

(setq sel (nentsel))
(setq arc (car sel))
(setq pt (cdr (assoc 10 (entget arc))))

Tuy nhiên pt lại là tọa độ trong Block Editor (OCS), muốn sang WCS thì phải cộng với tọa độ tâm Block chứa Arc đó.

Tọa độ tâm Block có thể lấy trong này (nếu ko muốn entsel thêm phát nữa)

(caddr sel)

Bạn có thể tham khảo trong 1 đống hàm loằng ngoằng ở bài này:

https://www.cadtutor.net/forum/topic/63984-getting-a-point-of-an-entity-inside-a-block-as-wcs-coordinates/

 

Mình cũng ko biết lisp nó có hàm trực tiếp chuyển từ OCS sang WCS ko nữa, nhờ các pro giải đáp

[hahavvvv22 0]

7 phút trước, Duong Nhat Duy đã nói:

Để lấy dữ liệu đối tượng (Arc) trong block bạn dùng:

(setq sel (nentsel))
(setq arc (car sel))
(setq pt (cdr (assoc 10 (entget arc))))

Tuy nhiên pt lại là tọa độ trong Block Editor, muốn sang WCS thì phải cộng với tọa độ tâm Block chứa Arc đó.

Tọa độ tâm Block có thể lấy trong này (nếu ko muốn entsel thêm phát nữa)

(caddr sel)

Bạn có thể tham khảo trong 1 đống hàm loằng ngoằng ở bài này:

https://www.cadtutor.net/forum/topic/63984-getting-a-point-of-an-entity-inside-a-block-as-wcs-coordinates/

vâng. em cảm ơn a nhiều ạ <3