abtjy 发表于 2008-12-2 13:47:00

请教一个尺寸标注文字替代LISP，谢谢！

<div class="tpc_content" id="read_tpc">例15.000，1.输入命令后，2.输入字符"int” 3.选尺寸15.000（最好可复选）回车尺寸变成INT15.000</div>

ZZXXQQ 发表于 2008-12-3 21:07:00

<p>(defun c:tt ()<br/>&nbsp;(if (setq stt (getstring "\n输入字符 :")) (progn<br/>&nbsp; (setq stt (strcat stt "&lt;&gt;"))<br/>&nbsp; (command ".DIMOVERRIDE" "DIMPOST" stt "")<br/>&nbsp;))<br/>&nbsp;(princ)<br/>)</p>

sjzm 发表于 2016-10-20 10:23:36

ZZXXQQ 发表于 2008-12-3 21:07
(defun c:tt ()&nbsp;(if (setq stt (getstring "\n输入字符 :")) (progn&nbsp; (setq stt (strcat stt " ...

你好，用了这段代码后在原标注尺寸前加了修改的尺寸，原来是1405，我修改成1400后变成14001405了

ll_j 发表于 2016-10-20 10:46:12

sjzm 发表于 2016-10-20 10:23
你好，用了这段代码后在原标注尺寸前加了修改的尺寸，原来是1405，我修改成1400后变成14001405了

那个代码是加前缀的，修改文字看看我这个古旧而简单的：
(defun c:nt()(command "dim1" "newtext"))

sjzm 发表于 2016-10-20 11:00:32

ll_j 发表于 2016-10-20 10:46
那个代码是加前缀的，修改文字看看我这个古旧而简单的：
(defun c:nt()(command "dim1" "newtext"))

简单粗暴而且有效
页: [1]
查看完整版本: 请教一个尺寸标注文字替代LISP，谢谢！