[求助]看看这是怎么回事

qqw · 发表于 2008-1-26 19:13

本帖最后由作者于 2008-1-26 19:14:09 编辑

setq OBJECTS_X (ssget '((0 . "CIRCLE"))))
(setq COUNT_1 0)
(while (< COUNT_1 (sslength OBJECTS_X))
(setq ENTITY_1 (entget (ssname OBJECTS_X COUNT_1)))
(setq sel (cdr (assoc -1 ENTITY_1)))
(princ sel)
(setq CENTER (cdr (assoc 10 ENTITY_1)))

(command "move" sel "" CENTER "0,0,0")

)

(setq COUNT_1 (+ COUNT_1 1))
)

(princ)

为何3个圆只有一个被到原点

****

vken7az2p · 发表于 2008-1-26 19:18

你的问题是要将所选取的原移动到0,0,0座标点吗

qqw · 发表于 2008-1-26 19:32

是的,3个一起移

yy5heng · 发表于 2008-1-26 21:14

由于楼主代码书写不严谨，导致程序陷入死循环，因为while循环的括号错误。

现改为：

(setq OBJECTS_X (ssget '((0 . "CIRCLE"))))
(setq COUNT_1 0)
(while (< COUNT_1 (sslength OBJECTS_X))
(setq ENTITY_1 (entget (ssname OBJECTS_X COUNT_1)))
(setq sel (cdr (assoc -1 ENTITY_1)))
(princ sel)
(setq CENTER (cdr (assoc 10 ENTITY_1)))
(command "move" sel "" CENTER "0,0,0")
(setq COUNT_1 (+ COUNT_1 1))
)
(princ)

qqw · 发表于 2008-1-27 11:04

原来多了个括号,真是谢谢楼上

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

[求助]看看这是怎么回事

本帖子中包含更多资源