本帖最后由 9701519 于 2012-5-22 14:26 编辑
 - ;用户可自己修改界面
- (defun c:ttt ()
- (if (and (not mai_make_panel)
- (findfile "mini-libraly.VLX")
- )
- (load "mini-libraly.VLX")
- )
- (mai_make_panel
- (list
- (list "库管理"
- (list "图库浏览""mini_blocksee")
- (list "词库取词""mini_text_lib")
- (list "查看幻灯库""mini_view_slb")
- )
- (list "实体变形"
- (list "四边形变形""mini_trans_reg")
- (list "曲线立面" "mini_hm")
- (list "沿路径放样" "mini_CopyAlongCurve")
- )
- )
- )
- )
谁知道mini-libraly里面里面的dcl文件怎么写!可以根据lisp文件自动添加删减按钮!
|