标记变量问题

jonathann3891 · 发表于 2022-7-5 19:39:02

为什么这两个变量都不标？这是正确的术语吗？
一、 E.图层名称和图层颜色

它将标记一个或另一个，但不是两个？

(vl-load-com)
(defun C:Test (/ nwent layername layercolor)
 (setq nwent (entsel))
 (if nwent
   (progn
     (setq nwen(car nwent))
     (setq nwelist (entget nwen))
     (setq layername (cdr (assoc 8 nwelist)))
     (setq obj (vlax-ename->vla-object (car nwent)))
     (setq layerinfo (tblsearch "layer" layername))
     (setq layercolor (cdr (assoc 62 layerinfo)))
     (setq Textloc (getpoint "Pick Label Location: "))
     )
   (alert "Nothing Selected")
       )
 (command "text" textloc "" "" layername layercolor)
   (princ)
)

rlx · 发表于 2022-7-5 19:47:49

（strcat layername layercolor）

jonathann3891 · 发表于 2022-7-5 19:50:50

你能告诉我怎么用吗？我对编写lisp相当陌生

Commandobill · 发表于 2022-7-5 19:56:37

由于您还没有VL命令，因此不需要第一行。我还去掉了一个“”，因为在我的autocad版本中，它只要求点和旋转，我不确定其余的是什么。如果需要，您可以将其添加回。

copy

(defun C:Test (/ nwent layername layercolor)
 (setq nwent (entsel))
 (if nwent
   (progn
     (setq nwen(car nwent))
     (setq nwelist (entget nwen))
     (setq layername (cdr (assoc 8 nwelist)))
     (setq obj (vlax-ename->vla-object (car nwent)))
     (setq layerinfo (tblsearch "layer" layername))
     (setq layercolor (cdr (assoc 62 layerinfo)))
     (setq Textloc (getpoint "Pick Label Location: "))
     )
   (alert "Nothing Selected")
       )
 (command "text" textloc "" (strcat layername " " (itoa layercolor)))
   (princ)
)

Commandobill · 发表于 2022-7-5 19:59:47

如果你想让他们在不同的线路上，那么让我知道。这与代码略有不同。

jonathann3891 · 发表于 2022-7-5 20:07:44

我该如何将它们放在不同的行上？

jonathann3891 · 发表于 2022-7-5 20:13:15

另外，你能解释一下你做了什么吗？

我不明白

copy

(itoa layercolor)))

David Bethel · 发表于 2022-7-5 20:18:11

通过Autolsp使用TEXT命令很容易导致不想要的结果

另一个考虑因素是Vanilla AutoLISP：

copy


[b][color=BLACK]([/color][/b]defun c:lay-clr [b][color=FUCHSIA]([/color][/b]/ en ss ed ln lc pt[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]not en[b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]and [b][color=MAROON]([/color][/b]setq ss [b][color=GREEN]([/color][/b]ssget[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]= [b][color=GREEN]([/color][/b]sslength ss[b][color=GREEN])[/color][/b] 1[b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq ed [b][color=NAVY]([/color][/b]entget en[b][color=NAVY])[/color][/b]
       ln [b][color=NAVY]([/color][/b]cdr [b][color=MAROON]([/color][/b]assoc 8 ed[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
       lc [b][color=NAVY]([/color][/b]cdr [b][color=MAROON]([/color][/b]assoc 62 [b][color=GREEN]([/color][/b]tblsearch [color=#2f4f4f]"LAYER"[/color] ln[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]initget 1[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq pt [b][color=NAVY]([/color][/b]getpoint [color=#2f4f4f]"\nLabel Location:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]entmake [b][color=NAVY]([/color][/b]list [b][color=MAROON]([/color][/b]cons 0 [color=#2f4f4f]"TEXT"[/color][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]cons 1 [b][color=GREEN]([/color][/b]strcat ln [color=#2f4f4f]" "[/color] [b][color=BLUE]([/color][/b]itoa lc[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]cons 6 [color=#2f4f4f]"CONTINUOUS"[/color][b][color=MAROON])[/color][/b]               [color=#8b4513]; [b][color=MAROON]([/color][/b]getvar [color=#2f4f4f]"CELTYPE"[/color][b][color=MAROON])[/color][/b][/color]
                [b][color=MAROON]([/color][/b]cons 7 [b][color=GREEN]([/color][/b]getvar [color=#2f4f4f]"TEXTSTYLE"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]cons 8 [b][color=GREEN]([/color][/b]getvar [color=#2f4f4f]"CLAYER"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]cons 10 pt[b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]cons 11 [b][color=GREEN]([/color][/b]list 0 0 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]              [color=#8b4513];  pt value if 72 or 73 not zero[/color]
                [b][color=MAROON]([/color][/b]cons 39 [b][color=GREEN]([/color][/b]getvar [color=#2f4f4f]"THICKNESS"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]cons 40 [b][color=GREEN]([/color][/b]getvar [color=#2f4f4f]"TEXTSIZE"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]cons 41 1.0[b][color=MAROON])[/color][/b]                       [color=#8b4513]; X axis Scale[/color]
                [b][color=MAROON]([/color][/b]cons 50 0.0[b][color=MAROON])[/color][/b]                       [color=#8b4513]; Text Angle[/color]
                [b][color=MAROON]([/color][/b]cons 51 0.0[b][color=MAROON])[/color][/b]                       [color=#8b4513]; Oblique Angle[/color]
                [b][color=MAROON]([/color][/b]cons 62 [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 62 [b][color=RED]([/color][/b]tblsearch [color=#2f4f4f]"LAYER"[/color] [b][color=PURPLE]([/color][/b]getvar [color=#2f4f4f]"CLAYER"[/color][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]cons 71 0[b][color=MAROON])[/color][/b]                         [color=#8b4513]; Text Generation[/color]
                [b][color=MAROON]([/color][/b]cons 72 0[b][color=MAROON])[/color][/b]                         [color=#8b4513]; Justification Flag[/color]
                [b][color=MAROON]([/color][/b]cons 73 0[b][color=MAROON])[/color][/b]                         [color=#8b4513]; Justification Flag[/color]
                [b][color=MAROON]([/color][/b]cons 210 [b][color=GREEN]([/color][/b]trans '[b][color=BLUE]([/color][/b]0 0 1[b][color=BLUE])[/color][/b] 0 1[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

（entmake）提供了对文本实体的完全控制/灵活性

Commandobill · 发表于 2022-7-5 20:23:53

ITOA将整数更改为字符串。大卫也是正确的，但最好是按他的方式去做。只是，如果你想要多行文字，我会使用多行文字。

rlx · 发表于 2022-7-5 20:25:34

（defun FormatColorName（col/）
（条件
（（或（=列0）（=列“0”））“ByBlock”）
（（或（=列1）（=列“1”））“1（红色）”）
（（或（=第2列）（=第2列”）“2（黄色）”）
（（或（=第3列）（=第3列”）“3（绿色）”）
（（或（=第4列）（=第4列”）“4（青色）”）
（（或（=第5列）（=第5列”）“5（蓝色）”）
（（或（=第6列）（=第6列”）“6（洋红）”）
（（或（=第7列）（=第7列”）“7（黑色/白色）”
（（或（=第8列）（=第8列”）“8（D.Gray）”）
（（或（=第9列）（=第9列”）“9（L.Gray）”）
（（或（=第256列）（=第256列”）“ByLayer”）
（t列）））

如果您使用以下内容：
（setq layerinfo（tblsearch“layer”layername））
（setq layercolor（cdr（assoc 62 layerinfo）））

layercolor将是一个数字。然后，您可以将数字（整数）转换为字符串（ascii），从而实现itoa。如果你想要更可读的东西，你可以使用上面的代码，然后它看起来像：

（setq layercolor（FormatColorName（cdr（assoc 62 layerinfo）））

strcat函数可以将两个或多个文本粘合在一起（strcat“hel”“lo”）->“hello”

rlx公司

[编程交流] 标记变量问题

发表回复

精选推荐