如何叫出副程式0.0

lead009

在寫lisp的時候，會為了方便維修，就使用副程式。

 

比如說我有一個lisp檔(檔名"vc lisp")，裡面專放副程式

放很多個

 

ex:

(defun area3(a b c )

  (setq s (* (+ a b c) 0.5))

  (sqrt (* s (- s a) (- s b) (- s c)))

)

 

我希望我在編寫一個新的lisp程式的時候檔名"abc"，我可以直接叫出"vc lisp"裡頭的副程式出來用

請問我要怎麼設定啊??

 

不知道我這樣敘述，大家能明白我的意思嗎

 

 

zark

你把所谓的那些幅程序全部保存到一个文件，比如  D:\FILE.LSP。现在你在新的LISP中想调用你的自定义程序，只要加载FILE.LSP文件就行，在调用前加入一名 （load "d:/file.lsp")
一般，我们会有很多自定义函数，我们将很保存到一个文件，然后，我们把新文件编译成VLX，将FILE.LSP附加进去，这样，以后只要加载了VLX文件，那些自定义函数就会自动装入内存，你就直接可以用了。

masterlong

APPLOAD，启动组

lead009

嗯嗯，原來只是加上一個指定路徑，就可以使用自定義函數了。

哈哈，謝謝你囉。

lead009

我又遇到了一个问题，帮我看一下

下面是我的程式码

当我在cad中载入的完成之后

我输入指令"area3" 却出现了这个讯息

"不明的指令「AREA3」。請按 F1 取得說明。"

我是哪一个地方做错了??

 

(defun C:18()
  (area3) 

(prin1)
)

(defun area3(a b c )
  (setq s (* (+ a b c) 0.5))
  (sqrt (* s (- s a) (- s b) (- s c)))
)

xiaobao02

area3你定義的是子程序，調用方法(area3)

此處你應該輪命令18調用子程序area3

lead009

所以正確的寫法是什麼???

xhq1954425

应该带参数调用吧，如(area3 1 1 1)

xhq1954425

否则a b c 都为nil

lead009

嗯嗯，謝謝，我懂你的意思了。原來是那幾個變數沒有被定義。