NHỜ VIẾT LISP XÓA CÁC ĐỐI TƯỢNG ĐÈN LÊN 1 ĐƯỜNG

[hoành 1]

EM CÓ 1 VẤN ĐỀ NHƯ SAU: EM CÓ 1 CÁI RANH GIỚI(VÍ DỤ MÀU ĐỎ NHƯ HÌNH), MÀ CÓ CÁC ĐỐI TƯỢNG KHÁC NẰM ĐÈN LÊN TRÊN GIỜ EM MUỐN XÓA NHỮNG CÁI ĐÈ TRÊN RANH ĐÓ ĐI MÀ XÓA TAY LÂU QUÁ, RANH MÀU ĐỎ NÀY CÓ THỂ KÍN HOẶC CÓ THỂ LÀ 1 ĐƯỜNG POLYLINE

 NHỜ CÁC BÁC , CÁC ANH VIẾT HỘ CHO EM 1 CÁI LISP Ạ, EM CẢM ƠN

[Doan Nguyen Van 489]

31 phút trước, hoành đã nói:

EM CÓ 1 VẤN ĐỀ NHƯ SAU: EM CÓ 1 CÁI RANH GIỚI(VÍ DỤ MÀU ĐỎ NHƯ HÌNH), MÀ CÓ CÁC ĐỐI TƯỢNG KHÁC NẰM ĐÈN LÊN TRÊN GIỜ EM MUỐN XÓA NHỮNG CÁI ĐÈ TRÊN RANH ĐÓ ĐI MÀ XÓA TAY LÂU QUÁ, RANH MÀU ĐỎ NÀY CÓ THỂ KÍN HOẶC CÓ THỂ LÀ 1 ĐƯỜNG POLYLINE

 NHỜ CÁC BÁC , CÁC ANH VIẾT HỘ CHO EM 1 CÁI LISP Ạ, EM CẢM ƠN

 

Chắc là làm được, gửi bản vẽ lên đi bạn

[Danh Cong 422]

43 phút trước, hoành đã nói:

EM CÓ 1 VẤN ĐỀ NHƯ SAU: EM CÓ 1 CÁI RANH GIỚI(VÍ DỤ MÀU ĐỎ NHƯ HÌNH), MÀ CÓ CÁC ĐỐI TƯỢNG KHÁC NẰM ĐÈN LÊN TRÊN GIỜ EM MUỐN XÓA NHỮNG CÁI ĐÈ TRÊN RANH ĐÓ ĐI MÀ XÓA TAY LÂU QUÁ, RANH MÀU ĐỎ NÀY CÓ THỂ KÍN HOẶC CÓ THỂ LÀ 1 ĐƯỜNG POLYLINE

 NHỜ CÁC BÁC , CÁC ANH VIẾT HỘ CHO EM 1 CÁI LISP Ạ, EM CẢM ƠN

 

 

 

Em nên tìm hiểu 1 số công cụ lựa chọn đối tượng ( Lựa chọn xong rồi thao tác gì tùy em ).

+ 1. Gõ lệnh Select >> Gõ "ABC" >> Nhìn dòng Command line >>> Lựa chọn Fence . ( Đọc thêm Previous, Last, CP, WP.)

+ 2. Sử dụng Fatsel.

 

Ngoài ra thì dùng thêm 1 số công cụ trong Filter để lọc đối tượng nếu cần.

[hoành 1]

19 phút trước, Doan Nguyen Van đã nói:

Chắc là làm được, gửi bản vẽ lên đi bạn

bo tri inverter quang duc.dwg
BẢN VẼ ĐÂY BÁC, NHỜ BÁC LÀM GIÚP. EM CẢM ƠN.

[Doan Nguyen Van 489]

25 phút trước, hoành đã nói:

bo tri inverter quang duc.dwg
BẢN VẼ ĐÂY BÁC, NHỜ BÁC LÀM GIÚP. EM CẢM ƠN.

Đây nhé bạn: 

(defun c:te (/ ent ss)
  (while (setq ent (car (entsel "\nPick Ranh Gioi")))
    (acet-ss-zoom-extents (acet-list-to-ss (list ent)))
    (if (not (setq ss (ssget "_CP" (acet-geom-vertex-list ent))))
      (setq ss (ssget "_F" (acet-geom-vertex-list ent))))
    (command "ERASE" (ssdel ent ss ) "")
    (vlax-invoke (vlax-get-acad-object) 'zoomprevious)
    )
  )

 

[hoành 1]

1 giờ} trướ}c, Doan Nguyen Van đã nói:

Đây nhé bạn: 

• te.lsp
  
• [✎]
   

(defun c:te (/ ent ss)
  (while (setq ent (car (entsel "\nPick Ranh Gioi")))
    (acet-ss-zoom-extents (acet-list-to-ss (list ent)))
    (if (not (setq ss (ssget "_CP" (acet-geom-vertex-list ent))))
      (setq ss (ssget "_F" (acet-geom-vertex-list ent))))
    (command "ERASE" (ssdel ent ss ) "")
    (vlax-invoke (vlax-get-acad-object) 'zoomprevious)
    )
  )

 

EM CẢM ƠN BÁC NHIỀU Ạ, THANK

 

[hoành 1]

NẾU EM MUỐN THAY ĐỔI: XÓA NHỮNG CÁI HCN MÀ ĐÈN LÊN CÁI BLOCK THÌ ĐƯỢC KHÔNG BÁC???
TRONG BẢN VẼ EM GỬI CÓ  1 CÍA BLOCK LÀ ĐƯỜNG SÔNG SUỐI MÀU XANH ĐÓ BÁC, NHỮNG CÍA NÀO MÀ ĐÈ LÊN NÓ EM CŨNG MUỐN XÓA ĐI Ạ. 

 

[Duong Nhat Duy 302]

Cái này làm gì phải phức tạp vậy nhỉ, Express Tools của CAD có lệnh Fast Select (FS) mà.