vocabulary 发表于 2006-7-9 11:42:00

[求助]ＥＴ里的Flatten命令？

<P>各位师傅：</P>
<P>请问如何对ExpressTools里的flatten命令进行简化，只要用户输入ft就调用flatten命令，如何用AutoLISP实现？先谢谢了！</P>

ZZXXQQ 发表于 2006-7-9 12:39:00

(DEFUN C:FL () (C:FLATTEN))

vocabulary 发表于 2006-7-9 13:00:00

谢谢楼上的大侠！

自贡黄明儒 发表于 2011-2-12 19:28:00

本帖最后由 自贡黄明儒 于 2011-2-12 20:16 编辑

;;;ET工具中C:flatten也是调用(acet-flatn ss nil)
;;;lisp中调用ET工具flatten
(if (setq f (findfile "FLATTENSUP.LSP")) (load f) (princ "没有安装AutoCAD赠品ET工具,不能使用!"))
(acet-flatn (ssget) nil);;FLATTENSUP.LSP中定义了acet-flatn
;;;

zj20190405 发表于 2020-9-13 23:02:01

ZZXXQQ 发表于 2006-7-9 12:39
(DEFUN C:FL () (C:FLATTEN))

大佬厉害大佬厉害大佬厉害
页: [1]
查看完整版本: [求助]ＥＴ里的Flatten命令？