关于ASSOC函数的关键字问题

盛麒毓

各位大侠，请大家看一下这个程序：

;属性按选择顺序加1。明经 ZZXXQQ 2009.10.2,2010.6.29
(defun c:add1 ()
(if (setq n (getint "\nInput Start Number 输入起始号 :"))
  (progn
  (while (and (setq s1 (entsel "\nSelect Block with Attrib 选择带属性图块 :"))
         (setq ent (entget(setq en (car s1))))
          (= (cdr(assoc 0 ent)) "INSERT")
          (= (cdr(assoc 66 ent)) 1))
   (setq ent1 ent)
   (while (= (cdr(assoc 0 (setq ent1 (entget(entnext(cdr(assoc -1   ent1))))))) "ATTRIB")
    (if (= (cdr(assoc 2 ent1)) "地块编号") (progn
  (setq ttx (cdr(assoc 1 ent1))
           ttx (substr ttx 1 (- (strlen ttx) 2)))
     (setq txtn (strcat ttx (if (< n 10) "0" "") (itoa n)))
     (setq ent1 (subst(cons 1 txtn) (assoc 1 ent1) ent1))
     (entmod ent1)
     (entmod ent)
    ))
   )
   (setq n (1+ n))
  )
))
(princ)
)
这个程序里很多asso函数后面加了 0， 66 ， -1，  2等关键字，我不太理解这些关键字的含义，求教各位，谢谢了

snddd2000

参考下帮助里的dxf组码就知道了

盛麒毓

回复 snddd2000 的帖子

恩，谢谢啦