天凉好个秋 发表于 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

过完年日常顶一下！
页: 1 2 [3]
查看完整版本: 麻烦谁有这个LSP：加载LSP时自动替换指定文字