[求助]请问这段代码LISP是什么意思,含blipmode

asang99

代码如下,请问是什么意思.不影响总体运行效果,但显示出错.

  (setq filename (strcat (getvar "dwgname") ".plp"))
  (cc "plp" filename)
  (setvar "blipmode" sblip)
  (setvar "cmdecho" scmde)

caoyin

窥一斑而无法见全貌

董堃

要全部代码才能看全

asang99

不好意思,前面是:

(defun C:WK ()
  (setq sblip (getvar "blipmode"))
  (setq scmde (getvar "cmdecho"))
  (setq sattdia (getvar "attdia"))
  (setvar "attdia" 0)
  (setvar "blipmode" 0)
  (setvar "cmdecho" 0)

.......

.....

.....

.....

  (setq filename (strcat (getvar "dwgname") ".plp"))
  (cc "plp" filename)
  (setvar "blipmode" sblip)
  (setvar "cmdecho" scmde)
  (command "layer" "s" 1 "")
  (prin1)

asang99

cc.lsp为

(defun cc(s d)
    (setq fr (open s "r"))
    (setq fw (open d "w"))
    (setq a  (read-line fr))
    (while (/= a nil)
 (write-line a fw)
 (setq a (read-line fr))
    )
    (close fr)
    (close fw)
)

ZZXXQQ

要正常操作变量，变量名要大写。有些版本的ACAD不支持小写。

asang99

哦,谢谢了,我改下试试