隱藏對話框?????(幻燈片放大功能)

spring

;h_sc.dcl
h_sc:dialog{label="Spring (h_sc.dcl)  版本:試用版";
:image{height=0.05;color=1;}
:text{key="t1";alignment=centered;}
:image{height=0.05;color=1;}
:row{
:text{}
:text{label="螺絲大小";}
:popup_list{key="sc_size";fixed_width=true;}
:text{label="螺絲長度";}
:popup_list{list="40";fixed_width=true;}
:text{}
}
:text{}
:row{
: column {
:row{
: column {
:text{label= "加工模板";}
:popup_list{key="pl_list1";width=25;is_default=true;}
:popup_list{key="pl_list2";width=25;is_default=true;}
:popup_list{key="pl_list3";width=25;is_default=true;}
:popup_list{key="pl_list4";width=25;is_default=true;}
:popup_list{key="pl_list5";width=25;is_default=true;}
}
: column {
:text{label= "加工孔類型";}
:popup_list{key="ho_list1";width=25;is_default=true;}
:popup_list{key="ho_list2";width=25;is_default=true;}
:popup_list{key="ho_list3";width=25;is_default=true;}
:popup_list{key="ho_list4";width=25;is_default=true;}
:popup_list{key="ho_list5";width=25;is_default=true;}
}
: column {
:text{label= "加工孔大小";}
:edit_box{key="ho_size1";width=20;is_default=true;alignment=centered;}
:edit_box{key="ho_size2";width=20;is_default=true;}
:edit_box{key="ho_size3";width=20;is_default=true;}
:edit_box{key="ho_size4";width=20;is_default=true;}
:edit_box{key="ho_size5";width=20;is_default=true;}
}
}
}
: column {
:row{
:text{label="";}
}
:row{
}
:row{
:text{label="";key="time";}
:text {label="";}
}
:image  {key="hsc";height = 8;width = 26;color = -2;}
:button{label="幻燈片放大";key="sld";fixed_width=true;}
}
}
:text{label="";}
:row{
:text{label="";}
ok_cancel;
:button{label="計算";key="cal";fixed_width=true;}
:text{label="";}
}
:boxed_column { label="";fixed_width=true;fixed_height=true;alignment=centered;
:row{
:text{label="";width=12;}
:text {label="***版權所有，翻錄不究***"; alignment=centered;}
:text{label="";width=12;}
}
:row{
:text{label="";width=12;}
:text { label="***作者：Spring***"; alignment=centered;}
:text{label="";width=12;}
}
}
}
sld:dialog{label="***幻燈片***";
:image_button{color=0;key="sld";width=80;aspect_ratio=0.7;fixed_height=true;fixed_width=true;}
:row{
:text{label="";}
:text{label="Email: hch-1983@163.com";}
ok_cancel;
:text{label="";}
}
}

;;;__________________________________________
上面這個程序(幻燈片放大功能)在R14下運行正常,可是在2002下第一次不行,第二次就可以了,這是為甚麼呢???????????

spring

spring

meflying

我在2004上运行没有问题，不知你的问题是指什么，
我看了你的程序，sld函数有些问题，
如果不需要循环调用，不需要将(start_dialog ...)的返回值保存，即使这样做了，你也
不能将LOAD_DIALOG返回的ID给覆盖了，这样实际你的(unload_dialog ...)就没有任何实际作用，你的对话框也没有实际卸载。
另外建议你尽可能将变量都设成局部变量

spring

能給我說說整體变量和局部变量嗎???
這一課討論區域變數對整體文件變數的使用。整體變數是可以讓所有載入文件（AutoCAD 圖面）的函數存取的。這些變數會在程式將它們定義完成後保留其值。有時候，這就是您想要的。您稍後會在自學手冊中看到這個範例。
只有在定義區域變數的函數正在執行時，區域變數才會保留其值。在函數完成執行之後，區域變數的值會自動捨棄，系統會收回變數使用的記憶體空間。這和自動記憶體回收（garbage collection）相同，而且這是大部份 LISP 開發環境（如 VLISP）的特徵。區域變數比整體變數更能有效地使用記憶體。

另一個優點是區域變數可使除錯和維護您的應用程式更加容易。有了整體變數之後，您永遠不需確定何時或在哪個函數要修改變數的值；有了區域變數，您不用再這樣追蹤。您通常會以較少的副作用 (也就是程式的一部份影響程式另一部份的變數) 完結。
因為引用這些優點，這個自學手冊幾乎僅使用區域變數。

注意 如果您已經使用 AutoLISP 一段時間，您可能已建立在開發時使用整體變數的練習，在您建構您的程式時檢驗它。您不再需要這個練習, 因為 VLISP 已給了強而有力的除錯工具。

我看了幫助文件,還是沒搞懂.

meflying

(defun f( / a b c)
(setq a 0)
(setq b 1)
(setq c 2)
)
(defun g()
(setq c 0)
(setq d 1)
(setq e 2)
)
分别运行这两个函数，之后用!a !b...分别查看这些变量值，
a b c是局部变量，只在函数f中有效。所以函数结束后查看其值应该为空。
c d e是全局变量，运行函数之后，其值仍然保留。
注意：运行前确保这些变量都未被付值。

spring

這個局部变量是在斜線字元 （開始這個函數的 defun 陳述式中）之後宣告,
如果不宣告就變為全局变量了