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

caoyin

(and (setq ss (ssget)) (setq pt (getpoint "\n选择基点:")) (setq pt1 (getpoint pt "\n指定新基点:")))

橡皮筋与动态没有关系，动态grread可以做到，command也可以模仿

jxlsp

都是蜘蛛侠,厉害.

飞诗(fsxm)

;;你要的是这样吧：
(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)
    )
  )
)

jxlsp

搭车学了一招,请问这可以用在什么情况下?

backtooth

原来橡皮筋可以这样做~又学一招

我都用grread,鼠标动的时候显示,悬停时就不见了

jaminth

修改了一下6楼的内容,缺了")

(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)
    )
  )
)

zmzk

好方法，收入囊中