[求助]：请问如何在lsp语言下调用非CAD内部命令的其它挂件的程序命令？

倚夕扇雪

我知道有一种方法可以实现，但是比较麻烦，有大侠指点吗？一个人学编程真的很难。呜呜！

wkai

(defun c:dl()(getpoint ))
(c:dl)

倚夕扇雪

这么说吧，
(defun c:tr0()
(command "exfillet" "r" "0"))
这里的exfillet是powertools软件里的命令，所以，(command "exfillet" "r" "0"))语句是调用不到exfillet命令的。问：如何实现调用！
wkai兄写的语句我不明白，不好意思，刚刚介入编程，请多指教！

aidraft

试试(exfillet "r" "0")

lijiao

(vlax-add-cmd global-name func-sym [local-name cmd-flags])
具体使用方法，你可以看一下帮助

倚夕扇雪

非常感谢热情的人们。真的。
4楼好像不行。

梦断江南

用sendkeys方法，最近的帖子有讨论的

倚夕扇雪

5楼大侠的vlax-add-cmd命令我具体查阅了，也许是资料不全的缘故，我怎么调试都不行啊。我也查找了好多前辈些的lsp程序，不过这个命令用的比较少。
梦断江南，你说的sendkeys是怎么一回事，我怎么找不到这个命令啊？恕我无知了！^_^

oyxx_1023

用VLAX-ADD-CMD是肯定可以的，你先在2004的环境里面试一下看。

eachy

最初由 倚夕扇雪 发布
[B]我知道有一种方法可以实现，但是比较麻烦，有大侠指点吗？一个人学编程真的很难。呜呜！ [/B]

把你知道的麻烦的方法贴出来。

aidraft

最初由 倚夕扇雪 发布
[B]5楼大侠的vlax-add-cmd命令我具体查阅了，也许是资料不全的缘故，我怎么调试都不行啊。我也查找了好多前辈些的lsp程序，不过这个命令用的比较少。
梦断江南，你说的sendkeys是怎么一回事，我怎么找不到这个命令啊？... [/B]

先加载下面的函数
[php];;Written By AIdraft
(defun SendKeys (keys / ws)
  (setq ws (vlax-create-object "WScript.Shell"))
  (vlax-invoke-method ws 'sendkeys keys)
  (vlax-release-object ws)
  (princ)
)[/php]
然后试试(SendKeys "exfillet r 0 "), 如果命令还没完，0后面再加一个空格试试看。

再可以试试用SENDCOMMAND方法
(VLA-SENDCOMMAND (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT)) "EXFILLET R 0 ")

倚夕扇雪

aidraft ,你好厉害啊，小女子好好佩服的。你两个名利都可以实现我的愿望。有了sendkeys我以后不犯愁了。你的第一个程序我勉强能够一知半解，第二个程序我就啥也不懂了。唉，只好依葫芦画瓢了。
////////好，下面我将隆重推出我自己的程序，也同样能解决问题不过可能稍显麻烦一点，但是我的原创啊。各位神魔鬼怪望海涵，^_^！！！
介绍之前，大家先了解一下script命令，查阅帮助即可，或其它。。。。。。

好，在support文件夹下建立名字为“常用命令SCR文件”的文件夹，其下再建立名字为“exfillet-r=0.scr”的scr类型文件，用记事本打开，输入"exfillet
r
0"
引号不计！然后编程，如下：

;;将任何两条线汇交一点。
;;基于powertools软件。
(defun c:tr0()
  (command "script" "常用命令SCR文件\\exfillet-r=0.scr"));;因为无法直接调用非CAD内部的命令，所以先建立scr文件。





支持R14以上版本，R14一下我未测试。
斑竹给我加分吧！可怜可怜啊，我连衣服都买不起的。

lzy9788

aidraft可真是神童啊 ^_^，我觉得可以提aidraft做斑竹了。

雪山飞狐(lzh)

晕倒，Lisp做的命令，Lisp本身都不好调用，五楼的应该可以呀？

aeo

aidraft的sendkeys是生成了"WScript.Shell"对象，是一个windows带的对象.

其实sendkeys是vb的内部函数,所以eachy又写成了vla-eval的方式，用处一样，两码事.

就相当于在键盘上按下了那么多键.
VLA-SENDCOMMAND其实也是vba的方法.


VLAX-ADD-CMD肯定是可以的，先注册了再(command...)调用.


"晕倒，Lisp做的命令，Lisp本身都不好调用，五楼的应该可以呀"
其实程序要求输入"r" "0"
(initget "r")
(setq rad(getdist ".."))
我想应该是这样的,本身就是个要求输入的过程.