flytoday 发表于 2012-9-13 22:28:19

求个插件原位复制一条线。。

求个插件原位复制一条线。。

就是图中有：弧线。直线。多义线等。。

然后插件能，批量，在原来线上重复上去一条线。。（就是原位复制一条线）

新生成的线图层这辅线层。颜色为红色/。//

请哪位大师出手下谢谢。。。。

yjr111 发表于 2012-9-13 23:23:40

本帖最后由 yjr111 于 2012-9-13 23:26 编辑

(defun c:tt()
(command "undo" "be")
(command "layer" "m" "辅线层" "c" 1 "" "" )
(setq ss(ssget '((0 . "*LINE,ARC,CIRCLE"))))
   (REPEAT (SETQ N(SSLENGTH SS))
      (SETQ OBJ(VLAX-ENAME->VLA-OBJECT(SSNAME SS(SETQ N (1- N)))))
      (VLA-COPY OBJ)
      (vla-put-layer (setq newobj(VLAX-ENAME->VLA-OBJECT(entlast)))"辅线层")
      (vla-put-color newobj acbylayer)
   )
(command "undo" "e")
(princ)
)

完整武器 发表于 2012-9-13 23:30:24

本帖最后由 完整武器 于 2012-9-13 23:35 编辑

是不是想多算些工程量啊，试了下原来就重叠的线运行命令后就出来跟原来一样多的线

flytoday 发表于 2012-9-14 03:17:10

谢严哥………谢谢
页: [1]
查看完整版本: 求个插件原位复制一条线。。