请问如何在lisp中调用express中的“flatten”函数？

mandala · 发表于 2011-2-12 14:56:51

本帖最后由 mandala 于 2011-2-12 14:57 编辑

看过明经以前的一些相关讨论，似乎没什么帮助。由于flatten需要加参数的，所以（c:flatten）或者（command （c:flatten））这种方法无效。

.

Andyhon · 发表于 2011-2-12 15:31:15

;;; FlattenSup .Lsp
(defun acet-flatn ( ss hide /.....)
.....
)

调用
(acet-flatn ss nil)
(acet-flatn ss T)

======================
请参考
....\Express\flatten.Lsp

mandala · 发表于 2011-2-12 16:28:10

本帖最后由 mandala 于 2011-2-12 16:45 编辑

非常感谢！研究了一下，大功告成。

说明一下：(acet-flatn ss nil) 中的ss是个选择集，不是图元名。另外如果用(acet-flatn ss T)的话是用直线连接，效果灰常的烂……

唯一的问题是flattensup.lsp是不会自动加载的，只能在当前lisp中用appload加载，不然程序找不到acet-flatn 函数。请问有什么好办法吗？

Andyhon · 发表于 2011-2-12 16:55:28

Flatten.Lsp 中的 Sample
(acet-autoload2 '("FLATTENSUP.LSP" (acet-flatn ss hide)))

mandala · 发表于 2011-2-13 14:52:58

回复 Andyhon 的帖子

谢谢！试了一下，似乎在程序开始的时候加上上边这句就可以正常运行了。

millermin · 发表于 2012-12-13 11:40:58

Andyhon 发表于 2011-2-12 15:31
;;; FlattenSup .Lsp
(defun acet-flatn ( ss hide /.....)
.....

我也在找这个。但是你上述语句一点看不懂，能否给点提示？

gulang008 · 发表于 2014-2-15 20:29:16

嗯，有用有用。。。

荒野孤行 · 发表于 2016-8-1 23:20:48

Andyhon 发表于 2011-2-12 16:55
Flatten.Lsp 中的 Sample
(acet-autoload2 '("FLATTENSUP.LSP" (acet-flatn ss hide)))

想把flatten的这个插件用到ZWCAD里面去，如何才行啊？

nuan1989 · 发表于 2023-6-14 15:21:56

荒野孤行发表于 2016-8-1 23:20
想把flatten的这个插件用到ZWCAD里面去，如何才行啊？

后来, 你搞定没有

荒野孤行 · 发表于 2023-7-12 18:49:42

nuan1989 发表于 2023-6-14 15:21
后来, 你搞定没有

后来发现ZWCAD里面可以直接把文字转成轮廓线，根本不需要啊

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

[函数] 请问如何在lisp中调用express中的“flatten”函数？

评分