ssget函数选择语句的过滤条件问题

tomb112 · 发表于 2006-8-22 11:48:00

最近我再编一个程序

其中需要选择图形中所有线型为DASHDOT的直线。

其中我选择了两种写法如下：

第一种：

(setq sv (ssget "X" '((0 . "line")(-4 . "=")(6 . "dashdot"))))

第二种

(setq sv (ssget "X" '((-4 . "<AND")(0 . "line")(6 . "dashdot")(-4 . "AND>"))))

但是两种写法在随后的

(setq lens (sslength sv))

中均出现了提示错误: 参数类型错误: lselsetp nil。

请问：

两种写法有错吗？错在哪里？正确的应该是什么？

龙龙仔 · 发表于 2006-8-22 12:28:00

(setq SV (ssget "X" '((0 . "line") (6 . "dashdot"))))

tomb112 · 发表于 2006-8-22 15:14:00

多谢二楼解答，用这个方法

(setq sv (ssget "X" '((0 . "line") (6 . "dashdot"))))

(setq lens (sslength sv))

运行到第二行还是有错误呀。

龙龙仔 · 发表于 2006-8-22 15:21:00

那是图中没有"dashdot"的线,注意:bylayer线型为"dashdot"的不会被选上

tomb112 · 发表于 2006-8-22 16:23:00

实在调试不出来了。超级版主辛苦一下下。看看是怎么回事？

Andyhon · 发表于 2006-8-22 16:37:00

(setq sv (ssget "X" '((0 . "line") (6 . "DASHDOT"))))

try ===>
(setq sv (ssget "X" '((0 . "*line") (6 . "DASHDOT"))))
or
(setq sv (ssget "X" '((0 . "LwPolyLine") (6 . "DASHDOT"))))

tomb112 · 发表于 2006-8-22 17:00:00

本帖最后由作者于 2006-8-22 17:42:53 编辑

嗯，试过了，

try ===>
(setq sv (ssget "X" '((0 . "*line") (6 . "DASHDOT"))))
or
(setq sv (ssget "X" '((0 . "LwPolyLine") (6 . "DASHDOT"))))

两个都可以找到SV。

可能原来定义的条件太苛刻了

多谢6楼

tomb112 · 发表于 2006-8-24 10:55:00

不好意思，新问题出现了，上述程序中

(setq ent
           (subst
             (cons 6 "center")
             (assoc 6 ent)
             ent
           );subst end
        );setq end 更改对象线型属性

        (setq ent
           (subst
             (cons 48 "0.4")
             (assoc 48 ent)
             ent
           );subst end
        );setq end 更改对象线型比例属性

上述程序段第一部分是更改线型名称，成功实现，

第二部分是更改线型比例，却没有实现功能。我找了DXF的帮助里面线型比例的组码就是48。不知道是不是我理解的有问题？

龙龙仔 · 发表于 2006-8-24 15:49:00

ENT中没有的DXF码只能增加,不能替换

lazybug · 发表于 2006-8-24 16:08:00

(defun c:temp ()
(setq sv (ssget "X" '((0 . "*line") (6 . "DASHDOT"))))
(command "chprop" sv "" "lt" "center" "s" "0.4" "")
)

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

ssget函数选择语句的过滤条件问题

本帖子中包含更多资源