请问循环的问题

linear · 发表于 2004-4-21 13:25:00

........................... (setq ex (entlast))

(setq w 0)
(repeat (sslength meshes)
(setq en (ssname meshes w))
(setq m (entget en))

(setq pp1z (caddr (trans(cdr (assoc 12 m))0 1)))
(setq cen (append ptms (list pp1z)))

(setq t1 (trans (cdr (assoc 10 M)) 0 1))
(setq t2 (trans (cdr (assoc 11 M)) 0 1))
(setq t3 (trans (cdr (assoc 12 M)) 0 1))

(command "slice" ex "" "" t1 t2 t3 cen)
(setq ex (entlast))
(setq W (1+ W))
)

(ssadd (entlast) SENU)
(command "ERASE" MESHES "")
) 请问是不是不能这么用阿？想每次对slice的结果进行操作？ex有个最初的定义在repeat前。谢谢！！！

ljcgq · 发表于 2004-4-21 21:05:00

(setq W (1+ W))
好像应为 (setq W (- W 1))

独角斗士 · 发表于 2004-4-22 00:50:00

(setq W (1+ W)) 可以

独角斗士 · 发表于 2004-4-22 00:51:00

(setq W (1+ W)) 没错

linear · 发表于 2004-4-22 08:23:00

但是它提示我repeat有错，检查ex,发现repeat前，中的ex内容是一样的。不知道是不是ex不能这么表达。

f5612140 · 发表于 2004-4-22 08:28:00

独角斗士发表于2004-4-22 0:50:00(setq W (1+ W)) 可以

看到您在這真高興

独角斗士 · 发表于 2004-4-22 08:39:00

论坛有问题，我昨天编辑帖子，怎么会没编辑到反倒成了二个帖子，给别人的感觉是在灌水。今天想把一个删掉，也不能操作。不是循环错，这句话 (setq ex (entlast)) 好像不合理，不过要获取被截剩下的也只好用这句话。

linear · 发表于 2004-4-22 13:27:00

什么鬼，上传图片老不行，基本资料里

meflying · 发表于 2004-4-22 13:57:00

(setq ex (entlast))这句其实可以不需要,slice命令操作后的对象名是一样的(即使是对象句柄都一样)

linear · 发表于 2004-4-22 16:13:00

是的，删掉这句后操作，结果是一样的。只是有点不明白为什么最后返回的不是被切掉一片的物体，而是被所有片切掉的物体。

还有请问如何修改基本资料里的图片上传？

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