3D Lisp例程和DCl帮助

Earlzii · 发表于 2022-7-5 17:57:43

你好

当我试图引入一个对话框时，我在让代码正常工作方面遇到了一些麻烦。实际绘制密室的代码虽然没有我想要的那么完美，但现在我正试图把它打扮得漂漂亮亮。第一步是添加一个对话框，询问用户房间是圆形还是矩形。然后它将运行相应的命令。我有几个错误，主要是它告诉我，有太少的参数或它运行的错误告诉我，商会的定义无法找到。

实际的圆形和矩形命令很好地工作，除了它们仅适用于某些UCS之外，我正在尝试找出它们。我对这一切都很陌生，尤其是它的dcl方面，我复制并粘贴了它，然后试图更改它以适应我的命令，我试图理解，但我有点挣扎，所以任何帮助都将不胜感激。抱歉，如果它有点混乱，这是第一个Lisp程序，这不仅仅是一个简单的几行，我已经做了。

Lisp程序

copy

(defun C:Circular()
(PROGN
(SETQ P6 (GETPOINT "\nPick the centre of the chamber: "))
(SETQ D (GETREAL "\nWhat is the external diameter of the chamber?: "))
(SETQ CH (GETREAL"\nWhat is the height of the chamber wall?: "))
(SETQ T1 (GETREAL "\nWhat is the thickness of the Wall?: "))
(SETQ BS1 (GETREAL "\nWhat is the thickness of the Base Slab?: "))
(SETQ RS1 (GETREAL "\nWhat is the thickness of the Roof Slab?: "))
(COMMAND "LAYER" "N" "3D_CHAMBER_BASE" "S" "3D_CHAMBER_BASE" "C" "155" "" "");;;;Sets a new layer
;
;
;DRAW THE BASE SLAB
;
;        
(SETQ P7 (LIST (CAR P6) (CADR P6) (CADDR P6)))
(COMMAND "CYLINDER" P7 "D" D BS1);;;;;Draws a cylinder for the base slab to the external dims of the wall
(SETQ ENTBASE1 (ENTLAST));;;;;Sets the previous object drawn to be called ENTBASE1 to make it easier for subtraction
(COMMAND "CYLINDER" P7 "D" D BS1);;;;;Draws the same cylinder again for it to be subtracted to create the base slab
;
;
;DRAW THE WALLS
;
;
(COMMAND "LAYER" "N" "3D_CHAMBER_WALL" "S" "3D_CHAMBER_WALL" "C" "155" "" "");;;;;Sets a new layer
(SETQ P8 (LIST (CAR P6) (CADR P6) (+ (CADDR P6) BS1)))
(SETQ CWH (+ BS1 CH));;;;;Adds the base slab and height together to draw the walls
(COMMAND "CYLINDER" P8 "D" D CH);;;;;Draws a cylinder for the external walls
(SETQ ENT5 (ENTLAST));;;;;Sets the previous object drawn to be called ENT5 to make it easier for subtraction
(SETQ D1 (- D T1 T1));;;;;Sets the internal diameter to remove from the external cylinder
(COMMAND "CYLINDER" P8 "D" D1 CH);;;;;Draws a cylinder for the internal walls
(SETQ ENT6 (ENTLAST));;;;;Sets the previous object drawn to be called ENT6 to make it easier for subtraction
;
;
;SUBTRACT THE INTERNAL FROM EXTERNAL AND THE BASE SLAB FROM THE WALL
;
;
(vlax-invoke
(vlax-ename->vla-object ent5)
'boolean
acSubtraction
(vlax-ename->vla-object entbase1)
)
(vlax-invoke
(vlax-ename->vla-object ent5)
'boolean
acSubtraction
(vlax-ename->vla-object ent6)
)
;
;
;DRAW THE ROOF SLAB NEXT
;
;
(COMMAND "LAYER" "N" "3D_CHAMBER_ROOF" "S" "3D_CHAMBER_ROOF" "C" "155" "" "");;;;Sets a new layer
(SETQ RSH1 (+ RS1 CH BS1));;;;;Sets the variable for the height of the total structure
(SETQ P9 (LIST (CAR P6) (CADR P6) (+ (CADDR P6) CH BS1)))
(COMMAND "CYLINDER" P9 "D" D RS1);;;;;Draws a cylinder for the roof slab
(SETQ ENT7 (ENTLAST));;;;;Sets the previous object drawn to be called ENT7 to make it easier for subtraction
(COMMAND "CYLINDER" P7 "D" D BS1);;;;;Draws a cylinder for the base slab to the external dims of the wall
(SETQ ENT8 (ENTLAST));;;;;Sets the previous object drawn to be called ENT8 to make it easier for subtraction
(COMMAND "CYLINDER" P8 "D" D CH);;;;;Draws a cylinder for the external walls
(SETQ ENT9 (ENTLAST));;;;;Sets the previous object drawn to be called ENT9 to make it easier for subtraction
;
;
;SUBTRACT THE WALLS AND THE BASE SLAB FROM THE ROOF SLAB
;
;
(vlax-invoke
(vlax-ename->vla-object ent7)
'boolean
acSubtraction
(vlax-ename->vla-object ent8)
)
(vlax-invoke
(vlax-ename->vla-object ent7)
'boolean
acSubtraction
(vlax-ename->vla-object ent9)
)
;
;
;SET THE LAYER TO 0
;
;
(COMMAND "LAYER" "S" "0" "")
); PROGN
)
(defun C:Rectangular()
(PROGN
(SETVAR "CMDECHO" 0)
(SETVAR "DYNMODE" 0)
(SETQ P1 (GETPOINT "\nPick the lower left hand side of the chamber: "))
(SETQ W (GETREAL "\nWhat is the external width of the Wall?: "))
(SETQ L (GETREAL "\nWhat is the external length of the Wall?: "))
(SETQ H (GETREAL "\nWhat is the external height of the Wall?: "))
(SETQ T (GETREAL "\nWhat is the thickness of the Wall?: "))
(SETQ BS (GETREAL "\nWhat is the thickness of the Base Slab?: "))
(SETQ RS (GETREAL "\nWhat is the thickness of the Roof Slab?: "))
(COMMAND "LAYER" "N" "3D_CHAMBER_BASE" "S" "3D_CHAMBER_BASE" "C" "155" "" "");;;;Sets a new layer
;
;
;DRAW THE BASE SLAB
;
;        
(SETQ P2 (LIST (CAR P1) (CADR P1) (CADDR P1)))
(COMMAND "BOX" P2 "L" L W BS);;;;;Draws a box for the base slab to the external dims of the wall
(SETQ ENTBASE (ENTLAST));;;;;Sets the previous object drawn to be called ENTBASE to make it easier for subtraction
(COMMAND "BOX" P2 "L" L W BS);;;;;Draws the same box again for it to be subtracted to create the base slab
;
;
;DRAW THE WALLS
;
;
(COMMAND "LAYER" "N" "3D_CHAMBER_WALL" "S" "3D_CHAMBER_WALL" "C" "155" "" "");;;;;Sets a new layer
(SETQ P3 (LIST (CAR P1) (CADR P1) (+ (CADDR P1) BS)))
(SETQ WH (+ BS H));;;;;Adds the base slab and height together to draw the walls
(COMMAND "BOX" P3 "L" L W WH);;;;;Draws a box for the external walls
(SETQ ENT1 (ENTLAST));;;;;Sets the previous object drawn to be called ENT1 to make it easier for subtraction
;
;
;;;;;Below sets the new variables to draw the internal of the wall
(SETQ PX1 (+ (CAR P1) T))
(SETQ PY1 (+ (CADR P1) T))
(SETQ P4 (LIST PX1 PY1 (+ (CADDR P1) BS)))
(SETQ L1 (- L T T))
(SETQ W1 (- W T T))
(COMMAND "BOX" P4 "L" L1 W1 WH);;;;;Draws a box to the internal dimensions of the wall
(SETQ ENT2 (ENTLAST));;;;;Sets the previous object drawn to be called ENT2 to make it easier for subtraction
;
;
;SUBTRACT THE INTERNAL FROM EXTERNAL AND THE BASE SLAB FROM THE WALL
;
;
(vlax-invoke
(vlax-ename->vla-object ent1)
'boolean
acSubtraction
(vlax-ename->vla-object entbase)
)
(vlax-invoke
(vlax-ename->vla-object ent1)
'boolean
acSubtraction
(vlax-ename->vla-object ent2)
)
;
;
;DRAW THE ROOF SLAB NEXT
;
;
(COMMAND "LAYER" "N" "3D_CHAMBER_ROOF" "S" "3D_CHAMBER_ROOF" "C" "155" "" "");;;;Sets a new layer
(SETQ RSH (+ RS H BS));;;;;Sets the variable for the height of the total structure
(SETQ P5 (LIST (CAR P1) (CADR P1) (+ (CADDR P1) H BS)))
(COMMAND "BOX" P5 "L" L W RSH);;;;;Draws a box for the roof slab
(SETQ ENTRS (ENTLAST));;;;;Sets the previous object drawn to be called ENTRS to make it easier for subtraction
(COMMAND "BOX" P2 "L" L W BS);;;;;Draws a box for the base slab to the external dims of the wall
(SETQ ENT3 (ENTLAST));;;;;Sets the previous object drawn to be called ENT3 to make it easier for subtraction
(COMMAND "BOX" P3 "L" L W WH);;;;;Draws a box for the external walls
(SETQ ENT4 (ENTLAST));;;;;Sets the previous object drawn to be called ENT4 to make it easier for subtraction
;
;
;SUBTRACT THE WALLS AND THE BASE SLAB FROM THE ROOF SLAB
;
;
(vlax-invoke
(vlax-ename->vla-object entrs)
'boolean
acSubtraction
(vlax-ename->vla-object ent3)
)
(vlax-invoke
(vlax-ename->vla-object entrs)
'boolean
acSubtraction
(vlax-ename->vla-object ent4)
)
;
;
;SET THE LAYER TO 0
;
;
(COMMAND "LAYER" "S" "0" "")
); PROGN
)
(defun doButton(a)
(cond
;;;
;;; - - - If the button selected was Circular then do this
;;;
        ((= a 1)(Circular))
;;;
;;; - - - If the button selected was Rectangular then do this
;;;
        ((= a 2)(Rectangular))
)
)
(defun C:CHAMBER()
(setq dcl_id (load_dialog "chamber1.dcl"))
(setq server_path "//C:\Users\earlesc\Documents\AutoCAD\_Customisation\3D Chamber Dialogue Box Test")
;;;- - - Else the file was loaded
(progn
        ;;;- - - Load the dialog definition inside the DCL file
        (if(not(new_dialog "chamber1" dcl_id))
                (progn
                        (alert " The chamber definition could not be found in the DCL file!")
                        (exit)
                );;; End progn
        (exit)
)
;;;- - - Else the definition was loaded
(progn
        
        ;;;- - - If an action event occurs, do this function
        (action_tile "but1" "(doButton 1)")
        (action_tile "but2" "(doButton 2)")
        (action_tile "cancel" "(done_dialog)")
        ;;;- - -Display the dialog box
        (start_dialog)
        ;;;- - - Unload the dialog box
        (unload_dialog dcl_id)
        )
)
)
;;;- - - Supress the last echo for a clean exit
(princ)

Dcl

copy

chamber1 : dialog {                                //dialog name
     label = "3D Chamber" ;                //give it a label
: row { 
 : boxed_column { 
   : button { 
               key = "but1";
               label = "Circular";
               is_default = true;
   }  
   : button {  
               key = "but2";
               label = "Rectangular";
               is_default = false;  
   }  
 }  
}
    }                                                //end dialog

rlx · 发表于 2022-7-5 18:06:55

欢迎来到CadTutor。

除了一些错误外，（不要重新定义内置符号“t”），第一次尝试其实还不错。。。干得好

copy


(defun C:Circular [color=red]( / P6 D CH T1 BS1 RS1 P7 ENTBASE1 P8 CWH ENT5 ENT6 ENT7 ENT8 ENT9 D1 RSH1 P9)[/color]
 (PROGN
   (SETQ P6 (GETPOINT "\nPick the centre of the chamber: "))
   (SETQ
     D    (GETREAL "\nWhat is the external diameter of the chamber?: "
   )
   )
   (SETQ CH (GETREAL "\nWhat is the height of the chamber wall?: "))
   (SETQ T1 (GETREAL "\nWhat is the thickness of the Wall?: "))
   (SETQ BS1 (GETREAL "\nWhat is the thickness of the Base Slab?: "))
   (SETQ RS1 (GETREAL "\nWhat is the thickness of the Roof Slab?: "))
   (COMMAND "LAYER"       "N"         "3D_CHAMBER_BASE"
        "S"       "3D_CHAMBER_BASE"           "C"
        "155"       ""         ""
       )
;;;;Sets a new layer
                   ;
                   ;
                   ;DRAW THE BASE SLAB
                   ;
                   ;    
   (SETQ P7 (LIST (CAR P6) (CADR P6) (CADDR P6)))
   (COMMAND "CYLINDER" P7 "D" D BS1)
;;;;;Draws a cylinder for the base slab to the external dims of the wall
   (SETQ ENTBASE1 (ENTLAST))
;;;;;Sets the previous object drawn to be called ENTBASE1 to make it easier for subtraction
   (COMMAND "CYLINDER" P7 "D" D BS1)
;;;;;Draws the same cylinder again for it to be subtracted to create the base slab
                   ;
                   ;
                   ;DRAW THE WALLS
                   ;
                   ;
   (COMMAND "LAYER"       "N"         "3D_CHAMBER_WALL"
        "S"       "3D_CHAMBER_WALL"           "C"
        "155"       ""         ""
       )
;;;;;Sets a new layer
   (SETQ P8 (LIST (CAR P6) (CADR P6) (+ (CADDR P6) BS1)))
   (SETQ CWH (+ BS1 CH))
;;;;;Adds the base slab and height together to draw the walls
   (COMMAND "CYLINDER" P8 "D" D CH)
;;;;;Draws a cylinder for the external walls
   (SETQ ENT5 (ENTLAST))
;;;;;Sets the previous object drawn to be called ENT5 to make it easier for subtraction
   (SETQ D1 (- D T1 T1))
;;;;;Sets the internal diameter to remove from the external cylinder
   (COMMAND "CYLINDER" P8 "D" D1 CH)
;;;;;Draws a cylinder for the internal walls
   (SETQ ENT6 (ENTLAST))
;;;;;Sets the previous object drawn to be called ENT6 to make it easier for subtraction
                   ;
                   ;
                   ;SUBTRACT THE INTERNAL FROM EXTERNAL AND THE BASE SLAB FROM THE WALL
                   ;
                   ;
   (vlax-invoke
     (vlax-ename->vla-object ent5)
     'boolean
     acSubtraction
     (vlax-ename->vla-object entbase1)
   )
   (vlax-invoke
     (vlax-ename->vla-object ent5)
     'boolean
     acSubtraction
     (vlax-ename->vla-object ent6)
   )
                   ;
                   ;
                   ;DRAW THE ROOF SLAB NEXT
                   ;
                   ;
   (COMMAND "LAYER"       "N"         "3D_CHAMBER_ROOF"
        "S"       "3D_CHAMBER_ROOF"           "C"
        "155"       ""         ""
       )
;;;;Sets a new layer
   (SETQ RSH1 (+ RS1 CH BS1))
;;;;;Sets the variable for the height of the total structure
   (SETQ P9 (LIST (CAR P6) (CADR P6) (+ (CADDR P6) CH BS1)))
   (COMMAND "CYLINDER" P9 "D" D RS1)
;;;;;Draws a cylinder for the roof slab
   (SETQ ENT7 (ENTLAST))
;;;;;Sets the previous object drawn to be called ENT7 to make it easier for subtraction
   (COMMAND "CYLINDER" P7 "D" D BS1)
;;;;;Draws a cylinder for the base slab to the external dims of the wall
   (SETQ ENT8 (ENTLAST))
;;;;;Sets the previous object drawn to be called ENT8 to make it easier for subtraction
   (COMMAND "CYLINDER" P8 "D" D CH)
;;;;;Draws a cylinder for the external walls
   (SETQ ENT9 (ENTLAST))
;;;;;Sets the previous object drawn to be called ENT9 to make it easier for subtraction
                   ;
                   ;
                   ;SUBTRACT THE WALLS AND THE BASE SLAB FROM THE ROOF SLAB
                   ;
                   ;
   (vlax-invoke
     (vlax-ename->vla-object ent7)
     'boolean
     acSubtraction
     (vlax-ename->vla-object ent8)
   )
   (vlax-invoke
     (vlax-ename->vla-object ent7)
     'boolean
     acSubtraction
     (vlax-ename->vla-object ent9)
   )
                   ;
                   ;
                   ;SET THE LAYER TO 0
                   ;
                   ;
   (COMMAND "LAYER" "S" "0" "")
 )                    ; PROGN
)
(defun C:Rectangular [color=red]( / P1 P2 P3 W L H Tn BS RS ENTBASE WH ENT1 ENT2 PX1 PY1 P4 L1 W1 RSH P5 ENTRS ENT3 ENT4)[/color]
 (PROGN
   (SETVAR "CMDECHO" 0)
   (SETVAR "DYNMODE" 0)
   (SETQ
     P1 (GETPOINT "\nPick the lower left hand side of the chamber: "
    )
   )
   (SETQ W (GETREAL "\nWhat is the external width of the Wall?: "))
   (SETQ L (GETREAL "\nWhat is the external length of the Wall?: "))
   (SETQ H (GETREAL "\nWhat is the external height of the Wall?: "))
   (SETQ Tn (GETREAL "\nWhat is the thickness of the Wall?: "))
                   [color=red];******************* dont redefine T[/color]
   (SETQ BS (GETREAL "\nWhat is the thickness of the Base Slab?: "))
   (SETQ RS (GETREAL "\nWhat is the thickness of the Roof Slab?: "))
   (COMMAND "LAYER"       "N"         "3D_CHAMBER_BASE"
        "S"       "3D_CHAMBER_BASE"           "C"
        "155"       ""         ""
       )
;;;;Sets a new layer
                   ;
                   ;
                   ;DRAW THE BASE SLAB
                   ;
                   ;    
   (SETQ P2 (LIST (CAR P1) (CADR P1) (CADDR P1)))
   (COMMAND "BOX" P2 "L" L W BS)
;;;;;Draws a box for the base slab to the external dims of the wall
   (SETQ ENTBASE (ENTLAST))
;;;;;Sets the previous object drawn to be called ENTBASE to make it easier for subtraction
   (COMMAND "BOX" P2 "L" L W BS)
;;;;;Draws the same box again for it to be subtracted to create the base slab
                   ;
                   ;
                   ;DRAW THE WALLS
                   ;
                   ;
   (COMMAND "LAYER"       "N"         "3D_CHAMBER_WALL"
        "S"       "3D_CHAMBER_WALL"           "C"
        "155"       ""         ""
       )
;;;;;Sets a new layer
   (SETQ P3 (LIST (CAR P1) (CADR P1) (+ (CADDR P1) BS)))
   (SETQ WH (+ BS H))
;;;;;Adds the base slab and height together to draw the walls
   (COMMAND "BOX" P3 "L" L W WH)
;;;;;Draws a box for the external walls
   (SETQ ENT1 (ENTLAST))
;;;;;Sets the previous object drawn to be called ENT1 to make it easier for subtraction
                   ;
                   ;
;;;;;Below sets the new variables to draw the internal of the wall
   (SETQ PX1 (+ (CAR P1) Tn))        [color=red];******************* Tn was T [/color]
   (SETQ PY1 (+ (CADR P1) Tn))
   (SETQ P4 (LIST PX1 PY1 (+ (CADDR P1) BS)))
   (SETQ L1 (- L Tn Tn))
   (SETQ W1 (- W Tn Tn))
   (COMMAND "BOX" P4 "L" L1 W1 WH)
;;;;;Draws a box to the internal dimensions of the wall
   (SETQ ENT2 (ENTLAST))
;;;;;Sets the previous object drawn to be called ENT2 to make it easier for subtraction
                   ;
                   ;
                   ;SUBTRACT THE INTERNAL FROM EXTERNAL AND THE BASE SLAB FROM THE WALL
                   ;
                   ;
   (vlax-invoke
     (vlax-ename->vla-object ent1)
     'boolean
     acSubtraction
     (vlax-ename->vla-object entbase)
   )
   (vlax-invoke
     (vlax-ename->vla-object ent1)
     'boolean
     acSubtraction
     (vlax-ename->vla-object ent2)
   )
                   ;
                   ;
                   ;DRAW THE ROOF SLAB NEXT
                   ;
                   ;
   (COMMAND "LAYER"       "N"         "3D_CHAMBER_ROOF"
        "S"       "3D_CHAMBER_ROOF"           "C"
        "155"       ""         ""
       )
;;;;Sets a new layer
   (SETQ RSH (+ RS H BS))
;;;;;Sets the variable for the height of the total structure
   (SETQ P5 (LIST (CAR P1) (CADR P1) (+ (CADDR P1) H BS)))
   (COMMAND "BOX" P5 "L" L W RSH)
;;;;;Draws a box for the roof slab
   (SETQ ENTRS (ENTLAST))
;;;;;Sets the previous object drawn to be called ENTRS to make it easier for subtraction
   (COMMAND "BOX" P2 "L" L W BS)
;;;;;Draws a box for the base slab to the external dims of the wall
   (SETQ ENT3 (ENTLAST))
;;;;;Sets the previous object drawn to be called ENT3 to make it easier for subtraction
   (COMMAND "BOX" P3 "L" L W WH)
;;;;;Draws a box for the external walls
   (SETQ ENT4 (ENTLAST))
;;;;;Sets the previous object drawn to be called ENT4 to make it easier for subtraction
                   ;
                   ;
                   ;SUBTRACT THE WALLS AND THE BASE SLAB FROM THE ROOF SLAB
                   ;
                   ;
   (vlax-invoke
     (vlax-ename->vla-object entrs)
     'boolean
     acSubtraction
     (vlax-ename->vla-object ent3)
   )
   (vlax-invoke
     (vlax-ename->vla-object entrs)
     'boolean
     acSubtraction
     (vlax-ename->vla-object ent4)
   )
                   ;
                   ;
                   ;SET THE LAYER TO 0
                   ;
                   ;
   (COMMAND "LAYER" "S" "0" "")
 )                    ; PROGN
)
(defun doButton    (a)
 (cond
;;;
;;; - - - If the button selected was Circular then do this
;;;
   ((= a 1) [color=red](c:Circular)[/color])
;;;
;;; - - - If the button selected was Rectangular then do this
;;;
   ((= a 2) [color=red](c:Rectangular)[/color])
 )
)
(defun C:CHAMBER [color=red]( / dcl_id server_path drv)[/color]
 (setq dcl_id (load_dialog "chamber1.dcl")
   server_path "//C:\Users\earlesc\Documents\AutoCAD\_Customisation\3D Chamber Dialogue Box Test")
 [color=red](if (not (new_dialog "chamber1" dcl_id))
   (progn (alert "The chamber definition could not be found in the DCL file!")(exit))
   (progn
     ;;;- - - If an action event occurs, do this function
     (action_tile "but1" "(done_dialog 1)")
     (action_tile "but2" "(done_dialog 2)")
     (action_tile "cancel" "(done_dialog)")
     ;;;- - -Display the dialog box
     (setq drv (start_dialog))
     ;;;- - - Unload the dialog box
     (unload_dialog dcl_id)
     (cond
   ((= drv 1)(doButton 1))
   ((= drv 2)(doButton 2))
     )
   )
 )[/color]
 ;;;- - - Supress the last echo for a clean exit
 (princ)
)

Rlx级

Hippe013 · 发表于 2022-7-5 18:09:26

有几件事很突出。

在do按钮例程中，首先要调用

copy


((= a 1)(Circular)).... 
((= a 2)(Rectangular))

但是你的例程被定义为c：圆形和c：矩形。去掉两个defuns中的“c:”。c：用于使其成为命令。

接下来，您是否要创建dcl进行练习？如果你是，那是一件事，但是只有两个选项的dcl弹出菜单似乎让你的代码过于复杂了。作为一个用户，我宁愿只按照命令行上的提示操作。看看格特沃德。

最后，我知道你说过你对用代码写作相当陌生，但为了其他程序员阅读你的代码。不要全部使用大写字母！

Hippe013 · 发表于 2022-7-5 18:17:28

Rlx，

我相信你的意思是

copy

(cond 
((= drv 1)(doButton 1))
((= drv 2)(doButton 2))
)

rlx · 发表于 2022-7-5 18:22:37

哎呀。。。。

BIGAL · 发表于 2022-7-5 18:27:25

第一名（为什么？

你问我发了5个getreals。lsp对于这种情况，它可以扩展到5。代码用于自动创建的dcl中的1、2和3个问题。这只是一个复制粘贴3，使4，然后使5的情况。

GETVALS。lsp

copy

; to call a 4 line getvals
(if (not AH:getval4) (load "getvals"))
(ah:getval4 "Height of the chamber wall?: " 6 4 "Thickness of the Wall?: " 6 4 "Thickness of the Base Slab?: " 6 4 "Thickness of the Roof Slab?: " 6 4)
(SETQ CH (atof val1)
   T1 (atof val2)
   BS1 (atof val3)
   RS1 (atof val4)
)

Earlzii · 发表于 2022-7-5 18:31:54

谢谢大家，Rlx，我能问一下为什么把变量p6 h等放在括号里，为什么用a，我只是好奇，因为代码的那部分工作得很好。不那样做是一种坏习惯吗。

Hippe013我的意图是开发对话框，这样命令行中就不会出现任何内容，我只是想先用一个简单的对话框进行测试，然后再向其中添加其他内容。用于圆形和矩形的命令一开始是单独的命令，因为当我开始时，它们在一起，我很难让它们工作，所以我把它们分开，这样对我来说更容易，这也是为什么它们被定义为命令，我把它们放回一起，起初我确实使用了get word，但我去掉了它，因为我试图使用对话框最终，如果我能弄明白，这一切将只是一个对话框。我将改变这一切，我不知道为什么我这么做，哈哈，这是在做我的头，我只是懒惰。

BIGAL说实话，我不知道为什么我会使用progn，因为我对这一点很陌生，我试图自学，所以我知道代码中的一切可能不是最有效的做事方式。我一直在网上看不同的例子等，这是一个我发现和开发它使用progn工作，所以我留在我的想法是没有必要改变一些东西，除非它打破了哈哈。最终我希望我能学会最好的做事方法，但我只是从lisp例程开始。

谢谢你们的帮助和评论。

rlx · 发表于 2022-7-5 18:37:40

嗨，厄尔齐，

把变量名放在括号里就是很好的houskeeping。如果不这样做，并且有两个程序使用相同的变量名，它们可能会相互咬合。这就是为什么要声明局部或全局变量。

就我个人而言，我认为您应该使用更长的变量名，以便您的程序更易于阅读。当你在做一个项目的时候，一切都在你的脑海里，但是如果你想在几个月后改变一些事情，你就很难理解你在做什么。

gr.Rlx

Earlzii · 发表于 2022-7-5 18:41:26

谢谢你的信息rlx，我将重新编写它，但去掉大写字母，我可能会像你说的那样在你的建议中更改变量，这对我来说很有意义，但我可能会忘记这一切，我可能还会再写一些注释，以提醒我什么时候发生了什么。
谢谢你的帮助。

BIGAL · 发表于 2022-7-5 18:43:42

如果运行getvals。lsp和更改输出目录可以看到dcl代码，因为它有3个选项1框、2框或3框。这可能会帮助您了解一些DCL示例。

copy


;(setq fo (open (setq fname (vl-filename-mktemp "" "" ".dcl")) "w"))
(setq fo (open (setq fname C"\\acadtemp\\ddgetval.dcl"  "w")))

另一个建议是在代码中重复创建层时，将“层新建”设置为defun。您可以将其放入一个小defuns库中，这些defuns通常在启动时使用并加载。另一种方法是一次性使用所有层（setvar’clayer“3D\u CHAMBER\u ROOF”）

copy


(defun newlayer (layname COL ) ; suggest add linetype also
(COMMAND "-LAYER" "N" layname "S" layname "C" col  "" "")
)
(newlayer "3D_CHAMBER_ROOF"  "155")

[编程交流] 3D Lisp例程和DCl帮助

发表回复

精选推荐