关于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等关键字，我不太理解这些关键字的含义，求教各位，谢谢了 参考下帮助里的dxf组码就知道了 回复 snddd2000 的帖子
恩，谢谢啦
页:
[1]