非常感谢，它现在正在工作，但如果我需要添加另一个字段
dcl代码中的“radio 3”
DCL的附加代码：
:column{
:radio_column {
key="radio3";
label="LAYER";
:radio_button{
label= "Layer1";
key="L1";
value="1";
}
:radio_button{
label= "Layer2";
key="L2";
}
这将为每种块类型创建和设置所需的层。 嗨，塔瓦，
如果我想在dcl代码上添加另一个字段“Rado3”，非常感谢。
DCL中要添加的代码：
:column{
:radio_column {
key="radio3";
label="LAYER";
:radio_button{
label= "Layer1";
key="L1";
value="1";
}
:radio_button{
label= "Layer2";
key="L2";
}
这将为每个块类型创建和设置所需的层，是否可以将其添加到Lisp程序中？
是的，从dcl代码中取下以下键，并在上述dcl代码末尾再取一个括号。
key="radio3";
嗨，塔瓦，
我现在更新了dcl及其工作状态。
IBlock:dialog{
label="BLOCK SELECTION";
:column {
:row{
:row{
:radio_column {
key="radio";
label="VIEW";
:radio_button{
key="plan";
label=" PLAN";
value="1";
}
:radio_button{
key="side";
label=" SIDE";
}
:radio_button{
key="front";
label=" FRONT";
}
}
:column{
:radio_column {
key="radio2";
label="BLOCK TYPE";
:radio_button{
label= "Block1";
key="B1";
value="1";
}
:radio_button{
label= "Block2";
key="B2";
}
}
:column{
:radio_column {
label="Layer";
:radio_button{
label= "Layer1";
key="L1";
value="1";
}
:radio_button{
label= "layer2";
key="L2";
}
}
}
}
}
}
:row{
:button{
key="accept";
label=" OK ";
is_default=true;
height=3.5;
}
:button{
key="cancel";
label=" CANCEL ";
is_default=false;
is_cancel=true;
height=3.5;
}
}
}
}
我应该在程序中的何处插入下面的代码？
(setvar "clayer" "plywood")
如果层存在，则可以使用此代码，如果代码不在下面
在那里，我复制了它从其他论坛在创建一个层。
(command "linetype" "S" "Continuous" "")
(setq ts (tblsearch "LAYER" "Layer1"))
(if (null ts)
(prompt "\nCreating new layer - Layer1 ")
(progn
(if (= (logand 1 (cdr (assoc 70 ts))) 1)
(progn
(prompt "\nLayer Layer1 is frozen. ")
(initget "Yes No")
(setq xx (getkword "\nProceed? <Yes/No>: "))
(if (= xx "Yes")
(command "LAYER" "T" "Layer1" "")
)
)
)
)
)
(if (null ts)
(command "layer" "make" "Layer1" "c" "red" "Layer1" "l" "Continuous" "Layer1" ^m)
我应该在哪里插入这个？
页:
1
[2]