写了个复制多段线的小段子，可是运行不对

igetit · 发表于 2014-1-10 22:56:42

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(setq p(entlast))(setq v1 (vl-remove-if-not '(lambda(x)(= (car x) 10)) (entget p)))
(setq new(entmake
(cons '(0 . "LWPOLYLINE")
(cons '(100 . "AcDbEntity")
(cons '(100 . "AcDbPolyline")
(cons '(410 . "Model")
(cons ' (8 . "0")
(cons ' (70 . 0)

(cons '(43 . 0.0)
(cons ' (38 . 0.0)
(cons ' (39 . 0.0)
v1 )))))))))))
运行完的提示是：<图元名: 7ffffb05960>
((10 0.0 0.0) (10 0.0 0.0))
就剩下俩点了，还是0.原来的pline就是随便画一条就可以了。求大大们帮忙啊！！

newer · 发表于 2014-1-10 23:12:17

用LWPOLYLINE做关键字搜索下论坛。

st788796 · 发表于 2014-1-10 23:56:47

(vl-cmdf ".copy" "L" "" '(0. 0. 0.) "@")

igetit · 发表于 2014-1-11 11:38:09

to 2楼，在搜了。
to 3楼，就是想用lisp写出来，这样可以控制颜色什么的。

igetit · 发表于 2014-1-11 12:06:26

我这段也是在坛子找的，换了一段好了。。。。。。

edata · 发表于 2014-1-11 19:31:14

你这段是原位复制吧，应该是
(if(setq ent(entsel))
(progn
(setq e1(entget(car ent)))
(entmake e1)
)
)

账号		自动登录	找回密码
密码			立即注册

[求助] 写了个复制多段线的小段子，可是运行不对

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。