[LISP函数]：请大家替我看看，是哪里有问题？

hhjj9898 · 发表于 2004-5-11 21:14:37

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

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

×

我在图中用“donut"画了一些内径为0，外径为80的圆环
用下列语句来选择有问题：[php]
(ssget '((-4 . "<AND") (0 . "LWPOLYLINE") (90 . 2) (70 . 1) (43 . 40.0) (-4 . "AND>")))[/php]
或(ssget '((0 . "lwpolyline") (90 . 2) (70 . 1) (43 .40.0)))
都不行而用
(ssget '(( 0 . "lwpolyline") (43 .40.0)))
是可以的，为什么？

ll_j · 发表于 2004-5-11 22:16:25

按字面理解，问题出在组码43点对的表达上，“(43 .40.0)”应该为“(43 . 40.0)”，所以最后一句也不行。
修改43组码表达后，我这里都是可以的。有时圆环中70组码并不为1，而是为129（1+128），以前碰到过，不知你是否碰到的是这种情况，可以用下面代码查看一下：
(defun c:ent()(entget(car(entsel)) '("*")))

aeo · 发表于 2004-5-11 23:51:25

r14吧
(90 . 2) ，以前我为我同事写，才发现r14过滤不支持90,R15就可以.

hhjj9898 · 发表于 2004-5-12 07:39:33

的确是R14的原因！明白了

lsjjm · 发表于 2004-5-12 07:46:44

最初由 hhjj9898 发布
[B]...(ssget '(( 0 . "lwpolyline") (43 .40.0)))是可以的，为什么？ [/B]

不会吧? (ssget '(( 0 . "lwpolyline") (43 .40.0))) 返回:" misplaced dot on input"
2楼说的对.

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

[LISP函数]：请大家替我看看，是哪里有问题？

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

相关帖子

Re: [LISP函数]：请大家替我看看，是哪里有问题？

浏览过的版块