麻烦谁有这个LSP：加载LSP时自动替换指定文字

天凉好个秋 · 发表于 2024-12-29 09:25:10

这样，麻烦各位路过看下

惜惜2 · 发表于 2024-12-29 16:30:39

(setq ss (ssget "x"
      '((0 . "INSERT*")
      (410 . "Model")
      )
   )
)
(repeat (setq n (sslength ss))
   (setq blockref (SSNAME SS (setq n (1- n))))
   (setq blockref (vlax-ename->vla-object blockref))
   (if (= (vla-get-HasAttributes blockref) :vlax-true)
  (foreach attrib  (VLAX-SAFEARRAY->LIST
      (VLAX-VARIANT-VALUE
      (vla-getattributes blockref)
      )
   )
(cond
   ((= (vla-get-tagstring attrib) "制图")
   (vla-put-textstring attrib "李四")
   )
   )
)
(princ) 有个缺陷，嵌套块用不了，蹲个大佬

天凉好个秋 · 发表于 2025-1-5 08:31:30

日常顶一下

天凉好个秋 · 发表于 2025-1-6 15:11:05

日常顶一下

天凉好个秋 · 发表于 2025-1-13 08:26:25

日常顶一下

天凉好个秋 · 发表于 2025-1-14 08:38:06

日常顶一下

BEYOND1010 · 发表于 2025-1-14 16:00:59

日常顶一下

天凉好个秋 · 发表于 2025-1-17 08:26:02

日常顶一下

天凉好个秋 · 发表于 2025-1-18 13:09:21

日常顶一下

天凉好个秋 · 发表于 2025-2-10 08:31:17

过完年日常顶一下！

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

麻烦谁有这个LSP：加载LSP时自动替换指定文字

本帖子中包含更多资源

评分

评分