Lucid 发表于 2013-3-31 19:28:24

一段代码总搞不定，求指点

(defun c:ooo()
(setq R 253)
(setq times 3000)
(setq step 0.1)
(setq ppOffset1 0.045 ppoffset2 0.05)
;
(setq i 1)
(while (<= i times)
(setq obj (ssget '(-0.05252.45)))            里面的红字起始我本想用变量 R-ppoffset1代替，但总提示点参数错误，难道ssget不运行变量参数
(command "_slice" obj "ZX" '(0 (* step i)))   执行结果是每个循环必须手动选择被切割体，3000个循环，昏死我了
(setq i (1+ i))
)
)
程序的目的，把一个集合体按固定间隔进行切割

另外还有一段切割后的操作代码，后面放上

Lucid 发表于 2013-3-31 19:31:20

补充：如何按切割的顺序建立一个选择集？

陨落 发表于 2013-3-31 20:34:49

凡是带有变量的表都用list一类的函数形成才行

zml84 发表于 2013-3-31 20:40:32

(setq obj (ssget '(-0.05252.45)))

---->> (setq obj (ssget (list -0.05   R-ppoffset1)))

Lucid 发表于 2013-4-1 20:41:31

zml84 发表于 2013-3-31 20:40 static/image/common/back.gif
(setq obj (ssget '(-0.05252.45)))

---->> (setq obj (ssget (list -0.05   R-ppoffset1)))

非常感谢，我用list列表替代了'括号，不再出现点错误，在下面的语句中被slice小小刁难了一下。
(command "_slice" obj " " " " "ZX" '(0 (* step i)))，obj后面最先只用了一个空格，但它无法中断slice函数选取对象的过程，气的我再加一个，呵呵，还是不给面子，老实点不耍赖了：(command "_slice" obj "" "ZX" (list 0 (* step i)) "")

bingo，成功切出了第一块

Lucid 发表于 2013-4-1 20:49:09

开始运行“3000次”，悲剧了。切不到100，cad崩溃了，重新进入再切，放大了仔细再看，切不到20下，CAD又挂掉了，难道我又掉哪个坑里了？

Lucid 发表于 2013-4-1 20:52:07

本帖最后由 Lucid 于 2013-4-15 12:45 编辑

Lucid 发表于 2013-4-1 20:49 static/image/common/back.gif
开始运行“3000次”，悲剧了。切不到100，cad崩溃了，重新进入再切，放大了仔细再看，切不到20下，CAD又挂掉 ...

成功切完
页: [1]
查看完整版本: 一段代码总搞不定，求指点