Sua Lisp : Chon Them Đối Tượng Pl

[hung1608 8]

 Lisp này của mình chỉ chọn được đối tượng là Line, bạn nào sủa hộ để nó chọn thêm được đối tượng là PL giúp mình cái.

;; free lisp from cadviet.com

;;; this lisp was downloaded from http://www.cadviet.com/forum/topic/153713-xoay-o-n-th-ng/

(defun c:9 ( / cmd ss ename info dxf10 dxf11)

(setq cmd (getvar 'cmdecho))

(setvar 'cmdecho 0)

(prompt "\nChon (cac) LINE,POLYLINE muon xoay 180 do !")

(setq ss (ssget '((0 . "LINE"))))

(setq ss (ssget '((0 . "POLYLINE"))))

(if ss

(repeat (sslength ss)

(setq info (entget (setq ename (ssname ss 0)))

 dxf10 (cdr (assoc 10 info))

 dxf11 (cdr (assoc 11 info))

 info (subst (cons 10 dxf11) (assoc 10 info) info)

 info (subst (cons 11 dxf10) (assoc 11 info) info)

)

(entmod info)

(ssdel ename ss)

)

(alert "\n*** Khong chon duoc thang nao ca ^|^ ***")

)

(setvar 'cmdecho cmd)

(princ)

)

[hung1608 8]

http://www.cadviet.com/upfiles/5/11317_rotate__xoay_line_180_tai_tam__9__1.lsp

[duy782006 1.549]

Để chọn được cả line và pline thì thay

(setq ss (ssget '((0 . "LINE"))))
(setq ss (ssget '((0 . "POLYLINE"))))

thành

(setq ss (ssget '((0 . "*LINE"))))

Còn chạy được hay ko thì là chuyện khác nhé
 

[hung1608 8]

Để chọn được cả line và pline thì thay

(setq ss (ssget '((0 . "LINE"))))

(setq ss (ssget '((0 . "POLYLINE"))))

thành

(setq ss (ssget '((0 . "*LINE"))))

Còn chạy được hay ko thì là chuyện khác nhé

 

không chạy bạn ah, nếu được bạn sửa luôn giúp minh đi

[duy782006 1.549]

Người viết lisp trên không cho chọn pl là vì thế chứ ko phải họ ko biết chọn pl.

Nếu mục đích của bạn là làm cho linetype đúng chiều mong muốn thì bạn tìm lisp đảo chiều pl có trên cadviet mà dùng.

[hung1608 8]

Bạn nào sửa giúp mình lisp này có tác dụng vơi đường PL cái

[tien2005 242]

Bạn nào sửa giúp mình lisp này có tác dụng vơi đường PL cái

tại sao phải dùng lisp. Dùng lệnh PEDIT rồi chọn option Reverse để đổi chiều đường pline

[hung1608 8]

tại sao phải dùng lisp. Dùng lệnh PEDIT rồi chọn option Reverse để đổi chiều đường pline

Thanks bạn nhiều