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

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

各位师傅：

请问如何对ExpressTools里的flatten命令进行简化，只要用户输入ft就调用flatten命令，如何用AutoLISP实现？先谢谢了！

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))

大佬厉害大佬厉害大佬厉害

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

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

浏览过的版块