lệnh trim và extend chọn môt lúc nhiều đối tượng

[PUCH 1]

hi everybody!

cho mình hỏi có lisp nào tương tự như lệnh trim và extend để dùng cho cad 2004 nhưng có thể chọn môt lúc nhiều đối tượng để trim hoặc extend ko. Vì máy nhà mình hơi íu nên chỉ chạy nỗi cad 2004 thiu. Thanks nhìu

[AGX10 1]

hi everybody!

cho mình hỏi có lisp nào tương tự như lệnh trim và extend để dùng cho cad 2004 nhưng có thể chọn môt lúc nhiều đối tượng để trim hoặc extend ko. Vì máy nhà mình hơi íu nên chỉ chạy nỗi cad 2004 thiu. Thanks nhìu

Thử cái này coi sao

;;; ----------------------- TRIM NHIEU DOI TUONG -------------------------
(Defun C:TR ()  (Setq CVAR (Getvar "CMDECHO"))  (Setvar "CMDECHO" 0)
 (Prompt "Select cutting edges :")  (Setq CUTEDG (Ssget))
 (Prompt "Select objects to trim :")  (Setq SS (SSget))
 (Setq LEN (SSlength SS))  (Setq I -1)
 (Setq SIDE (getpoint"pick side to trim"))  (Command "TRIM" CUTEDG "")
 (Repeat LEN
  (Setq I (1+ I))
  (Command (List(SSname SS I) SIDE))  )  (Command "")
 (Setvar "CMDECHO" CVAR)  (Princ "\nTrim complete.")  (Princ) )
;;;====================== EXTEND NHIEU DOI TUONG ===========================
(Defun C:EET ()
 (Setq CVAR (Getvar "CMDECHO"))  (Setvar "CMDECHO" 0)
 (Prompt "Chon doi tuong dich cua EXTEND :")  (Setq CUTEDG (Ssget))
 (Prompt "Chon doi tuong de Extend :")  (Setq SS (SSget))  (Setq LEN (SSlength SS))
 (Setq I -1)
 (Setq SIDE (getpoint"Chon phia de EXTEND"))  (Command "EXTEND" CUTEDG "")
 (Repeat LEN
  (Setq I (1+ I))
  (Command (List(SSname SS I) SIDE))  )  (Command "")
 (Setvar "CMDECHO" CVAR)  (Princ "Da Extend xong moi ban lam tiep")  (Princ) )

[PUCH 1]

Cám ơn bạn AGX10 nhìu ngen :cheers:B)

Có món này thì tiện vô cùng

Mình chỉ mới sài cad thui, rất mong dc bạn chỉ dẫn nhìu

Thank again!!!!!!!!!

[MyLoi 0]

Ở đây còn có cả lệnh điều chỉnh là kết hợp cả trim và extend nhiều đối tượng

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