此代码为一个简单的文本la

Utah_Indie · 发表于 2022-7-6 09:42:50

我似乎无法让这三个文本项不是一个在另一个之上：x
我已经拿了这个基本文件，并试图用它做一些更详细的事情，它也有同样的问题，但这段代码自1/20以来一直没有被修改过，所以我想知道它是一个系统变量还是什么。即使是在一月份，每隔一段时间，3个文本对象中的一个会在其他文本对象的附近或多段线的顶点处执行自己的操作。我很困惑。

copy

 
;adapted from code from Jeffery P. Sanders
(defun C:GA()
 ;turn the system echo off
 (setvar "cmdecho" 0)
 ;UNITS AND PRECISION
 (setvar "LUPREC" 0)
 (setvar "LUNITS" 2)
 (setvar "mtextcolumn" 0)
 ;layer settings
(if
(not
(tblsearch "layer" "A-FLOOR-IDEN")
)
(command "-layer" "m" "A-FLOOR-IDEN" "C" "GREEN" "A-FLOOR-IDEN" "")
(
)
)
(if
(not
(tblsearch "layer" "A-ANNO-NOTE")
)
(command "-layer" "m" "A-ANNO-NOTE" "C" "8" "A-ANNO-NOTE" "")
(
)
)
(if
(not
(tblsearch "layer" "A-AREA-IDEN")
)
(command "-layer" "m" "A-AREA-IDEN" "C" "YELLOW" "A-AREA-IDEN" "")
(
)
)
 ;set up a variable to hold the area
 (while T
   (setq myArea 0)
 (setq SpaceType 0)
 ;select one object
 
 (setq ent(entsel))
 (if (car ent)
   (progn
     ;find the area of the polyline
     (command "area" "Object" (car ent))
     (setq x (getvar "Area"))
      
     (if(setq pt1(getpoint "\n Insertion Point: "))
       (progn
(SETVAR "CLAYER" "A-FLOOR-IDEN") ;SETS AREA in Square foot TEXT LAYER CLAYER VARIABLE TO A-FLOOR-IDEN
(command "mtext" pt1 "@6,0" (strcat (rtos x 2 2) " sq ft")"")
  
(SETVAR "CLAYER" "A-ANNO-NOTE") ;SETS OFFICE TYPE TEXT LAYER CLAYER VARIABLE TO A-ANNO-NOTE
(setq SpaceType(getstring T "\n Enter Space Type "))
 
(command "mtext" (polar pt1 (* pi 1.5) (* 1.5 (getvar "textsize")))
 "@6,0" (strcat SpaceType)"")
(SETVAR "CLAYER" "A-AREA-IDEN") ;SETS OFFICE TYPE TEXT LAYER CLAYER VARIABLE TO A-AREA-IDEN
(setq n (+ n 1))
(command "mtext" (polar pt1 (* pi 1.5) (* -1.5 (getvar "textsize")))
 "@6,0" (strcat (rtos n 2 0))"")
         )
       )           ;close the if progn for point selection
     )             ;close the if
   )               ;close the if progn for object selection
   ;close the if progn for space type
  ;close the if progn for room #
 )  ;close the if statement
) ; ends repeat
 ;reset the system echo variable
 (setvar "cmdecho" 1)
   
 ;supress the last echo
 (princ)

Lee Mac · 发表于 2022-7-6 10:19:05

嗨，Utah_Indie，

关于代码的几点：

[列表]

我不依赖于使用面积系统变量来检索对象的面积，而是建议使用ActiveX AREA属性或GetArea Curve函数，如下面的代码所示。
[/列表]

[列表]

如果不连接字符串，则无需使用“strcat”。
[/列表]

[列表]

对多行文字的命令调用将受到ObjectSnap的影响-这可能解释了您遇到的问题。
[/列表]
以下是我的示例：

copy


[color=RED]([/color][color=BLUE]defun[/color] c:test [color=RED]([/color] [color=BLUE]/[/color] _Layer _MText a e i p s [color=RED])[/color]
              
 [color=#990099];;----------------------------------------------;;[/color]
 [color=#990099];;  Example © Lee Mac 2011  -  www.lee-mac.com  ;;[/color]
 [color=#990099];;----------------------------------------------;;[/color]
 [color=RED]([/color][color=BLUE]defun[/color] _Layer [color=RED]([/color] n c [color=RED])[/color]
   [color=RED]([/color][color=BLUE]entmake[/color]
     [color=RED]([/color][color=BLUE]list[/color]
       [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]0[/color] [color=#a52a2a]"LAYER"[/color][color=RED])[/color]
       [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]100[/color] [color=#a52a2a]"AcDbSymbolTableRecord"[/color][color=RED])[/color]
       [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]100[/color] [color=#a52a2a]"AcDbLayerTableRecord"[/color][color=RED])[/color]
       [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]2[/color]  n[color=RED])[/color]
       [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]62[/color] c[color=RED])[/color]
       [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]70[/color] [color=#009900]0[/color][color=RED])[/color]
     [color=RED])[/color]
   [color=RED])[/color]
 [color=RED])[/color]
 [color=RED]([/color][color=BLUE]defun[/color] _MText [color=RED]([/color] p s l [color=RED])[/color]
   [color=RED]([/color][color=BLUE]entmakex[/color]
     [color=RED]([/color][color=BLUE]list[/color]
       [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]0[/color] [color=#a52a2a]"MTEXT"[/color][color=RED])[/color]
       [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]100[/color] [color=#a52a2a]"AcDbEntity"[/color][color=RED])[/color]
       [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]100[/color] [color=#a52a2a]"AcDbMText"[/color][color=RED])[/color]
       [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]8[/color] l[color=RED])[/color]
       [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]10[/color] [color=RED]([/color][color=BLUE]trans[/color] p [color=#009900]1[/color] [color=#009900]0[/color][color=RED]))[/color]
       [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]11[/color] [color=RED]([/color][color=BLUE]getvar[/color] [color=DARKRED]'[/color]UCSXDIR[color=RED]))[/color]
       [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]1[/color] s[color=RED])[/color]
       [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]210[/color] [color=RED]([/color][color=BLUE]trans[/color] [color=DARKRED]'[/color][color=RED]([/color][color=#009999]0.[/color] [color=#009999]0.[/color] [color=#009999]1.[/color][color=RED])[/color] [color=#009900]1[/color] [color=#009900]0[/color] [color=BLUE]t[/color][color=RED]))[/color]
     [color=RED])[/color]
   [color=RED])[/color]
 [color=RED])[/color]
 [color=RED]([/color][color=BLUE]setq[/color] i [color=#009900]0[/color][color=RED])[/color]
 [color=RED]([/color][color=BLUE]foreach[/color] x [color=DARKRED]'[/color][color=RED](([/color][color=#a52a2a]"A-FLOOR-IDEN"[/color] [color=#009900]3[/color][color=RED])[/color] [color=RED]([/color][color=#a52a2a]"A-ANNO-NOTE"[/color] [color=#009900]8[/color][color=RED])[/color] [color=RED]([/color][color=#a52a2a]"A-AREA-IDEN"[/color] [color=#009900]2[/color][color=RED]))[/color]
   [color=RED]([/color][color=BLUE]or[/color] [color=RED]([/color][color=BLUE]tblsearch[/color] [color=#a52a2a]"LAYER"[/color] [color=RED]([/color][color=BLUE]car[/color] x[color=RED]))[/color] [color=RED]([/color][color=BLUE]apply[/color] [color=DARKRED]'[/color]_Layer x[color=RED]))[/color]
 [color=RED])[/color]    
 [color=RED]([/color][color=BLUE]while[/color]
   [color=RED]([/color][color=BLUE]and[/color]
     [color=RED]([/color][color=BLUE]setq[/color] e
       [color=RED]([/color][color=BLUE]ssget[/color] [color=#a52a2a]"_+.:E:S"[/color]
         [color=RED]([/color][color=BLUE]list[/color] [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]0[/color] [color=#a52a2a]"CIRCLE,ELLIPSE,*POLYLINE,SPLINE"[/color][color=RED])[/color]
           [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]-4[/color] [color=#a52a2a]"<NOT"[/color][color=RED])[/color]
             [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]-4[/color] [color=#a52a2a]"<AND"[/color][color=RED])[/color]
               [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]0[/color] [color=#a52a2a]"POLYLINE"[/color][color=RED])[/color]
               [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]-4[/color] [color=#a52a2a]"<OR"[/color][color=RED])[/color]
                 [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]-4[/color] [color=#a52a2a]"&="[/color][color=RED])[/color] [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]70[/color] [color=#009900]16[/color][color=RED])[/color]
                 [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]-4[/color] [color=#a52a2a]"&="[/color][color=RED])[/color] [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]70[/color] [color=#009900]64[/color][color=RED])[/color]
               [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]-4[/color] [color=#a52a2a]"OR>"[/color][color=RED])[/color]
             [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]-4[/color] [color=#a52a2a]"AND>"[/color][color=RED])[/color]
           [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]-4[/color] [color=#a52a2a]"NOT>"[/color][color=RED])[/color]
         [color=RED])[/color]
       [color=RED])[/color]
     [color=RED])[/color]
     [color=RED]([/color][color=BLUE]setq[/color] a [color=RED]([/color][color=BLUE]vlax-curve-getArea[/color] [color=RED]([/color][color=BLUE]ssname[/color] e [color=#009900]0[/color][color=RED])))[/color]
     [color=RED]([/color][color=BLUE]setq[/color] *stype*
       [color=RED]([/color][color=BLUE]cond[/color]
         [color=RED]([/color]
           [color=RED]([/color][color=BLUE]eq[/color] [color=#a52a2a]""[/color]
             [color=RED]([/color][color=BLUE]setq[/color] s
               [color=RED]([/color][color=BLUE]getstring[/color] [color=BLUE]t[/color]
                 [color=RED]([/color][color=BLUE]strcat[/color] [color=#a52a2a]"\nEnter Space Type"[/color]
                   [color=RED]([/color][color=BLUE]if[/color] *stype* [color=RED]([/color][color=BLUE]strcat[/color] [color=#a52a2a]" <"[/color] *stype* [color=#a52a2a]">: "[/color][color=RED])[/color] [color=#a52a2a]": "[/color][color=RED])[/color]
                 [color=RED])[/color]
               [color=RED])[/color]
             [color=RED])[/color]
           [color=RED])[/color]
           *stype*
         [color=RED])[/color]
         [color=RED]([/color] s [color=RED])[/color]
       [color=RED])[/color]
     [color=RED])[/color]
     [color=RED]([/color][color=BLUE]setq[/color] p [color=RED]([/color][color=BLUE]getpoint[/color] [color=#a52a2a]"\nSpecify Insertion Point: "[/color][color=RED]))[/color]
   [color=RED])[/color]
   [color=RED]([/color]_MText p [color=RED]([/color][color=BLUE]strcat[/color] [color=RED]([/color][color=BLUE]rtos[/color] a [color=#009900]2[/color] [color=#009900]2[/color][color=RED])[/color] [color=#a52a2a]" sq ft"[/color][color=RED])[/color] [color=#a52a2a]"A-FLOOR-IDEN"[/color][color=RED])[/color]
   [color=RED]([/color]_MText [color=RED]([/color][color=BLUE]polar[/color] p [color=RED]([/color][color=BLUE]/[/color] [color=RED]([/color][color=BLUE]*[/color] [color=#009999]3.[/color] [color=BLUE]pi[/color][color=RED])[/color] [color=#009999]2.[/color][color=RED])[/color] [color=RED]([/color][color=BLUE]*[/color] [color=#009999]1.5[/color] [color=RED]([/color][color=BLUE]getvar[/color] [color=DARKRED]'[/color]TEXTSIZE[color=RED])))[/color] *stype* [color=#a52a2a]"A-ANNO-NOTE"[/color][color=RED])[/color]
   [color=RED]([/color]_MText [color=RED]([/color][color=BLUE]polar[/color] p [color=RED]([/color][color=BLUE]/[/color] [color=BLUE]pi[/color] [color=#009999]2.[/color][color=RED])[/color] [color=RED]([/color][color=BLUE]*[/color] [color=#009999]1.5[/color] [color=RED]([/color][color=BLUE]getvar[/color] [color=DARKRED]'[/color]TEXTSIZE[color=RED])))[/color] [color=RED]([/color][color=BLUE]itoa[/color] [color=RED]([/color][color=BLUE]setq[/color] i [color=RED]([/color][color=BLUE]1+[/color] i[color=RED])))[/color] [color=#a52a2a]"A-AREA-IDEN"[/color][color=RED])[/color]
 [color=RED])[/color]
 [color=RED]([/color][color=BLUE]princ[/color][color=RED])[/color]
[color=RED])[/color]
[color=red]([/color][color=blue]vl-load-com[/color][color=red])[/color]