chelsea1307 发表于 2022-7-6 09:11:42

是的，这就是我说的

Fire Alarm 发表于 2022-7-6 09:12:43

谢谢你的回复。在我尝试这个之前，有一个问题。这是我的一个大头痛，我不能用Lisp程序。我打开记事本，粘贴文字，另存为一个。lsp文件，然后加载lisp。对的然后向上按“冷”作为命令？

chelsea1307 发表于 2022-7-6 09:16:45

是的，将文件另存为。然后可以使用appload加载它。然后在命令行输入leng，你应该都很好了

Lee Mac 发表于 2022-7-6 09:18:35

这是它的升级
 
；；============pLen。lsp==============；；；；功能：；；将显示a的长度；；选择直线或多段线。；；；；语法：pLen；；；；作者：；；版权所有（c）2009，Lee McDonnell；；（联系CADTutor.net的李·麦克）；；；；；；版本：；；1.0~30.06.2009;;;; ====================================（defun c:pLen（/*error*doc spc ent cObj tStr tSze tBox wBse gr cPt pt cAng lAng）（vl load com）（defun*error*（msg）（and tObj（not（vlax-erased-p tObj））（vla delete tObj））（if（not（wcmatch（strcase msg）”*BREAK，*CANCEL*，*EXIT*）（princ（strcat“\n>”）（princ））（if（等式4（logand 4（cdr（assoc 70（tblsearch“LAYER”（getvar“CLAYER”ΉΉΉ））（progn（princ“>”）（exit））（setq doc（vla get ActiveDocument（vlax get Acad Object））spc（if（zerop（vla get activespace doc））（if（=（vla get mspace doc）：vlax true）（vla get modelspace doc）（vla get paperspace doc））（vla get modelspace doc））（while（progn（setq ent（car（entsel“\n选择对象：）））（cond（（eq‘ENAME（type ent））（setq cObj（vlax ENAME->vla Object ent））（if（vlax-property-available-p cObj’length）（not（print（setq tStr（vl princ to string（vla get length cObj）'））））（princ“\n**选择了无效的对象**”））（t（princ“\n**未选择任何对象**”）（或*Mac$Per*（setq*Mac$Per*（/pi 2）））（或*Mac$tOff*（setq*Mac$tOff*1。））（或tSze（setq tSze（getvar“TEXTSIZE”））（setq tBox（textbox）（列表（cons 1（strcat tStr“.”））（cons 40 tSze）（cons 7（getvar“TEXTSTYLE”）））wBse（文本框（列表（cons 1）”（cons 40 tSze）（cons 7（getvar“TEXTSTYLE”）））wBse（-（caadr wBse）（caar wBse））（vla put attachmentpoint（setq tObj（vla addMText spc（vlax-3D-point’（0 0））（setq tWid（-（caadr tBox）（caar tBox）））tStr）ACATTACHMENTPOINTMIDLECENTER）（vla put Height tObj tSze）（princ“>”；；放置文本（while（or）（and（setq gr（grread t 15 0））（eq（car gr）5））（and（eq 2（car gr））（vl位置（cadr gr）'（43；+45；-61；+（as=）80 112；P/P 60 62 44 46））；<>。（cond（（and（eq 5（car gr））（listp（setq cPt（cadr gr）））（setq pt（vlax curve getClosestPointto cObj cPt）cAng（angle pt cPt）lAng（+cAng*Mac$Per*））（cond（（and（>lAng（/pi 2））（lAng pi）（

Fire Alarm 发表于 2022-7-6 09:24:09

这就是我所想的，然而，当我用记事本保存它时，我只能保存为一个。txt文件。完成后，我将扩展名从a更改为。txt表示。lsp，然后加载find，但leng命令不起作用。

Lee Mac 发表于 2022-7-6 09:24:59

 
确保“另存为类型”框设置为“所有文件”。
 
也可以在AutoCAD提供的Visual LISP编辑器中加载LISP文件，在命令行键入VLIDE。

chelsea1307 发表于 2022-7-6 09:28:29

将saveas type设置为all type*后。文件名的lsp in和保存位置中的所有lsp文件现在将显示，您可以用要另存为的名称替换*

Fire Alarm 发表于 2022-7-6 09:32:54

当我使用vlide时，它工作了，但是我如何才能让文本以英尺的形式显示呢？lisp中是否需要某种尺寸或距离命令？

Lee Mac 发表于 2022-7-6 09:36:32

 
您使用的是哪种LISP？

Fire Alarm 发表于 2022-7-6 09:39:39

你（李·麦克）在下面提供的链接。
 
http://www.cadtutor.net/forum/showthread.php?t=36659
页: 1 [2]
查看完整版本: 直线自动标注尺寸