社区 › AutoLISP/Visual LISP 编程技术 › 发个简单的小程序，预设两点执行copy操作

masterlong 发表于 2021-6-29 09:10:58

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

magicheno 发表于 2021-6-29 10:06:26

本帖最后由 magicheno 于 2021-6-29 10:07 编辑

masterlong 发表于 2021-6-29 09:10
仔细看程序代码里的“以下是个人使用习惯”
看到了，主要是小白，不知道该怎么单独拎出来使用的，想的是不是预设两点后形成的上一个选择集，而是就是普通的复制后，复制后的变成上一个选择集

magicheno 发表于 2021-6-29 21:18:09

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

查看完整版本: 发个简单的小程序，预设两点执行copy操作