xofox 发表于 2007-11-6 08:58:00

给文字批量添加边界偏移因子为1.1（或其他值）的背景遮罩的源程序(有详细注解)

本帖最后由 作者 于 2007-11-6 9:06:55 编辑 <br /><br /> <p>CAD2005以后版本中就有了背景遮罩功能,但其默认值为1.5多数情况下不太合适</p><p>在<font face="Times New Roman">Autodesk</font>官方网站技术支持知识库查询，其中关于多行文字的背景遮罩边界偏移因子默认值修改的问题（问题<font face="Times New Roman">ID</font>号<font face="Times New Roman">TS1059918</font>），其解释为“<font face="Times New Roman">In the Background Mask dialog box, the default value for the Border Offset factor is 1.5000. In current AutoCAD&reg; releases, it is not possible to define a different default value for this setting.</font>”意为在背景遮罩对话框中，边界偏移因子的默认值为<font face="Times New Roman">1.5</font>，在当前的<font face="Times New Roman">AutoCAD</font>版本中，该默认值是不能修改的。
                        <p></p></p><p></p><p></p><p>所以写了此程序</p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 18pt; mso-char-indent-count: 2.0;">解决问题的基本思路为：选取文本<font face="Times New Roman">&gt;</font>若是单行文本，先转换为多行文本<font face="Times New Roman">&gt;</font>若多行文本已启用背景遮罩功能，修改其边界偏移因子为<font face="Times New Roman">1.1</font>，填充颜色使用图形背景颜色；若未启用，增加该功能，设定其边界偏移因子为<font face="Times New Roman">1.1</font>，填充颜色使用图形背景颜色。
                        <p></p></p><p></p><p></p><p>我加上了详细注解,觉得有用的话拿去吧.</p><p>注意：单行文本转多行文本时文本宽度的计算要选取适当系数</p><p>bg_mask.lsp</p><p>-----------------------------程序代码--------------------------------------------</p><p>;这个lisp程序的作用是，将单行文本转换为多行文本，为多行文本设置背景遮罩<br/>;背景遮罩边界偏移因子为1.1，使用图形背景颜色填充。<br/>;s1选择集名称，i m n 计数器，addlist增加的组码<br/>;entname 图元名,nlist 图元数据,tid 图元标志(若为TEXT则表示为单行文本),tt 文本,th文本高度<br/>;pt 文本基点,tang 文本旋转角度,ttlen 文本大致长度,tstr 相对坐标形式的多行文本的另一点</p><p><br/>(defun c:bg()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;首先要对图形进行一些设置，否则将会影响程序的使用。在程序结束前将会恢复这些设置！<br/>&nbsp; (setq sysosnap (getvar "OSMODE"))&nbsp;;取得对象捕捉设置<br/>&nbsp; (setvar "OSMODE" 16384)&nbsp;&nbsp;;关闭对象捕捉<br/>&nbsp; (setq sysang (getvar "ANGDIR"))&nbsp;;取得角度方向（顺时针/逆时针）<br/>&nbsp; (setvar "ANGDIR" 0)&nbsp;&nbsp;&nbsp;;设置为逆时针方向<br/>&nbsp; (setq sysabase (getvar "ANGBASE"))&nbsp;;取得方向的基准角度<br/>&nbsp; (setvar "ANGBASE" 0)&nbsp;&nbsp;&nbsp;;设置方向的基准角度为东<br/>&nbsp; (command "ucs" "")&nbsp;&nbsp;&nbsp;;设置为wcs<br/>&nbsp; </p><p>&nbsp; (setq s1 (ssget))&nbsp;&nbsp;&nbsp;&nbsp;;选取单行文本或多行文本，构造非空选择集<br/>&nbsp; (if (/= s1 nil) (print) &nbsp;&nbsp;&nbsp;;构造选择集成功，继续<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;构造失败，恢复设置退出<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setvar "OSMODE" sysosnap)&nbsp;&nbsp;;恢复对象捕捉设置<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setvar "ANGDIR" sysang)&nbsp;&nbsp;;恢复角度方向<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setvar "ANGBASE" sysabase)&nbsp;&nbsp;;恢复方向的基准角度<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "ucs" "p")&nbsp;&nbsp;&nbsp;;恢复ucs<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (exit)&nbsp;&nbsp;&nbsp;&nbsp;;退出<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp; )</p><p><br/>&nbsp; (setq i 0 m 0 n 0)&nbsp;&nbsp;&nbsp;&nbsp;;设置计数器，m为转换单行文本个数，n为多行文本个数<br/>&nbsp; (repeat (sslength s1)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq entname (ssname s1 i))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq nlist (entget entname))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq tid (cdr (assoc 0 nlist)))&nbsp;&nbsp;;判断是单行文本或多行文本<br/>&nbsp;&nbsp;&nbsp;&nbsp; (if (= tid "TEXT") &nbsp;&nbsp;&nbsp;&nbsp;;如果是单行文本，先转换为多行文本<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq m (1+ m))&nbsp;&nbsp;&nbsp;&nbsp;;计数器<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq tt (cdr (assoc 1 nlist)))&nbsp;&nbsp;;取得文字<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq th (cdr (assoc 40 nlist)))&nbsp;&nbsp;;取得文字高度<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq pt (cdr (assoc 10 nlist)))&nbsp;&nbsp;;取得文字插入点<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ang (cdr (assoc 50 nlist)))&nbsp;&nbsp;;取得文字旋转角度<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ttlen (strlen tt))&nbsp;&nbsp;&nbsp;;取得文字长度<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq twid (* (* th 0.7) ttlen))&nbsp;&nbsp;;计算文字宽度，不同字体、CAD版本、图形，文字高度与宽度关系可能不同，可直接修改系数0.7为适当值<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq tang (/ (* 180 (+ ang (atan(/ th twid)))) pi))&nbsp;;计算多行文本对角点的旋转角度<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq tlen (sqrt (+ (* th&nbsp; th) (* twid twid))))&nbsp;&nbsp;;计算多行文本对角线的长度<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq tstr (strcat "@" (rtos tlen) "&lt;" (rtos tang)))&nbsp;;对角点的相对坐标<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ang (/ (* ang 180) pi))&nbsp;&nbsp;&nbsp;&nbsp;;转换弧度为角度<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "-mtext" pt "h" th "r" ang tstr tt "")&nbsp;&nbsp;;在原位置以原角度原高度生成多行文本<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entdel entname)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;删除单行文本</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq entname (entlast))&nbsp;&nbsp;&nbsp;;取出最近转换成的多行文本<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq nlist (entget entname))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq addlist (list(cons 45 1.1)))&nbsp;&nbsp;;背景遮罩边界偏移因子为1.1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq addlist (cons (cons 63 256) addlist));填充颜色使用图形背景颜色<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq addlist (cons (cons 90 3) addlist))&nbsp;;表示使用背景颜色，另外组码441为背景的透明度，目前版本无法使用，系统会自动增加该组码<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (= (assoc 45 nlist) nil) &nbsp;&nbsp;;如果多行文本未使用背景遮罩，增加组码<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq nlist (append nlist addlist))&nbsp;;增加上面3个组码<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entmod nlist)&nbsp;&nbsp;&nbsp;;更新显示<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;如果已使用背景遮罩，直接更改组码<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq nlist (subst (cons 45 1.1) (assoc 45 nlist) nlist)) ;作用同上<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq nlist (subst (cons 63 256) (assoc 63 nlist) nlist))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq nlist (subst (cons 90 3) (assoc 90 nlist) nlist))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entmod nlist)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (= tid "MTEXT") &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;如果是多行文本<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq n (1+ n))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;计数器<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq addlist (list(cons 45 1.1)))&nbsp;&nbsp;;背景遮罩边界偏移因子为1.1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq addlist (cons (cons 63 256) addlist))&nbsp;;填充颜色使用图形背景颜色<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq addlist (cons (cons 90 3) addlist))&nbsp;;表示使用背景颜色，另外组码441为背景的透明度，目前版本无法使用，系统会自动增加该组码<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (= (assoc 45 nlist) nil) &nbsp;&nbsp;&nbsp;;如果多行文本未使用背景遮罩，增加组码<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq nlist (append nlist addlist))&nbsp;;增加上面3个组码<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entmod nlist)&nbsp;&nbsp;&nbsp;&nbsp;;更新显示<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;如果已使用背景遮罩，直接更改组码<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq nlist (subst (cons 45 1.1) (assoc 45 nlist) nlist)) ;作用同上<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq nlist (subst (cons 63 256) (assoc 63 nlist) nlist))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq nlist (subst (cons 90 3) (assoc 90 nlist) nlist))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entmod nlist)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq i (1+ i))&nbsp; <br/>&nbsp;&nbsp; )</p><p><br/>&nbsp; (setvar "OSMODE" sysosnap)&nbsp;&nbsp;;恢复对象捕捉设置<br/>&nbsp; (setvar "ANGDIR" sysang)&nbsp;&nbsp;;恢复角度方向<br/>&nbsp; (setvar "ANGBASE" sysabase)&nbsp;&nbsp;;恢复方向的基准角度<br/>&nbsp; (command "ucs" "p")&nbsp;&nbsp;&nbsp;;恢复ucs<br/>&nbsp; (prompt (strcat "转换单行文本" (itoa m) "个，多行文本" (itoa n) "个。请验证是否正确！")) </p><p>)</p><p>--------------------------------------------------------------------------------------------------</p>

天天问 发表于 2021-1-21 09:50:36

楼主这段代码很厉害。向楼主请教个问题，怎么用Lisp给多重引线打开文字遮罩啊？

cqu20104225 发表于 2020-3-8 10:09:29

好工具，收下了，学习一下

鬼子112255 发表于 2019-3-2 23:02:37

好东西，感谢分享

xofox 发表于 2007-11-12 09:54:00

没人识货呀。。。。。。。。

hanyu_gis 发表于 2007-11-13 12:00:00

<p>不错。高手！呵呵。</p><p></p>

phoenixdjq 发表于 2007-11-13 12:23:00

<p>先收下了</p><p>很少用到这个，回头再用</p>

xhq1954425 发表于 2007-11-13 13:05:00

<p>谢谢分享！非常感谢！下来学习。</p>

further00 发表于 2008-5-3 22:49:00

<p>刚好不知道怎么批量修改呢，这个程序不错，谢谢！</p>

further00 发表于 2008-5-3 22:56:00

<p>不知能不能，直接把多行文字的宽度改成为，现有文字的宽度！</p><p>有时，多行文字的宽度太大或者太小了，背景遮罩就会太小或太大</p><p>panshengze4@sohu.com</p>

glowz 发表于 2008-7-26 23:00:00

<p>很有用的工具 </p>

rongyifei 发表于 2008-7-27 12:29:00

很好!

jxlsp 发表于 2008-7-27 13:47:00

谢谢分享！
页: [1] 2 3 4
查看完整版本: 给文字批量添加边界偏移因子为1.1（或其他值）的背景遮罩的源程序(有详细注解)