[求助]按颜色选择pline并炸开。

alwaysbin · 发表于 2004-8-20 00:43:00

有很多条线，都是pline，颜色多种。

如何实现框选以后，只炸开某种颜色的pline？图形未分层。

比如黄色，color=2

xyp1964 · 发表于 2004-8-20 07:56:00

(defun c:test ()
(setq ss1 (ssget "X" (list (cons 0 "POLYLINE") (cons 62 2))))
(setq n 0)
(while (setq s1(ssname ss n))
(command "_explode" s1)
(setq n (+ 1 N))
)
(princ)
)

alwaysbin · 发表于 2004-8-20 18:43:00

老大，用不了啊，我用2004都不行。

错误: 参数类型错误: lselsetp nil

BDYCAD · 发表于 2004-8-20 18:49:00

第二句 (setq ss1 (ssget "X" (list (cons 0 "POLYLINE") (cons 62 2))))
你改成下面的试试 (setq ss1 (ssget "X" '((0 . "LWPOLYLINE") ( 62 . 2))))

alwaysbin · 发表于 2004-8-20 19:11:00

还是不行啊，你不信自己试一下。

小狼 · 发表于 2004-8-20 19:57:00

(defun c:test(/ ss i)

(setvar "cmdecho" 0)

(setq color (getint "\n请输入颜色代码:")

   ss (ssget "x" (list (cons 0 "*polyline")(cons 62 color)))

   i 0

)

(if ss

(repeat (sslength ss)

   (setq ename (ssname ss i)

   i (1+ i))

   (vl-cmdf "explode" ename)

)

)

(setvar "cmdecho" 1)

(princ)

)

alwaysbin · 发表于 2004-8-20 20:40:00

这个是可以，但似乎太暴力了，根本没有进行选择的步骤，直接把整张图全部炸开了。

cqnj023 · 发表于 2004-8-21 00:48:00

将

(setq color (getint "\n请输入颜色代码:")

   ss (ssget "x" (list (cons 0 "*polyline")(cons 62 color)))

   i 0

)改为

(setq color (getint "\n请输入颜色代码:")

   ss (ssget    (list (cons 0 "*polyline")(cons 62 color)))

   i 0

)

无痕 · 发表于 2004-8-21 14:07:00

(setq ss1 (ssget "X" (list (cons 0 "

OLYLINE") (cons 62 2))))

(setq ss1 (ssget "X" '((0 . "LWPOLYLINE") ( 62 . 2))))

语法上都没有问题，实体过滤上可以"*POLYLINE"

关键是有的实体颜色是随层的，这样就没有62组码。：）

wjm3 · 发表于 2004-8-21 18:02:00

2楼的程序主要是没将变量设为局部变量及对象类型不完全符合楼主的要求导致无法使用

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