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

李青松

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

peraperson

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

杜阳

peraperson 发表于 2015-9-22 16:34
(defun c:tt()
(setq entdata  (entget (car (entsel))))
(entmake entdata)

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

peraperson

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

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

peraperson

peraperson 发表于 2015-9-22 16:40
这个是单选的 要多选把上面的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

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


黄大师的收集

ivde

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

lucas_3333

轻松哥，好久不见啊，没见长进呀
我也来凑个热闹

1. (ss-for (ssget) '(lambda (x )(entmake (entget x))))
   
2. (defun ss-for (ss fun / n)
   
3.         (repeat (setq n (sslength ss))
   
4.                 (apply fun (list (ssname ss (setq n (1- n)))))
   
5.         )
   
6. )

(ss-for (ssget) '(lambda (x )(entmake (entget x))))<br /> (defun ss-for (ss fun / n)<br />         (repeat (setq n (sslength ss))<br />                 (apply fun (list (ssname ss (setq n (1- n)))))<br />         )<br /> )