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 static/image/common/back.gif
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")                     
)      
页: [1]
查看完整版本: 帮忙看下，为何不能执行。