尘缘一生 发表于 2020-6-4 22:34:21

移动与拷贝（源码）

喜欢源码的研究，研究，整理费：收币一枚


1028695446 发表于 2020-6-4 23:43:37

额，，，给的代码都不全的吗

还要自己手动补全代码的
(vl-load-com)
(setq *acad* (vlax-get-acad-object))
(setq *AcDocument* (vla-get-ActiveDocument *acad*))
(setq pi2 (/ pi 2))

尘缘一生 发表于 2020-6-5 00:07:00

1028695446 发表于 2020-6-4 23:43
额，，，给的代码都不全的吗

还要自己手动补全代码的


嵌套太多了，看不全，丢了这几个

669423907 发表于 2020-6-5 08:07:35

复制与粘帖同键
(defun CV复制粘帖()
(setvar'dynmode 1) ;动态输入开
(if (ssget "i")
(progn
(command "_copyclip" (ssget "i") "")(command)
(if (not (wcmatch (getvar'dwgname) "临时.dwg,Drawing*.dwg") ) (command "_pasteclip") )
)
(command "_pasteclip")
)
(princ))

664571221 发表于 2020-6-5 16:16:17

669423907 发表于 2020-6-5 08:07
复制与粘帖同键
(defun CV复制粘帖()
(setvar'dynmode 1) ;动态输入开


怎么没用啊

664571221 发表于 2020-6-5 16:16:33

669423907 发表于 2020-6-5 08:07
复制与粘帖同键
(defun CV复制粘帖()
(setvar'dynmode 1) ;动态输入开


怎么没用啊

669423907 发表于 2020-6-8 13:48:29

本帖最后由 669423907 于 2020-6-8 13:50 编辑

664571221 发表于 2020-6-5 16:16
怎么没用啊
(defun c:13()
(setvar'dynmode 1) ;动态输入开
(if (ssget "i")
(command "_copyclip" (ssget "i") "" "_pasteclip")
(command "_pasteclip")
)
(princ))
页: [1]
查看完整版本: 移动与拷贝（源码）