给标注添加一个前缀（标注前缀）

xj6019 · 发表于 2020-2-24 16:35:33

(defun c:BB( )
(command ".UNDO" "BE")
  (VL-LOAD-COM)
  (setq AcadObject (vlax-get-acad-object)
   AcadDocument (vla-get-ActiveDocument Acadobject)
   mSpace       (vla-get-ModelSpace Acaddocument)
  )
  (setq prefix (strcat  "前綴"))
;;;選擇壹個標註
  (setq dimObj1 (car (entsel)))
  (setq dimObj (vlax-ename->vla-object dimObj1))
  ;;;添加前綴
  (vla-put-TextPrefix dimObj prefix)
  (command ".UNDO" "E")
  (princ)
)

xyp1964 · 发表于 2020-2-25 09:13:07

bai0379 发表于 2020-2-24 21:27
不错，能改为框选并能输入“前缀”更hao

(defun c:tt ()
(command ".UNDO" "BE")
(setq pf (getstring "\n前缀: "))
(if (setq ss (ssget '((0 . "dim*")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq ob (vlax-ename->vla-object s1))
(vla-put-TextPrefix ob pf)
)
)
(command ".UNDO" "E")
(princ)
)

bai0379 · 发表于 2020-2-24 21:27:51

不错，能改为框选并能输入“前缀”更hao

gowww · 发表于 2020-2-29 16:42:34

这个功能还不错

xyp1964 · 发表于 2024-1-13 11:16:16

(defun c:tt ()
"尺寸标注加后缀"
(command ".UNDO" "BE")
(setq sf (getstring "\n后缀: "))
(setq i -1)
(if (setq ss (ssget '((0 . "dim*"))))
(while (setq s1 (ssname ss (setq i (1+ i))))
(vla-put-TextSuffix (vlax-ename->vla-object s1) sf)
)
)
(command ".UNDO" "E")
(princ)
)

弥勒 · 发表于 2024-3-9 17:19:23

xyp1964 发表于 2024-1-13 11:16

版主，(command ".UNDO" "BE") 加这句的意义，不明白，注释掉也能跑。

uualice2020 · 发表于 2024-3-10 09:13:22

弥勒发表于 2024-3-9 17:19
版主，(command ".UNDO" "BE") 加这句的意义，不明白，注释掉也能跑。

加不加的效果，按下Ctrl+z就可以看出来了

冷风格 · 发表于 2024-3-19 00:04:29

可以可以，蛮不错。

zkq1212 · 发表于 2024-3-19 07:57:22

可以可以，谢谢

LinBinFen · 发表于 2024-4-27 14:52:12

好用，nice,感谢分享。

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

[讨论] 给标注添加一个前缀（标注前缀）

评分

评分