cal命令在LISP中如何调用,

bhf0114 · 发表于 2004-2-26 08:46:00

比如在这种情况下,我不知道该怎样调用.请指教.
(defun C:ZDA()
(command "cal" "p1=(cur+cur)/2" )
(command "cal" "p2=(cur+cur)/2" )

f5612140 · 发表于 2004-2-26 09:02:00

(setq calset "(cur+cur)/2")
(setq p1 (cal calset))
calset為字串

meflying · 发表于 2004-2-26 12:08:00

楼上的，没有这个函数吧

f5612140 · 发表于 2004-2-26 13:19:00

(if (null cal)(arxload"geomcal"))

meflying · 发表于 2004-2-26 13:30:00

geomcal又是什么东西？你不上传一个，别人怎么加载？

f5612140 · 发表于 2004-2-26 13:43:00

老大,您在程序中加入這一行就加載了,類似(vl-load-com)

无痕 · 发表于 2004-2-26 14:44:00

geomcal.arx是cad安装目录下的数学计算模块，一般启动cad已经自动加载，有时候因为一些原因没加载的，用楼上朋友所说的（if (null cal)(arxload"geomcal")) 加载，以便cal命令能正常调用。平常我们在cad中用的命令command:cal就是调用了这个东东。调用cal的方法
Command: cal
>> Expression: (3+4)/2
3.5
Command: (c:cal "(3+4)*3/2")
10.5
Command: (cal "(3+4)*3/2")
10.5
程序中可用（cal “表达式字符串”）或(c:cal "...")直接来调用。