请问这个动态复制时怎么显示橡皮筋效果，谢谢
 

请问这个动态复制时怎么显示橡皮筋效果，谢谢
www.dimcax.com
请问这个动态复制时怎么显示橡皮筋效果，谢谢
(defun c:tt()
(prompt "\n请选择复制旋转的对象：")

(if (and (setq ss (ssget)) (setq pt (getpoint "\n选择基点:")) (setq pt1 (getpoint "\n指定新基点:")))
(progn
(command "copy" ss "" pt pt1)
(command "rotate" (entlast) "" pt1 pause)
)
)
)
d
(and (setq ss (ssget)) (setq pt (getpoint "\n选择基点:")) (setq pt1 (getpoint pt "\n指定新基点:")))
橡皮筋与动态没有关系，动态grread可以做到，command也可以模仿
d
都是蜘蛛侠,厉害.
d
;;你要的是这样吧：
(defun c:tt ()
(prompt "\n请选择复制旋转的对象：")
(if (and (setq ss (ssget))
(setq pt (getpoint "\n选择基点:"))
)
(progn
(setq la (entlast))
(command "copy" ss "" pt pause)
(setq newss (ssadd))
(while (setq la (entnext la)) (ssadd la newss))
(command "rotate" newss "" "non" "@" pause)
)
)
)
嘿嘿！有空去我博客去玩玩哦！
飞哥，太用才啦，谢谢啦
d
;;你要的是这样吧：
；；；稍为改一下
(defun c:tt ()
(prompt "\n请选择复制旋转的对象：")
(if (and (setq ss (ssget))
(setq pt (getpoint "\n选择基点:"))
)
(progn
(setq la (entlast))
(princ "\n请指点目标点:")
(command "copy" ss "" pt pause)
(setq newss (ssadd))
(while (setq la (entnext la)) (ssadd la newss))
(princ "\n指定旋转角度或 [参照(r)]:
(command "rotate" newss "" "non" "@" pause)
)
)
)