能改为文本后面加后缀吗

wgij007 · 发表于 2019-12-9 17:29

(DEFUN C:FE()(SETQ SS(SSGET))(COMMAND"._DIMEDIT" "n" "<>正面放电深5.1" SS "" ""))

这段标注加后缀，能改为文本加后缀与替代吗

hn10183051 · 发表于 2019-12-9 17:29

(defun c:888 ()

(if (setq ss (ssget '((0 . "TEXT"))))
(repeat (setq i (sslength ss))
(setq ent (entget(ssname ss (setq i (1- i)))))
(entmod (subst (cons 1 (strcat (cdr(assoc 1 ent)) "正面放电深5.1")) (assoc 1 ent) ent))
)
)
(princ)
)

lisperado · 发表于 2019-12-10 02:56

本帖最后由 lisperado 于 2019-12-10 03:37 编辑

改为文本后面加后缀——是否说明：无论改变测量点，文本数值将保持而不更新？

(defun c:fe (/ lst ss)
(if (setq lst '(measurement unitsformat primaryunitsprecision)
ss (ssget '((0 . "*DIMENSION")))
)
(foreach x (acet-ss-to-list ss)
(setq x (vlax-ename->vla-object x))
(and (vl-every '(lambda ($) (vlax-property-available-p x $))
lst
)
(vla-put-textoverride
x
(strcat (apply 'rtos (mapcar '(lambda ($) (vlax-get x $)) lst))
" 正面放电深5.1"
)
)
)
)
(princ "\n选取无效？")
)
(princ)
)

wgij007 · 发表于 2019-12-10 07:56

lisperado 发表于 2019-12-10 02:56
改为文本后面加后缀——是否说明：无论改变测量点，文本数值将保持而不更新？

这个无效呀要求效果如下就可了

wgij007 · 发表于 2019-12-10 13:45

本帖最后由 wgij007 于 2019-12-10 13:47 编辑

hn10183051 发表于 2019-12-10 08:54
(defun c:888 ()

(if (setq ss (ssget '((0 . "TEXT"))))

可以了，谢谢

wgij007 · 发表于 2019-12-10 16:04

本帖最后由 wgij007 于 2019-12-10 18:01 编辑

wgij007 发表于 2019-12-10 07:56
这个无效呀要求效果如下就可了

还是有点问题，1.单行文字与多行文字不能共用， 2.字体不是跟修改的文本字体一至。有办法解决吗。

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

[提问] 能改为文本后面加后缀吗

最佳答案

本帖子中包含更多资源