可以了，谢谢各位。

freeok

我买的书只有简单的defun函数使用介绍，求助。

(defun c:abc()
  (hig)
  (efg)
)
  (defun efg()
);子程序1
(defun hig()
  *****
  high1***--应用子子程序1写的语句
  high2***--应用子子程序1写的语句
);子程序2
   (defun high1 (test / s ss )
   )
   (defun high2 (text / n nn )
   )
借用坛友的改了一下，为啥这个调用不成功呢？要如何改呢？谢谢。

freeok

怎么这么显示，不爽。呵呵。
改一下

比如：
(defun c:abc()
  (efg)
  (hig))
(defun efg()
);子程序1
(defun hig()
  *****
  (high1)--子子程序1
  (high2)--子子程序2
);子程序2
   (defun high1 (test / s ss )
   )
   (defun high2 (text / n nn )
   )

ll_j

high1、high2是有参数函数，调用时应该有对应参数。

freeok

ll_j 发表于 2012-12-10 08:02
high1、high2是有参数函数，调用时应该有对应参数。

那要如何修改呢？谢谢。如果是单个直接后面加参数已在论坛搜索到相关。这子子函数就不知怎么弄了。加了参数不行。

freeok

可能我描述错了，应该是

比如：
(defun c:abc()
  (efg)
  (hig))
(defun efg()
);子程序1
(defun hig()
  *****
  high1***--应用子子程序1写的语句
  high2***--应用子子程序1写的语句
);子程序2
   (defun high1 (test / s ss )
   )
   (defun high2 (text / n nn )
   )

ll_j

带参数的函数的调用方式是“(high1 txt)”，这里的参数txt就是要传递给子函数的一个“输入接口”，就是相当于函数high1的那个text，具体你再研究一下函数defun。

linheyuanpcb

(defun c:222()
        (Bw)
        (princ)
)这样可以调用哦，
(defun bw()
...
..
)

freeok

(defun c:abc()
  (hig)
  (efg)
)
  (defun efg()
);子程序1
(defun hig()
  *****
  high1***--应用子子程序1写的语句
  high2***--应用子子程序1写的语句
);子程序2
   (defun high1 (test / s ss )
   )
   (defun high2 (text / n nn )
   )

xiabin68

每个子程序都有一个参数，，，，，