[LISP]请高手指点迷津（附属性块修改源码）

xhpei1 · 发表于 2004-9-23 18:25:00

我在lockmyeye和meflying两大高手指点下，编写了批量改变属性块中文字高度和宽度比例的程序，并将其放到ACAD2004.lsp中。在对图纸批量处理时，有属性块的图纸正常，但无属性块的图纸就报错（参数类型错误: lentityp），找不到解决办法。
敬请各位高手指点。(defun ModTxt(ent H / ent blkname ents h1 bl)
   (while (/= (cdr (assoc 0 ents)) "SEQEND")
   (if (or
   (= (cdr (assoc 0 ents)) "ATTRIB")
   )
   (progn
   (setq h1 (cdr (assoc 40 ents)))
   (setq bl (cdr (assoc 41 ents)))
   (setq ents (subst (cons 41 h) (assoc 41 ents) ents))
   (entmod ents)
   (setq ents (subst (cons 40 (* h1 bl)) (assoc 40 ents) ents))
   (entmod ents)
   )
   )
   (setq ent (entnext ent))
   (setq ents (entget ent))
   )
);主程序
(defun blkatt(/ olderr ss1 n nn ent name oldlist conlist newlist olds oldh olds1 sty7)
   (setq ss1(ssget "X" (list (cons 0 "INSERT"))))
   (if (/= ss1 nil)
   (progn
   (setq n 0 nn (sslength ss1) olds '1.01 )
   (repeat nn
     (setq name(ssname ss1 n))
   (ModTxt name 1)
   (setq n(1+ n))
   )
   )
   )
   (command "_.regen")
)