具有3个属性的块

CHLUCFENG · 发表于 2022-7-6 11:03:48

我有一个包含三个属性的块，分别表示窗口的宽度、长度和平方英尺。我编写了一个简单的代码，将块插入到图形中，并根据用户需要重复。问题是，-Insert命令产生了一个错误，产生了一个“无效的选项关键字”错误消息。

 
(defun c:ATO-Windows ()   
 (c:utility-start)
 (setvar "osmode" 0)
 (SETVAR "TEXTEVAL" 1)
 (setq ATOLayer      "AreaTakeOff-Window"
ATOLayerColor "143"
ATOLineType   "Continuous"
 ATOBlkWPath   "C:/ACAD2008/HVAC/BLOCKS/ATTR-WINDOW"
 )
 (command "layer"     "on"    ATOLayer    "thaw"    ATOLayer
   "m"        ATOLayer    "C"        ATOLayerColor
   ATOLayer    "Ltype"    ATOLineType ""
  )
 (setq continue "T")
 (while continue
   (setq WindowLength "0"
  WindowWidth "0"
   )
   (setq WindowLength (getstring "\nEnter Window Length in feet: "))
   (setq WindowWidth (getstring "\tWidth in feet: "))
   (setq RealLength (atof WindowLength)
  RealWidth  (atof WindowWidth)
   )
   (setq RealArea (* RealLength RealWidth))
   (setq WindowArea (strcat (rtos RealArea 2 2) "SF"))
   (SETVAR "ATTDIA" 0)
   (terpri)
   (if (> RealArea 0.0)
(command "-insert" ATOBlkWPath "Scale" (getvar "Userr3") Pause "0"
  WindowLength  WindowWidth  WindowArea
)
       (setq continue nil)
   )     ;end if
 )     ;end while
 (c:utility-end)
 (SETVAR "ATTDIA" 1)
)     ;end c:ATO-Windows

块连接，设置测试此代码的路径。我不明白为什么我会出错。也许一双新的眼睛会发现一些东西。

谢谢
氯
属性窗口。图纸

David Bethel · 发表于 2022-7-6 11:22:08

有很多问题，但最大的问题是设置了ATTDEFs验证位。

我试着把它清理一下：

copy


[b][color=BLACK]([/color][/b]defun c:ATO-Windows [b][color=FUCHSIA]([/color][/b]/ ATOLayer ATOLayerColor ATOLineType
                       ATOBlkWPath WindowLength WindowWidth
                       RealArea WindowArea ipt[b][color=FUCHSIA])[/color][/b]
[color=#8b4513];  [b][color=FUCHSIA]([/color][/b]c:utility-start[b][color=FUCHSIA])[/color][/b][/color]
[color=#8b4513];  [b][color=FUCHSIA]([/color][/b]setvar [color=#2f4f4f]"osmode"[/color] 0[b][color=FUCHSIA])[/color][/b][/color]
 [b][color=FUCHSIA]([/color][/b]setvar [color=#2f4f4f]"CMDECHO"[/color] 0[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]= [b][color=MAROON]([/color][/b]getvar [color=#2f4f4f]"USERR3"[/color][b][color=MAROON])[/color][/b] 0[b][color=NAVY])[/color][/b]
     [b][color=NAVY]([/color][/b]setvar [color=#2f4f4f]"USERR3"[/color] 4.8[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq ATOLayer   [color=#2f4f4f]"AreaTakeOff-Window"[/color]
  ATOLayerColor   [color=#2f4f4f]"143"[/color]
    ATOLineType   [color=#2f4f4f]"Continuous"[/color]
    ATOBlkWPath   [color=#2f4f4f]"C:/ACAD/AWINDOW"[/color] [color=#8b4513];  2008/HVAC/BLOCKS/ATTR-WINDOW[/color]
    [b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]not [b][color=MAROON]([/color][/b]tblsearch [color=#2f4f4f]"LAYER"[/color] ATOLayer[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
     [b][color=NAVY]([/color][/b]command [color=#2f4f4f]"_.LAYER"[/color]  [color=#2f4f4f]"_M"[/color]  ATOLayer [color=#2f4f4f]""[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_.LAYER"[/color] [color=#2f4f4f]"_ON"[/color] ATOLayer
                    [color=#2f4f4f]"_T"[/color]  ATOLayer
                    [color=#2f4f4f]"_S"[/color]  ATOLayer
                    [color=#2f4f4f]"_C"[/color]  ATOLayerColor ATOLayer
                    [color=#2f4f4f]"_LT"[/color] ATOLineType   ATOLayer [color=#2f4f4f]""[/color][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]progn
          [b][color=MAROON]([/color][/b]initget 6[b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]setq WindowLength [b][color=GREEN]([/color][/b]getdist [color=#2f4f4f]"\nEnter Window Length in feet: "[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]initget 7[b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq WindowWidth [b][color=MAROON]([/color][/b]getdist [color=#2f4f4f]"\tWidth in feet: "[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq RealArea [b][color=MAROON]([/color][/b]* WindowLength WindowWidth[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq WindowArea [b][color=MAROON]([/color][/b]strcat [b][color=GREEN]([/color][/b]rtos RealArea 2 2[b][color=GREEN])[/color][/b] [color=#2f4f4f]"SF"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]initget 1[b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq ipt [b][color=MAROON]([/color][/b]getpoint [color=#2f4f4f]"\nInsert Point:   "[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]command [color=#2f4f4f]"_.INSERT"[/color] ATOBlkWPath ipt [b][color=MAROON]([/color][/b]getvar [color=#2f4f4f]"Userr3"[/color][b][color=MAROON])[/color][/b] [color=#2f4f4f]""[/color] [color=#2f4f4f]""[/color]
                 [b][color=MAROON]([/color][/b]rtos WindowLength 2 2[b][color=MAROON])[/color][/b]
                 [b][color=MAROON]([/color][/b]rtos WindowWidth  2 2[b][color=MAROON])[/color][/b]
                 WindowArea[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[color=#8b4513];  [b][color=FUCHSIA]([/color][/b]c:utility-end[b][color=FUCHSIA])[/color][/b][/color]
[b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

-大卫
A窗口。图纸

asos2000 · 发表于 2022-7-6 11:46:31

我认为ENTMAKE比调用command更好

附属的
-创建lisp的块可以用作子例程
-我用来创建的lisp。
属性窗口。lsp
EntMaker CAB 03-MakeEntmake。lsp

CHLUCFENG · 发表于 2022-7-6 11:58:42

感谢David处理代码。它按照我的计划工作。我比较我的代码来理解我的错误。我尝试在代码中使用下划线插入和下划线-点插入，但仍然不断出错。下划线使命令透明正确吗？下划线点做什么？

感谢asos2000提供您的ENTMAKE版本。虽然我已经通读了代码，但我并没有完全理解它。对我来说是相当先进的东西。我将使用此代码作为学习工具来理解ENTMAKE OMAND。

扔出

David Bethel · 发表于 2022-7-6 12:13:51

问题在于ATTDEFs。设置验证位后，需要将属性值两次提供给命令调用

_. 表示使用国际名称并忽略未定义的命令。（破折号）通常表示绕过对话框输入屏幕-大卫

[编程交流] 具有3个属性的块

发表回复

精选推荐