请问如何用lisp启动一个vlx程序定义的命令

feng-hua

网上下了一个vlx程序,该程序加载后,要调用的命令很长,比如需要输入edtextformybaby才可以.

我现在想通过自己定义个lisp,简化一下命令来代替edtextformybaby,请问关键代码如何写,谢谢!

用 (command "edtextformybaby"  ))  cad提示无效命令

自贡黄明儒

试试(C:edtextformybaby)

1. (defun C:w1 ()
   
2.   (C:edtextformybaby)
   
3. )

(defun C:w1 ()<br />   (C:edtextformybaby)<br /> )

feng-hua

自贡黄明儒 发表于 2017-9-7 13:07
试试(C:edtextformybaby)

谢谢,问题解决!

明27662

自贡黄明儒 发表于 2017-9-7 13:07
试试(C:edtextformybaby)

如果这个命令还要输入文字，点坐标怎么输入？(C:edtextformybaby)这个之后加(command "100")(command p1 p2)这样不行。

cowboy110

学习学习！！！

lenlenq

明27662 发表于 2019-5-11 08:56
如果这个命令还要输入文字，点坐标怎么输入？(C:edtextformybaby)这个之后加(command "100")(command p1  ...

不知道你这个自定义函数(C:edtextformybaby)是什么功能，之后加的和前面的关系如何，这空荡荡的两句话，使人摸不着头脑呀！我猜测应该是输入一个数和两个点吧

cad890

明27662 发表于 2019-5-11 08:56
如果这个命令还要输入文字，点坐标怎么输入？(C:edtextformybaby)这个之后加(command "100")(command p1  ...

这个看看函数的方法,调用就是了，如

1. (defun C:w1 (num p1 p2)
   
2.   (C:edtextformybaby num p1 p2)
   
3. )

(defun C:w1 (num p1 p2)<br />   (C:edtextformybaby num p1 p2)<br /> )

明27662

cad890 发表于 2019-5-15 18:38
这个看看函数的方法,调用就是了，如

(defun c:w1(n p1 p2 n1 )
  (setq n 3.5)
  (setq p1 (getpoint))
  (setq p2 (getpoint))
  (setq n1 3)

  (c:yx_aq n p1 p1 n1 n3)


)
; 错误: 参数太少

cad890

明27662 发表于 2019-5-16 10:33
(defun c:w1(n p1 p2 n1 )
  (setq n 3.5)
  (setq p1 (getpoint))

函数的参数对吗？下面测试没问题
c:testW1(n p1 p2 n1)为调用函数，括号带参数
c:w1()括号里不带参数

1. (defun c:w1()
   
2.   (setq n 3.5)
   
3.   (setq p1 (getpoint))
   
4.   (setq p2 (getpoint))
   
5.   (setq n1 3)
   
6.   (c:testW1 n p1 p2 n1)
   
7.   )
   
8.   
   
9. (defun c:testW1(n p1 p2 n1)
   
10. (list n p1 p2 n1)
    
11.   )

(defun c:w1()<br />   (setq n 3.5)<br />   (setq p1 (getpoint))<br />   (setq p2 (getpoint))<br />   (setq n1 3)<br />   (c:testW1 n p1 p2 n1)<br />   )<br />   <br /> (defun c:testW1(n p1 p2 n1)<br /> (list n p1 p2 n1)<br />   )

sdls

自贡黄明儒 发表于 2017-9-7 13:07
试试(C:edtextformybaby)

这个，简单好用，谢谢！！