[yêu cầu] Tạo các list(text) nằm trong các pline khác nhau

[huunhantvxdts 195]

Nhờ mọi người giúp đỡ viết cho tôi 1 lisp tạo các list chứa các đối tượng text nằm trong các pline khác nhau (các text trong 1 pline tương ứng với 1 list chứa nội dung text) mục đích của việc này là tôi chuyển các text qua excell về 4 cột

file yêu cầu

http://www.cadviet.com/upfiles/3/66960_yeu_cau.dwg

[hochoaivandot 111]

Yêu cầu của bạn khó hiểu quá. Bạn diễn đạt như vậy thì không ai giúp bạn nổi đâu.

[huunhantvxdts 195]

Yêu cầu của bạn khó hiểu quá. Bạn diễn đạt như vậy thì không ai giúp bạn nổi đâu.

ý mình làm sao xác định được những text nào nằm trong 1 vùng kín như ý của Bác Phanthanhbinh ở diễn đàn #3

http://www.cadviet.com/forum/index.php?showtopic=67275

[hochoaivandot 111]

Bạn dùng hàm ssget để chọn các text trong pline kín (lấy tọa độ dỉnh pline trước rồi lồng vào ssget).

 

[duy782006 1559]

Nôm na như này

 
(setq plst (acet-geom-vertex-list dt))
(setq SS (ssget "wp" plst  (list (cons 0 "text"))))

Trong đó dt là cái pline (không chứa đoạn cong)

[huunhantvxdts 195]

Nôm na như này

(setq plst (acet-geom-vertex-list dt))
(setq SS (ssget "wp" plst  (list (cons 0 "text"))))

Trong đó dt là cái pline (không chứa đoạn cong)

Bạn có thể viết cho mình lệnh gán pline vào biến dt, chứ mình làm hoài mà không được

[duy782006 1559]

Ví dụ lệnh xtpl sẽ xóa toàn bộ đối tượng là text nằm trong pline.

 
(defun c:xtpl ()
(setq dt (car (entsel "\nChon curve:")))
(setq SS (ssget "wp" (acet-geom-vertex-list dt)  (list (cons 0 "text"))))
(command ".erase" ss "")
)

[huunhantvxdts 195]

Ví dụ lệnh xtpl sẽ xóa toàn bộ đối tượng là text nằm trong pline.

(defun c:xtpl ()
(setq dt (car (entsel "\nChon curve:")))
(setq SS (ssget "wp" (acet-geom-vertex-list dt)  (list (cons 0 "text"))))
(command ".erase" ss "")
)

Cám ơn bạn nhiều!!

giờ mới hiểu gán đối tượng vào biến chứ mình về mày mò cả buổi mà không ra được