[LISP程序]：复选修改字高

lulusteven

;****************** 复选修改字高 ************************
(defun c:lsp8-2()
   (setq newhh (getreal "新字高:"))
   (setq ss (ssget '((0 . "text"))))
   (if ss
       (chgdata_ss 40 newhh ss)
       (alert "未选取任何文字")
   )
   (prin1)
   (alert (strcat "共有:" (itoa (sslength ss))  "个文字被修改"))
   (prin1)

)
;********************************************************
(defun chgdata( g_num newval en)
(setq endata (entget en));取得en资料库
   (setq oldlist( assoc g_num endata));取得群码51之子串列
   (setq newlist( cons g_num newval));产生新群码51之子串列
   (setq endata(subst newlist oldlist endata));新旧交替
   (entmod endata);更新图面中图元
)
;*********************************************************
(defun chgdata_ss (g_num newval #ss)
   (setq i 0)
   (repeat (sslength #ss)
      (chgdata g_num newval (ssname #ss i))
      (setq i (1+ i))
   )
)

狂刀

ｓｃａｌｅｔｅｘｔ就挺好