帮忙看下，为何不能执行。

xman00 · 发表于 2013-7-24 13:15:25

;功能：自动将本图中的样条曲线找出并转为多段线
(defun c:TT()
(setq ss (ssget "x" '((0 . "Spline"))))
(command "flatten" "ss" "Y" "")
)

各位，帮忙看下，不什么为什么不能执行。每次运行都说选择项为nil。求助。

wowan1314 · 发表于 2013-7-24 13:41:00

“ss” >>>ss

这个命令CAD2004没有？

龙城飞将36 · 发表于 2013-7-24 13:59:01

(command "flatten" "ss" "Y" "")命令没有~~~~~~~~~~~~~~~~~~~~·····

xman00 · 发表于 2013-7-24 14:00:51

这个是用的ET工具箱里的，将样条曲线转为多段线。06里有，04不清楚。

xman00 · 发表于 2013-7-24 14:15:35

“ss” >>>ss 是不对的，

ll_j · 发表于 2013-7-24 14:39:20

flatten是ET中的Lisp函数，不能使用command来调用的，可以试试加载flattensup.lsp，然后用(acet-flatn ss "Y")。

yoyoho · 发表于 2013-7-24 19:45:37

ll_j 发表于 2013-7-24 14:39
flatten是ET中的Lisp函数，不能使用command来调用的，可以试试加载flattensup.lsp，然后用(acet-flatn ss " ...

感谢您!
(defun c:TT()
(setq ss (ssget '((0 . "Spline"))))
(acet-flatn ss "Y")
)

ygp820601 · 发表于 2013-7-27 19:41:11

(defun c:tt()  ;样条曲线转多段线
(acet-flatn (ssget '((0 . "Spline"))) "yes")
)

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

[讨论] 帮忙看下，为何不能执行。