[求助]文字宽度自适应
<strong><font size="5">大家好，小弟是刚刚接触lisp，前几天，我用到了一个工具里的这种程序，它可以选择单行文字起点与终点的位置，来自动调整文字的宽度，就是文字自动适应所选择的宽度，我感觉这个程序的用处还是很大的，不知道我是否描述清楚没有，呵呵，不知道各位大侠是否有实现这种功能的lisp，与大家共享？谢谢</font></strong> (DEFUN C:TXTWID()(SETQ ENT (CAR (ENTSEL "请选择单行文字:"))
PT1 (GETPOINT "\n请选择宽度起点:")
PT2 (GETPOINT "\n请选择宽度终点:" PT1)
DATA (ENTGET ENT)
OLDWID (ASSOC 41 DATA)
TEXTWID (- (CAADR (TEXTBOX DATA)) (CAAR (TEXTBOX DATA)))
DIS (DISTANCE PT1 PT2)
NEWWID (* (/ (CDR OLDWID) TEXTWID) DIS)
NEWWID (CONS 41 NEWWID)
)
(SETQ DATA (SUBST NEWWID OLDWID DATA))
(ENTMOD DATA)
(PRINC)
)
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">内建命令引用 Align</font></p>
<p> </p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">Command: Text<br/>Current text style: "STANDARD" Text height: 4.0000<br/>Specify start point of text or : J<br/>Enter an option : A</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">Specify first endpoint of text baseline:<br/>Specify second endpoint of text baseline:<br/>Enter text: Test Text</font></p> 非常谢谢Andyhon大侠的回帖，我的帖子没太说清楚，我所说的这种功能是针对已经在cad中写好的文字，来自适应修改文字的宽度，不知道该如何实现？ <font style="BACKGROUND-COLOR: #ffffff" face="Verdana">且试试这个<br/>http://www.74mph.com/forum/topic.asp?TOPIC_ID=50</font> 本帖最后由 作者 于 2010-8-2 11:12:57 编辑 <br /><br /> <p>再次感谢Andyhon大侠，这个lisp程序，我下载试过了，功能上有些缺陷，可以达到根据所选择的文字的起点和终点来改变文字宽度的功能，但美中不足之处在于，把文字的高度也随之改变了，要是能够不改变文字的高度，那就更完美了！下面是Andyhon大侠提供链接的程序！</p> 非常感谢<font face="Verdana" color="#61b713"><b>piao1887</b></font>大侠的回帖，测试过<font face="Verdana" color="#61b713"><b>piao1887</b></font>大侠的程序，正是我所希望达到的功能，再次感谢！ Andyhon发表于2010-8-2 10:27:00static/image/common/back.gif且试试这个http://www.74mph.com/forum/topic.asp?TOPIC_ID=50
<p>抱歉，找不到与“<em>http://www.74mph.com/forum/topic.asp?TOPIC_ID=50</em>”相符的网页<br/>不知是什么原因?</p> <p>谢谢6楼</p>
<p>下载了试试</p> <p>頂一下~~</p>
<p>這個功能不錯!!</p>
页:
[1]
2