发个简单的小程序，预设两点执行copy操作

masterlong

仔细看程序代码里的“以下是个人使用习惯”

magicheno

masterlong 发表于 2021-6-29 09:10
仔细看程序代码里的“以下是个人使用习惯”

看到了，主要是小白，不知道该怎么单独拎出来使用的，想的是不是预设两点后形成的上一个选择集，而是就是普通的复制后，复制后的变成上一个选择集

magicheno

(defun c:tt5 ( / ent ss )
  (if (setq ss (ssget))
   (progn
(setq ent (entlast))
    (command "copy" ss "" pause pause)

(command)


(setq ss (entbackss ent))
      (if (null ss)
       (setq ss (ssadd))
      )
      (oldss2act ss)
)
)
)