cuongtk2

lỗi bắt điểm đấy, zoom lên có thể osmode sẽ không bắt trúng nên có thể không bị

Dùng linetype đi em

https://spiderinnet1.typepad.com/blog/2014/10/autocad-net-vbnet-transaction-and-performance.html

Nguyên solution đây nhé AutoCAD20211.rar

Viết theo kiểu đề phòng thiếu hả?

@gia_bachDùng thừa Transaction vòng ngoài rồi

Viết thì dễ nhưng bạn diễn đạt không rõ ràng. Mục tiêu của bạn bà dim 2 đoạn thẳng tạo mới hay có sẵn.

Trước mình cũng viết 1 tool hộ thằng em về khối lượng nút giao bằng net, chỉ xử lý phần tạo boundary cho các thành phần phía trong ranh vỉa hè.

Để làm gì thế

Mình sửa lại cho bạn đây nhé, trước vì không test kỹ nên bị như thế, vì biến toàn cục. (defun c:test (/ ENT EXPORTFILE FILE FILE1 P1 PATH SS) (setq ss (ACET-SS-TO-LIST (ssget "x" '((0 . "*TEXT"))))) (setq path (acet-ui-pickdir "Select directory" (getvar "dwgprefix"))) (foreach n ss (progn (setq ent (entget n) p1 (acet-dxf 10 ent) file (acet-dxf 1 ent) ) (vl-cmdf "-boundary" p1 "") (setq exportFile (strcat path "\\" (VL-STRING-TRIM " " file))) (command "_.dxfout" exportFile "_entities" (entlast) "" "_version" "2007" 6 ) (entdel (entlast)) ) ) )

in ghep 2 mặt.dwg

Xuất ra các chi tiết thành dxf file bằng cách tạo boundary tại mỗi text position (defun c:test () (setq ss (ACET-SS-TO-LIST (ssget "x" '((0 . "TEXT"))))) (foreach n ss (progn (setq ent (entget n) p1 (acet-dxf 10 ent) file (acet-dxf 1 ent) ) (vl-cmdf "-boundary" p1 "") (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) (setq file1 (VL-STRING-TRIM " " file)) (setq path (acet-ui-pickdir "Select directory" (getvar "dwgprefix"))) (setq exportFile (strcat path "\\" file1)) ;; Adjust path to match your system ;; Create an empty selection set (setq sset (vla-Add (vla-get-SelectionSets doc) "TEST")) (vla-Select sset acSelectionSetLast) ;; Export the current drawing to the file specified above. (vla-Export doc exportFile "DXF" sset) (vla-Delete sset) ) ) )

Cái khó nhất là nesting tôn thì có phần mềm chuyên dụng rồi, chỉ cần là làm đầu vào cho phần mềm đó thôi. Như vậy với từng hình rời rạc hoàn toàn có thể vẽ thành riêng biệt bản vẽ trùng tên với text. Lúc đó mới có thể xét đến lỗ cắt khoét

(- CNT 1) hình như đổi sang string mới được

mô tả cách thực hiện: - đặt 1 điểm p1 làm nơi xác định giá trị X, lấy giá trị p1.X. - dùng 2 điểm p2, p3 để xác định 1 crossing window cho selection - tạo một Extens3d rồi add các điểm p2 p3 vào. Extens này dùng để xác định point_inside cho các vertext của curve - dùng vòng for để duyệt vertex của cuvre, nếu inside p2 p3 thì thay đổi giá trị X cho point đó (với Polyline) - tương tự startpoint, entpoint với Line myCommands.cs.txt