这是源代码
- (defun c:tt(/ ss pt old)
- (vl-load-com)
- (setq old (getvar "cmdecho"))
- (setq qqq (getvar "osmode"))
- (setvar "cmdecho" 0)
- (prompt "\nPlease select the object:")
- (setq ss (ssget))
- (setq pt (getpoint "\nPlease specify the symmetric basis points:") i -1)
- (setvar "osmode" 16385)
- (repeat (sslength ss)
- (setq ee (ssname ss (setq i (1+ i))))
- (command "Mirror" ee "" pt (polar pt (/ pi 2) 10) "N")
- (command "Mirror" ee (entlast) "" pt (polar pt pi 10) "N")
- )
- (setvar "cmdecho" old)
- (setvar "osmode" qqq)
- (princ)
- )
我想像这张照片一样改变！非常感谢！ | 
置顶卡
