Lisp mirror đối tượng không cần pick điểm

[trongquan 3]

Ai có lisp hoặc viết được lisp có thể mirro một đối tượng bằng cách kích vào đối tượng sau đó chỉ vào một đường thẳng bất ki là nó tự mirro qua đường thẳng kho, đỡ phải chọn 2 điểm trên đưởng thẳng!Nhiều khi làm thế hơi "nông dân" :bigsmile:

[Nguyen Hoanh 4664]

Ai có lisp hoặc viết được lisp có thể mirro một đối tượng bằng cách kích vào đối tượng sau đó chỉ vào một đường thẳng bất ki là nó tự mirro qua đường thẳng kho, đỡ phải chọn 2 điểm trên đưởng thẳng!Nhiều khi làm thế hơi "nông dân" :bigsmile:

Lệnh tên là MBL (mirror by line):

(defun c:mbl()
 (setq ss (ssget)	
tt (entget (car (entsel "\nHay chon duong line: ")))
p1 (cdr (assoc 10 tt))
p2 (cdr (assoc 11 tt))
oldos (getvar "osmode")
 )
 (princ "\nXoa doi tuong cu(Y/N)?")
 (setvar "osmode" 0)
 (command ".mirror" ss "" p1 p2 pause)
 (setvar "osmode" oldos)
 (princ)
)