lengliqun 发表于 2010-7-24 13:12:00

[求助]求一lsp程序，将尺寸标注里的文字高度改为300，箭头大小改为100。

<font face="Verdana">求一lsp程序，将尺寸标注里的文字高度改为300，箭头大小改为100。</font>

ZZXXQQ 发表于 2010-7-24 14:23:00

<p>(defun c:tt ()</p>
<p>&nbsp;(setvar "CMDECHO" 0)</p>
<p>&nbsp;(setvar "DIMTXT" 300)</p>
<p>&nbsp;(setvar "DIMASZ" 100)</p>
<p>&nbsp;(command "-dimstyle" "S" (getvar "DIMSTYLE") "y")</p>
<p>&nbsp;(setvar "CMDECHO" 1)</p>
<p>&nbsp;(princ)</p>
<p>)</p>

lengliqun 发表于 2010-7-24 15:30:00

<p>运行完命令后，自动将有的标注改得符合要求，但有的标注并没有发生变化，文字高度还是400，箭头大小还是<font face="Verdana">266.67。</font></p>
<p>&nbsp;</p>
<p>能否的一个选择的操作，将所选择尺寸标注里的文字统一高度改为300，箭头大小改为100，这样图面比较美观。</p>

ZZXXQQ 发表于 2010-7-24 17:26:00

<p>再更新一下尺寸就行了。</p>
<div id="textstyle_2" style="FONT-SIZE: 12pt; OVERFLOW: hidden; WORD-BREAK: break-all; TEXT-INDENT: 0px; WORD-WRAP: break-word">
<p>(defun c:tt ()</p>
<p>&nbsp;(setvar "CMDECHO" 0)</p>
<p>&nbsp;(setvar "DIMTXT" 300)</p>
<p>&nbsp;(setvar "DIMASZ" 100)</p>
<p>&nbsp;(command "-dimstyle" "S" (getvar "DIMSTYLE") "y")</p>
<p>&nbsp;(command "-dimsytle" "A" all "")</p>
<p>&nbsp;(setvar "CMDECHO" 1)</p>
<p>&nbsp;(princ)</p>
<p>)</p></div>

lengliqun 发表于 2010-7-24 19:14:00

<p>&nbsp;</p>
<p>1、可不可以只改选择到的标注？</p>
<p>&nbsp;</p>
<p>2、对曾经被手动改过字高的标注始终无效？</p>
<p>&nbsp;</p>
<p>&nbsp;</p>

ZZXXQQ 发表于 2010-7-24 19:31:00

<p>头一个程序就是不改手动改过字高的标注。</p>
<p>如果非要人工选择，将all改成PAUSE就行了。</p>

461045462 发表于 2010-7-25 07:29:00

<p>谢谢版主</p>
<p>从中学到举一反三的原理。</p>
<p>方便实用,很不错。</p>

lengliqun 发表于 2010-7-25 08:55:00

明了，谢谢版主。

lwz2001 发表于 2010-8-4 21:59:00

<p>是否能做一个LISP把所选择到的尺寸标注标注线长固定为一个固定的长度呢？</p>

longer1000 发表于 2012-6-26 17:12:34

谢谢版主。
页: [1] 2
查看完整版本: [求助]求一lsp程序，将尺寸标注里的文字高度改为300，箭头大小改为100。