Chào bác PhamThanhBinh và bạn Sony :
Bạn hãy thử đoạn Code này :
Đoạn code này kiểm tra điểm P có nằm trên P1P2 hay không. Vấn đề nội suy còn lại -> hy vọng Sony tự giải quyết được



@Bác PhamThanhBinh :
Chế độ ortho, osmode nếu không ở chế độ mặc định thì ta làm cho nó theo ý của mình. Có thể là trong quá trình viết Lisp, hoặc là trong quá trình chạy Lisp,...

Chào bác PhamThanhBinh và bạn Sony :
Bạn hãy thử đoạn Code này :
Đoạn code này kiểm tra điểm P có nằm trên P1P2 hay không. Vấn đề nội suy còn lại -> hy vọng Sony tự giải quyết được



@Bác PhamThanhBinh :
Chế độ ortho, osmode nếu không ở chế độ mặc định thì ta làm cho nó theo ý của mình. Có thể là trong quá trình viết Lisp, hoặc là trong quá trình chạy Lisp, user cũng có thể thiết lập nó. Code trên là 1 ví dụ
Chúc bác luôn vui, khoẻ nữa.

Hề hề hề,
Như vậy, theo yêu cầu củ bạn thì cái lisp mình viết cơ bản đả đạt được, chỉ khác một vài điểm như sau:
1/- Lisp đã hoàn toàn tự động lấy các đối tượng trong vùng chọn của bạn. bạn có thể thêm vào báo nhiêu đường chăng nữa lisp vẫn chỉ chạy một lần là ra cái bảng thống kê cho bạn, với đầy đủ các đối tượng dạng đường (gồm line, lwpolyline,...

Hề hề hề,
Như vậy, theo yêu cầu củ bạn thì cái lisp mình viết cơ bản đả đạt được, chỉ khác một vài điểm như sau:
1/- Lisp đã hoàn toàn tự động lấy các đối tượng trong vùng chọn của bạn. bạn có thể thêm vào báo nhiêu đường chăng nữa lisp vẫn chỉ chạy một lần là ra cái bảng thống kê cho bạn, với đầy đủ các đối tượng dạng đường (gồm line, lwpolyline, circle, polyline) còn các đường khác như arc ellipse, spline mình chưa viết nhưng co lẽ không quá khó khăn để làm với cấu trú tương tụ của lisp.
2/- Mình xuất riêng rẽ tọa độ x, y ,z, nay bạn muốn xuất cả cụm củng không thành vấn đề nhưng lưu ý bạn rằng không dùng cái dấu phẩy để ngăn cách các tọa độ x, y, z được vì như vậy khi xuất sang file csv nó sẽ hiểu là tách cột ra bạn ạ. Do vậy mình sẽ để một khoảng trắng ngăn cách giữa các tọa độ này, bạn có đồng ý không???
3/- Mình sẽ bổ sung phần xử lý các đường spline, arc và ellipse để bạn dùng thử.
Chịu khó chờ một chút nghen.

Của bạn đây:

Chúc bạn vui.
Chú ý mình vẫn để hai giá trị chỉ thuộc tính laỷe và màu của đối tượng trong líp. Nếu bạn không thích thì có thể thoải mái xóa nó đi.

Hề hề hề,
Lại làm trâu chậm rồi.
Mình không thạo lắm về vla-, vlax-, vl- , nên viết cái ni theo cái kiểu cắn dần. Nhờ các bác test thử cói nhé. Có lẽ nó sẽ chậm hơn của bác DoanVanHa, nhưng lỡ làm rối chả nhẽ vứt đi nên cứ post vào đây để ai thấy khoái thì dùng và cũng để nhờ bạn Cnatona30002000 test giùm. (mình không có các block thuộc tính như của bạn để test)
Hề...

Hề hề hề,
Lại làm trâu chậm rồi.
Mình không thạo lắm về vla-, vlax-, vl- , nên viết cái ni theo cái kiểu cắn dần. Nhờ các bác test thử cói nhé. Có lẽ nó sẽ chậm hơn của bác DoanVanHa, nhưng lỡ làm rối chả nhẽ vứt đi nên cứ post vào đây để ai thấy khoái thì dùng và cũng để nhờ bạn Cnatona30002000 test giùm. (mình không có các block thuộc tính như của bạn để test)
Hề hề hề,

Xin lỗi mọi người nếu như bài này làm phiền mọi người nhé.
Hề hề hề,

Hề hề hề,
Đúng như bác ThaiStreetz đã nói, bạn đang làm một việc giống như "mua đường" vậy. Tuy nhiên có thể bạn khoái vì nhiều lý do nên mình cho bạn vay ít xìn để thuận tiện cho cái việc mua này nhé...

Nhớ là bạn phải tạo trước một polyline kín cho cái vùng bạn lấy làm block nhé. Có vậy mới có cái cho bạn chạy lisp, bằng không nó dễ ngoẻo lắm. Hề hề...

Hề hề hề,
Đúng như bác ThaiStreetz đã nói, bạn đang làm một việc giống như "mua đường" vậy. Tuy nhiên có thể bạn khoái vì nhiều lý do nên mình cho bạn vay ít xìn để thuận tiện cho cái việc mua này nhé...

Nhớ là bạn phải tạo trước một polyline kín cho cái vùng bạn lấy làm block nhé. Có vậy mới có cái cho bạn chạy lisp, bằng không nó dễ ngoẻo lắm. Hề hề hề.....
Chúc bạn vui.

Chào bạn SVBA1608 và các bác trên diễn đàn,
Theo đề nghị của bạn, mình dựa vào cái lisp của bác Hoành và bổ sung chút chút để chạy thử. Kết quả là lisp chạy ve ve, cho ra được cả hai trường hợp bạn mong muốn, song rất tiếc là hai cái kết quả nó lại chả khớp nhau tẹo nào. Nguyên nhân thì mình vẫn chưa rõ nên mạo muội post nó lên đây, mong bác Hoành và các bác khác chỉ bảo...

Chào bạn SVBA1608 và các bác trên diễn đàn,
Theo đề nghị của bạn, mình dựa vào cái lisp của bác Hoành và bổ sung chút chút để chạy thử. Kết quả là lisp chạy ve ve, cho ra được cả hai trường hợp bạn mong muốn, song rất tiếc là hai cái kết quả nó lại chả khớp nhau tẹo nào. Nguyên nhân thì mình vẫn chưa rõ nên mạo muội post nó lên đây, mong bác Hoành và các bác khác chỉ bảo thêm.
Theo mình nghĩ có thể do cái Boundary nó loằng ngoằng sao đó nhưng mà không hiểu nên chưa thể khắc phục. Mình post lên đây cả file lisp và file kết quả chạy ra để mọi người ngâm cứu thử
Đây là file lisp:


Trong code này, phần lập bảng vẫn giũ nguyên như code bác Hoành đã viết nên chắc không có sai sót gì nhiều. Phần code viết thêm để ghi kết quả vào bản vẽ chắc có sai sót nhưng mình chưa hiểu rõ.

Đây là file CAD đã chạy thử từ bản vẽ do bạn SVBA1608 cung cấp
http://www.cadviet.com/upfiles/2/test1.dwg

Còn một vấn đề nữa là khi chạy lisp lần đầu với bản vẽ của bạn svba1608, không hiểu sao nó không cho kết quả ngay mà báo lỗi, tuy nhiên cứ để nguyên chạy lại lần thứ hai thì nó cho kết quả đẹp như mơ vậy. Điều này mình đã thử khá nhiều lần với ngay cả cái lisp gốc của bác Hoành cũng vậy. Nếu bác nào có kinh nghiệm và có thể giải thích được điều này thì thật là cám ơn lắm lắm.
Sau khi mình bổ sung cái phần ghi kết quả lên bản vẽ vào giữa lisp, trước khi chạy lập bảng thì nó lại chạy phe phé ngay từ phát đầu tiên các bác ạ. hề hề , cứ như có ma vậy.
Rất mong các bác có nhiều kinh nghiệm chỉ dẫn thêm.

Hề hề hề,
Không biết cái này đã vừa ý bạn chưa?? Cần nhắc lại để bạn nhớ là cái yêu cầu của bạn hoàn toàn khác với yêu cầu của bạn chủ thớt nên mình không thể cải chỉnh cái lisp của bác Ketxu cho bạn mà phải cấu trúc lại lisp mới. nếu bạn không post file dwg lên thì chắc hẳn sẽ có nhiều người lầm lẫn và sẽ phải làm đi làm lại mà vẫn không thể như ý bạn...

Hề hề hề,
Không biết cái này đã vừa ý bạn chưa?? Cần nhắc lại để bạn nhớ là cái yêu cầu của bạn hoàn toàn khác với yêu cầu của bạn chủ thớt nên mình không thể cải chỉnh cái lisp của bác Ketxu cho bạn mà phải cấu trúc lại lisp mới. nếu bạn không post file dwg lên thì chắc hẳn sẽ có nhiều người lầm lẫn và sẽ phải làm đi làm lại mà vẫn không thể như ý bạn được. bạn hãy rút kinh nghiệm cho các lần post bài sau nhé.
Chúc bạn vui.
Đây là code:

Hề hề hề.

Chào bác Bình.
Quả thật việc sắp xếp này đối với em là rất khó vì chưa làm trường hợp này bao giờ. Cái khó ở đây là sắp xếp lại trật tự của selection set. em đã làm riêng trong phần (defun sapxep () ....). Các bác nghiên cứu xem có thể giúp được cho em không. Em muốn sắp xếp đơn giản là từ trên xuống dưới từ trái qua phải thôi bác ạ.
code mới đây đã fix ý 2 và 3 của...

Chào bác Bình.
Quả thật việc sắp xếp này đối với em là rất khó vì chưa làm trường hợp này bao giờ. Cái khó ở đây là sắp xếp lại trật tự của selection set. em đã làm riêng trong phần (defun sapxep () ....). Các bác nghiên cứu xem có thể giúp được cho em không. Em muốn sắp xếp đơn giản là từ trên xuống dưới từ trái qua phải thôi bác ạ.
code mới đây đã fix ý 2 và 3 của Bác Tue_VN.

Cái dòng code để lưu giá trị cũ của em nó bị lỗi( Em tự copy từ lisp khác sang ), anh nào chỉnh giúp em với ạ !

;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=60254&pid=183638&st=0&#entry183638
(defun C:fe ( / ss d);
(cond ( (and (setq ss (ssget (list (cons 0 "*LINE,ARC,CIRCLE"))))

;(setq d (getreal "\nLineType Scale :"))

>>

Cái dòng code để lưu giá trị cũ của em nó bị lỗi( Em tự copy từ lisp khác sang ), anh nào chỉnh giúp em với ạ !

;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=60254&pid=183638&st=0&#entry183638
(defun C:fe ( / ss d);
(cond ( (and (setq ss (ssget (list (cons 0 "*LINE,ARC,CIRCLE"))))

;(setq d (getreal "\nLineType Scale :"))
(or *d* (setq *d* 1.0))
(setq d (getreal (strcat "\nLineType Scale <" (rtos *d* 2) ">: "))) ;;====> l&#224; c&#225;i d&#242;ng n&#224;y &#7841; !
(if (not d) (setq d *d*) (setq *d* d))
(vl-load-com)
(setq ss (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))))
)
(vlax-for obj ss (vla-put-LinetypeScale obj d))
)
((princ "\nError!"))
)
(princ)
)

Thêm 1 cách khác :

(defun C:fe ( / d)
(if
(and
(ssget (list (cons 0 "*LINE,ARC,CIRCLE")))
(or *d* (setq *d* 1.0))
(if (setq d (getreal (strcat "\nLineType Scale <" (rtos *d* 2) ">: ")))
(setq *d* d)
(setq d *d*) )
(vl-load-com)
)
(vlax-for obj (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)))
(vla-put-LinetypeScale obj...

Thêm 1 cách khác :

(defun C:fe ( / d)
(if
(and
(ssget (list (cons 0 "*LINE,ARC,CIRCLE")))
(or *d* (setq *d* 1.0))
(if (setq d (getreal (strcat "\nLineType Scale <" (rtos *d* 2) ">: ")))
(setq *d* d)
(setq d *d*) )
(vl-load-com)
)
(vlax-for obj (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)))
(vla-put-LinetypeScale obj d))
(princ "\nError!") )
(princ))