那位大神帮忙用lisp快速改变图框属性！

希望的田野

那位大神帮忙用lisp来完成这些问题？
注；图框名为；PX-A3, PX-A4
1;材质,热处理,输入快捷键SLD<单选>就可以把材质，跟热处理自动填到 图框指定的位置。
（每个零件材质热处理不一样一定要手动单选）例如；SLD HRC58°~60°
2;项目名称,输入快捷键就可以把项目名称，自动一次性填到多个图 框里。例如；AB
3;产品名称,输入快捷键就可以把产品名称，自动一次性填到多个图框里。例如；CD
4;模号,输入快捷键就可以把模号，自动一次性填到多个图框里。例如；123
5;设变日期1,输入快捷键就可以把设变日期1，自动一次性填到多个图框里。例如；8-12-2018
6;总张数,输入快捷键就可以统计A3与A4总张数，并自动把统计的A3与A4总和填到所有图框指定的位置里。

qingbo9818

(defun hs-tukuangmc ()
    "VA4")        ;修改图框名称


(defun c:h9 ()   ;修改命令
  (hs-cz  "MAT'L" "SKH-9" ));修改材质




(defun hs-cz   (bq cz / ss i  s1 )
  (princ "\n请选择图框:")
  (setq        ss (ssget                        ;"_C" pt1 pt2
             (list (cons -4 "<or") (cons 2 (hs-tukuangmc)) (cons -4 "OR>"))
           )
  )
  (setq i 0)
  (repeat (sslength ss)
    (setq s1 (ssname ss i))
    (setq i (1+ i))
    (hs-sxtx bq cz s1)
  )
)

(defun hs-sxtx ( pn text s1 / aa a1 x bb) ;  pn 属性 text 属性值 s1 图框
  (setq        aa (vlax-safearray->list
             (vlax-variant-value
               (vla-GetAttributes (vlax-ename->vla-object s1))
             )
           )
  )
  (setq        a1 (mapcar '(lambda (x)
                      (cons (vla-get-Tagstring x) x)
                    )
                   aa
           )
  )
  (setq bb (cdr (assoc pn a1)))
  (vla-put-textstring bb text)
)

e2002

这就是使用带一堆 Attribs 的图框的繁琐之处了...
合理的使用Xref，形成模块化，层级化的图纸组织方式，能有效简化这类操作。

希望的田野

qingbo9818 发表于 2019-5-13 21:20
(defun hs-tukuangmc ()
    "VA4")        ;修改图框名称

你好！调用你的程序提示找到0个，不知道问题在哪？麻烦指教。

希望的田野

qingbo9818 发表于 2019-5-13 21:20
(defun hs-tukuangmc ()
    "VA4")        ;修改图框名称

我用这个提示参数错误
(defun c:SKD11() (mthd_vl "SKD11" "HRC58%%d~60%%d"))
命令: skd11
选择对象:
; 错误: 参数类型错误: stringp nil
命令:

烟盒迷唇

根据提示修改正确完才行

cad890

e2002 发表于 2019-5-14 10:21
这就是使用带一堆 Attribs 的图框的繁琐之处了...
合理的使用Xref，形成模块化，层级化的图纸组织方式，能 ...

请问外部参照怎么形成层级化的图纸组织？

paulpipi