2013-08-21 QQ群：ALISP＆VLISP(143438137) 聊天记录：哪位兄弟有CAD数字递增LSP插件 给我一个 十分感谢！！！

炫翔

炫翔(2363673534)于2013-08-21 16-58-56：
(DEFUN C:XX())

炫翔

炫翔(2363673534)于2013-08-21 16-59-24：
(DEFUN C:XX()(SETQ XX 10000))

CCarch

Happy(410786171)于2013-08-21 16-59-30：
(Setq
         Num(If *Num *Num 1)  ;带*的为全局变量，最后的1为默认值
         Msg(Strcat"\n 设置新文件起始序号：")
         *Num(If(Setq Msg(Getint Msg))Msg Num)
   )

炫翔

炫翔(2363673534)于2013-08-21 16-59-36：
你加载后面的那句试试

炫翔

炫翔(2363673534)于2013-08-21 16-59-59：
再去其他的程序中可以直接调用

CCarch

Happy(410786171)于2013-08-21 17-00-21：
你是默认值

炫翔

炫翔(2363673534)于2013-08-21 17-01-36：
可谓全局变量就是 你最后把他定义成什么值 他就一直是什么值

炫翔

炫翔(2363673534)于2013-08-21 17-01-42：
注意:最后

炫翔

炫翔(2363673534)于2013-08-21 17-02-08：
这个一直是在你的当前激活的CAD时候

炫翔

炫翔(2363673534)于2013-08-21 17-02-23：
只要CAD一旦重新启动 就失效了

CCarch

Happy(410786171)于2013-08-21 17-02-28：
重新打开一个图就无效了

炫翔

炫翔(2363673534)于2013-08-21 17-02-39：
是的

炫翔

炫翔(2363673534)于2013-08-21 17-03-02：
一般全局变量都是在打开图时  又自动加载了

炫翔

炫翔(2363673534)于2013-08-21 17-03-12：
这样这个全局变量又活了

清风明月10

清风明月(897902105)于2013-08-21 21-14-57：
(defun c:TT()
        (setq fle "F:/0接口.csv")

  (setq ff(open fle "W"));;如何写作“(setq f(open fle "a"))”，"a"则是保存原内容，"w"是不保存，在最行一行的下行追加
                   
          (setq ss (ssget "X" '((0 . "TEXT")(8 . "0000用于图元属性快速输出利用（简称“属性”图层）"))))

(setq i 0)
  (repeat (sslength ss)
    (setq ent (ssname ss i))
        ;这是取得每个被炸开的图元所在的图层名
        ;(setq 新图层名 (cdr(assoc 8 (entget ent))))
        (setq 内容 (CDR (assoc 1 (SETQ 组码表 (entget ent)))))
    (setq XYZ (assoc 10 组码表))
(setq X (CADR XYZ))
    (setq Y (CADDR XYZ))
    (setq Z (CADDDR XYZ))
   
    (setq s (strcat  (vl-princ-to-string 内容) "," (rtos X 2 3) "," (rtos Y 2 3) "," (rtos Z 2 3)))
                         (write-line s ff)
   
    (setq i (1+ i))
  )
  (close fle)
  (SETQ FLE NIL)
  )
请问，上面代码运行正常，但CSV文件被CAD锁定编辑，是怎么回事？能释放它吗？