lsp中子函数的调用

lihuixun

           请问lsp中怎么调用自定义的子函数

           新学lsp，多多请教

maomao2004

先定义主函数，然后调用子函数

(defun c:zhuahnshu()

(zihanshu))

(defun zihanshu()

(功能))

yxp

加载后，在命令行也可以用括号加函数名来运行。

 

lihuixun

    太简单了，谢谢

lihuixun

    如果需要带参数的子函数怎么加载比如
(defun c:leng(/ xp1 xp2)

  (setq xp1 (getpoint "\n起点:"))
  (setq xp2 (getpoint "\n终点:"))

??这里怎么调用子函数
  )

(defun long(/ xp1 xp2 l)

  (setq l (distance xp1 xp2))

)

lijiao

(defun c:leng(/ xp1 xp2)

  (setq xp1 (getpoint "\n起点:"))
  (setq xp2 (getpoint "\n终点:"))

(long xp1 xp2)
  )

(defun long(xp1 xp2 / )

  (setq l (distance xp1 xp2))

)

vladimir

非常不错的程序，谢谢楼主分享