直线自动标注尺寸

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

这是它的升级

[code]；；============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）（