李青松 发表于 2015-9-22 16:13:09

可否原位进行复制 ，复制1个，不要在屏幕上点复制的基点

可否原位进行复制 ，复制1个，不要在屏幕上点复制的基点，1个圆变成两个圆，叠在一起。


peraperson 发表于 2015-9-22 16:34:36

(defun c:tt()
(setq entdata(entget (car (entsel))))
(entmake entdata)
(princ)
)

杜阳 发表于 2015-9-22 16:39:03

peraperson 发表于 2015-9-22 16:34 static/image/common/back.gif
(defun c:tt()
(setq entdata(entget (car (entsel))))
(entmake entdata)


能原位复制，怎么加载后不执行命令啊直接选择对象，就退出了

peraperson 发表于 2015-9-22 16:40:10

杜阳 发表于 2015-9-22 16:39 static/image/common/back.gif
能原位复制，怎么加载后不执行命令啊直接选择对象，就退出了

这个是单选的 要多选把上面的entsel改成ssget加repeat就可以了

peraperson 发表于 2015-9-22 16:43:21

peraperson 发表于 2015-9-22 16:40 static/image/common/back.gif
这个是单选的 要多选把上面的entsel改成ssget加repeat就可以了


(defun c:tt()
(setq ss (ssget))
(setq n 0)
(repeat (sslength ss)
(setq en (ssname ss n))
(setq entdata (entget en))
(entmake entdata)
(setq n (+ n 1))
)
(princ)
)

Linhay 发表于 2015-9-22 17:31:20

●107 [功能] 原位复制
●obj        图元对象，或图元名
(defun myCopy (obj)
(if (= (type obj) 'ENAME)
    (setq obj (*En2Obj* obj))
)
(vla-copy obj)
)


黄大师的收集

ivde 发表于 2015-9-22 17:50:43

(vl-cmdf ".copy" (ssget) """_non" '(0 0 0) "@")

lucas_3333 发表于 2015-9-22 23:28:33

轻松哥，好久不见啊，没见长进呀
我也来凑个热闹
(ss-for (ssget) '(lambda (x )(entmake (entget x))))
(defun ss-for (ss fun / n)
        (repeat (setq n (sslength ss))
                (apply fun (list (ssname ss (setq n (1- n)))))
        )
)
页: [1]
查看完整版本: 可否原位进行复制 ，复制1个，不要在屏幕上点复制的基点