【e派】工具箱函数再揭秘及应用实例

寒潮大冬瓜 · 发表于 2024-4-29 23:58

xyp1964 发表于 2012-7-21 02:44

发表于 2012-7-21 02:44，每个大咖的成功都是努力得来,我之前努力学习也是琢磨到半夜……

寒潮大冬瓜 · 发表于 2024-4-30 00:01

;ZZ77批量改变图元文字样式名称
(DEFUN C:ZZ77()(ZZ77202404)(princ))
(defun ZZ77202404 ()
(SETQ  wenziName2024 (cdr (assoc 7 (entget (car (entsel)))))) ;获取所选图元的文字样式名
(setq NewwenziName2024(getstring (strcat "\n请输入ZZ77新文字样式名或者修改参照图元文字样式名：<" wenziName2024 ">")))
  (princ "\n请选择要改变的图元文字样式名2024年04月29日22时07分10秒")
  ;(setq ss (ssget "*text"))
(if (setq ss (ssget '((0 . "*text"))))
(xyp-SubUpd ss 7 NewwenziName2024);院长在明经http://bbs.mjtd.com/thread-95673-1-1.html公开的自定义函数
;xyp1964发表于 2012-7-21 01:18 xyp-SubUpd 更改图元DXF组码以修改实体属性 (xyp-SubUpd ename code newvalue)
)
  (princ)
)
拿来主义的模仿

xyp1964 · 发表于 2024-4-30 07:46

本帖最后由 xyp1964 于 2024-5-1 16:39 编辑

寒潮大冬瓜发表于 2024-4-30 00:01
;ZZ77批量改变图元文字样式名称
(DEFUN C:ZZ77()(ZZ77202404)(princ))
(defun ZZ77202404 ()

;; ZZ77批量改变图元文字样式名称
(defun c:ZZ77 () (abc (setq s1(car(entsel"\n选择参照文本: ")))) (princ))
(defun abc (e / st ss)
(setq st (xyp-DXF 7 e)
st (Ustr 1 "新文字样式名" st nil)
)
(if (setq ss (ssget '((0 . "*text")))) (xyp-SubUpd ss 7 st))
(princ)
)

寒潮大冬瓜 · 发表于 2024-4-30 22:01

xyp1964 发表于 2024-4-30 07:46

感谢院长优化指导！

账号		自动登录	找回密码
密码			注册

[讨论] 【e派】工具箱函数再揭秘及应用实例