如何实现在文字或标注前或后这些功能

120120

如何在文字或标注前加数量？如:2-?   ２由用户输入 ?是已经有的文字或标注！

还有如何在标注前加螺丝数量　如：2-m?　２由用户输入 m为程序加入 ?是已经有的标注！

以上实现的功能前提下必须不能改变标注或文字的大小和样式！颜色也不能改变!

鬼魔

DIMSTYLE

主单位里面有 前缀 后缀

仔细看下

120120

我想写个LSP用.这样方便点.有朋友会不?

英雄无敌

1、先用(setq str (getstring))取得用记的输入；

2、调用dimlinear(命令可能不对，反正是标注尺寸的命令），pause两下，再加个"t" , str

(command"dimlinear" pause pause "t" (strcat str "-<>") pause )

加M的一样，改成(command"dimlinear" pause pause "t" (strcat str "-M<>") pause )就行了

没有试，只是提供方法，不能用的话自己看看是什么原因。

120120

好,谢谢!

无痕

我只说一句:

(command ".dimoverride" "DIMPOST" "2-m<>" "")

120120

两位兄弟,这样只能对标注的文字过行修改.不能对文本文字对修改!

英雄无敌

文字的你自己将命令改一下不就行了吗？dim改为TEXT

120120

(defun c:dn(/ xt xx)
  (setvar "cmdecho" 0)
  (setq xt (getreal "\n->请输入数量 <0>:"))
  (princ "\n->请选取要修改的*文字*标注*或 <退出>:")
  (if (<= xt 1)(setq xx (strcat "<>")))
  (if (> xt 1) (setq xx (strcat "" (rtos xt) "-<>")))
  (command "dim1" "n" xx)
  (princ)
)

我想大家能不能帮帮改一下这个我写的，有两个地方不足的，自已太菜不知怎么实现！

请输入数量 <0>  这里的这个0字。能不能实现上次输入的数字

修改完成后会提示多个个被修改的提示

ZZXXQQ

(defun c:dn(/ xt xx)
  (setvar "cmdecho" 0)
  (setq xt1 (if xt1 xg1 0))
  (setq xt (getint (strcat "\n->请输入数量 <" (itoa xt1) ">:")))
  (setq xt (if xt xt xt1) xt1 xt)
  (if (<= xt 1)(setq xx (strcat "<>")))
  (if (> xt 1) (setq xx (strcat "" (rtos xt) "-<>")))
  (command "dim1" "n" XX)
  (princ "\n->请选取要修改的*文字*标注*或 <退出>:")
  (princ)
)