如何在lisp里调用express tools 里的命令！

cad_fans · 发表于 2009-11-13 11:24:00

怎么看不了回复？

xjf · 发表于 2009-11-15 19:25:00

(Vlax-Invoke-Method (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'SendCommand "quit ")

yewuqiang · 发表于 2009-12-1 16:21:00

直接用括号（c:命令）

秋枫 · 发表于 2009-12-1 20:51:00

先用(vlax-add-cmd)加成命令

然后可以用command函数调用

自贡黄明儒 · 发表于 2011-2-7 21:28:14

本帖最后由自贡黄明儒于 2011-2-7 21:29 编辑

我以flatten试了一下,上面的哪一种说法都不行(但在cad直接用flatten是可以的),不知何故?
;;;(setq b (car (entsel)))
(command "C:flatten" b "" "")
(command (C:flatten) b "" "")
(command (C:flatten) b "" "" "")
((c:flatten) b "" "" )
((c:flatten) b "" "" "")
(c:flatten b "" "" )
(c:flatten b "" "" "")

pop159 · 发表于 2011-2-7 23:29:06

success8879说的没错,我曾用过这种方法.

xyz002 · 发表于 2011-2-12 14:14:17

最好给个完成的代码

mandala · 发表于 2011-2-13 16:50:23

本帖最后由 mandala 于 2011-2-13 16:55 编辑

回复 xyz002 的帖子
对express里一些不需要加参数的命令可以用(c:命令名)，或（command （c:命令名））直接调用。如果是需要加参数的命令，可以用调用express中子函数的方式。

拿flatten为例：
首先在程序开始加入
(acet-autoload2 '("FLATTENSUP.LSP" (acet-flatn ss hide)))
用来调用express中FLATTENSUP.LSP里的acet-flatn 函数；

然后在需要flatten的时候写上：
(acet-flatn ss nil)或者(acet-flatn ss T)即可。

注意：1 ：“ss”是一个选择集而非图元，代表你要变成多义线的曲线集；2、nil是用圆弧连接，效果很好；T 用直线连接，效果极烂。

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