[求助]文字宽度自适应

xzqk132

大家好，小弟是刚刚接触lisp，前几天，我用到了一个工具里的这种程序，它可以选择单行文字起点与终点的位置，来自动调整文字的宽度，就是文字自动适应所选择的宽度，我感觉这个程序的用处还是很大的，不知道我是否描述清楚没有，呵呵，不知道各位大侠是否有实现这种功能的lisp，与大家共享？谢谢

piao1887

1. (DEFUN C:TXTWID()
2. (SETQ ENT (CAR (ENTSEL "请选择单行文字:"))
3.     PT1 (GETPOINT "\n请选择宽度起点:")
4.     PT2 (GETPOINT "\n请选择宽度终点:" PT1)
5.     DATA (ENTGET ENT)
6.     OLDWID (ASSOC 41 DATA)
7.     TEXTWID (- (CAADR (TEXTBOX DATA)) (CAAR (TEXTBOX DATA)))
8.     DIS (DISTANCE PT1 PT2)
9.     NEWWID (* (/ (CDR OLDWID) TEXTWID) DIS)
10.     NEWWID (CONS 41 NEWWID)
11.     )
12. (SETQ DATA (SUBST NEWWID OLDWID DATA))
13. (ENTMOD DATA)
14. (PRINC)
15. )

复制代码

Andyhon

内建命令引用 Align

 

Command: Text
Current text style:  "STANDARD"  Text height:  4.0000
Specify start point of text or [Justify/Style]: J
Enter an option [Align/Fit/Center/Middle/Right/TL/TC/TR/ML/MC/MR/BL/BC/BR]: A

Specify first endpoint of text baseline:
Specify second endpoint of text baseline:
Enter text: Test Text

xzqk132

非常谢谢Andyhon大侠的回帖，我的帖子没太说清楚，我所说的这种功能是针对已经在cad中写好的文字，来自适应修改文字的宽度，不知道该如何实现？

Andyhon

且试试这个
http://www.74mph.com/forum/topic.asp?TOPIC_ID=50

xzqk132

再次感谢Andyhon大侠，这个lisp程序，我下载试过了，功能上有些缺陷，可以达到根据所选择的文字的起点和终点来改变文字宽度的功能，但美中不足之处在于，把文字的高度也随之改变了，要是能够不改变文字的高度，那就更完美了！下面是Andyhon大侠提供链接的程序！

xzqk132

非常感谢piao1887大侠的回帖，测试过piao1887大侠的程序，正是我所希望达到的功能，再次感谢！

461045462

Andyhon发表于2010-8-2 10:27:00且试试这个http://www.74mph.com/forum/topic.asp?TOPIC_ID=50

抱歉，找不到与“http://www.74mph.com/forum/topic.asp?TOPIC_ID=50”相符的网页
不知是什么原因?

461045462

谢谢6楼

下载了试试

pizg

頂一下~~

這個功能不錯!!