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

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

本帖最后由 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 static/image/common/back.gif
;;; 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 static/image/common/back.gif
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里面可以直接把文字转成轮廓线，根本不需要啊{:1_1:}
页: [1]
查看完整版本: 请问如何在lisp中调用express中的“flatten”函数？