菜鸟求助 帮我看看这段小程序

prick

帮我看看这段小程序

;;;插入图块的函数 ap:insertBLK
;;;
;; 读入图块名称，要插入的位置
;; 将指定图块插入指定位置
;; 输出信息：已经插入。

(defun ap:insertBlk(/ BlkName BlkPt BlkScaleX BlkScaleY BlkRot)
  ;将点表BlkPt转换为字符串用于command命令
  (setq Point(strcat car(BlkPt) "," cadr(BlkPt) "," caddr(BlkPt)))
  ;插入图块命令
  (command "_.insert" BlkName Point BlkScaleX BlkScaleY BlkRot)
  ;提示姓习
  (princ "ap:insertBlk Ok!")
)

;为insertBlk赋值
(defun def()
  ;设定插入点
  (setq BK(list 0 0 0))
  ;赋值
  (ap:insertBlk("w.dwg" BK 1 1 1 2))
)

语法检查时提示：
[CHECKING TEXT INSERTBLK.LSP loading...]
.
; *** WARNING: local variable used as function: BLKPT
; *** WARNING: local variable used as function: BLKPT
; *** WARNING: local variable used as function: BLKPT
.
; Check done.

这是怎么回事啊，我没有设定BLKPT为函数啊 呜呜呜

prick

啊 这个问题解决了，是car函数格式的问题

可是又有新的问题了
;赋值
  (ap:insertBlk("w.dwg" BK 1 1 1 2))

语法检查说
; *** ERROR: bad function in expression: ("w.dwg" BK 1 1 ... )

prick

还是不行啊，怎么办那。

prick

哦 原来是我的argument没有 都当作参数来用了，呵呵。

aeo000000

一个人闹着玩呢 !

point没必要转成字符的.

难道你的cad上(setq Point(strcat car(BlkPt) "," cadr(BlkPt) "," caddr(BlkPt)))不出错?

meflying

回楼主：
主要是你对LISP的函数使用还没习惯过来，可能其他程序用多了，
一般别的程序都是这样调用函数：
函数名（参数1，参数2。。。）
而LISP调用函数为
(函数名 参数1 参数2 。。。）