2013-07-07 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

laibinwu

武影倾城(420932492)于2013-07-07 17-08-31：
掉坑里了。

laibinwu

武影倾城(420932492)于2013-07-07 17-08-33：
晕死

laibinwu

武影倾城(420932492)于2013-07-07 17-08-41：
[face27.gif]

zml84

ZML84(389280742)于2013-07-07 17-10-46：
[qqimg]{110E37FB-88F2-7A10-7641-B2EAB40A39AF}.jpg[/qqimg]

CCarch

書生—SLQ(421944906)于2013-07-07 18-25-36：
签到

清风明月10

清风明月(897902105)于2013-07-07 18-43-25：
请问，如何使得变量不释放 ，下次运行还可以用，
试了两边加“*”的方法没有用

laibinwu

武影倾城(420932492)于2013-07-07 18-44-23：
注册表

laibinwu

武影倾城(420932492)于2013-07-07 18-44-29：
或者文件

清风明月10

清风明月(897902105)于2013-07-07 18-45-07：
我就希望象VBA一样，可以成为全局变量

清风明月10

清风明月(897902105)于2013-07-07 18-46-06：
放在注册表里太麻烦，VBA就可以放在模块的顶部。LISP不知道如何处理、

laibinwu

武影倾城(420932492)于2013-07-07 18-47-00：
外部文件了

清风明月10

清风明月(897902105)于2013-07-07 18-47-11：
(defun c:tt ( / ent qq *过滤用的字符* 输入 输入2 图元组码 *序号* 坐标点对) ;只炸开理正图元"CCOMPLEXTEXT,CPMTEXTCDBPMZK,CDBDMX,CGTEXT,GLZTEXT"，
;当选择集中有两个以上图元时成立，如果只有一个图元，则运行错误
;;qaflags这个系统变量一般为0，但如果为零一次就只能炸开一个图元，为1则可以炸开所以选定的图元。但它还有其它作用，所以最好设回0
(setvar "qaflags" 1)
(IF (=( setq 输入2 (getstring "选择集中第几个，是以0开始的，即*序号*") ) "")
  (PRINC *序号*)
  (setq *序号* 输入2)
  )

  
( IF (= *序号* nil)
  (SETQ *序号* 0)
  )
  
  (PRINT *序号*)

(IF (=( setq 输入 (vl-princ-to-string (getstring "*过滤用的字符*")) ) "")
  (PRINC *过滤用的字符*)
  (setq *过滤用的字符* 输入)
  )

  ( IF (= *过滤用的字符* NIL)
  (SETQ *过滤用的字符* (getstring "必须输入*过滤用的字符*"))
  )
  


  
  (if (setq QQ (ssget "X" (list (cons 0  "TEXT") (cons 1  (strcat "*" *过滤用的字符* "*")))))
(progn
; (IF(= 1 (sslength QQ))
  ; (setq ent  QQ )
    (setq ent (ssname QQ *序号*))
  ; );IF结束

(setq 图元组码 (entget ent))
      ; (setq 图元类型 (assoc '0 图元组码))
      ; (setq 图元类型 (cdr 图元类型))
      ; (if (= 图元类型 "TEXT")(progn
        (setq 坐标点对(CDR (assoc '10 图元组码)))
   
(COMMAND "ZOOM" "C" 坐标点对 0.2 "")
)
)
  (SETQ *序号* (+ *序号* 1))
(setvar "qaflags" 0)
(princ)  
)

清风明月10

清风明月(897902105)于2013-07-07 18-47-54：
比如上面代码，如果变量不释放，我就可以查第2个直到第N个图元了

CCarch

ZZXXQQ(1468225785)于2013-07-07 18-53-55：
要用的变量不要放在函数名后的括弧中

laibinwu

武影倾城(420932492)于2013-07-07 18-55-00：
下次打开cad就失效了