永不言弃 发表于 2014-9-18 17:58:37

怎么把图层信息添加到控件里面，谢谢



怎么把图层信息添加到控件里面，谢谢




ZZXXQQ 发表于 2014-9-19 08:35:39

(defun c:tt ()
(setvar "cmdecho" 0)
(setq lalst (list) lay nil)
(while (setq lay (tblnext "LAYER" (not lay)))
(setq lalst (cons (cdr(assoc 2 lay)) lalst))
)
(if (> (setq dcl_id (load_dialog "tucheng")) 0) (progn
(if (new_dialog "tucheng" dcl_id) (progn
(start_list "n1")
(mapcar 'add_list lalst)
(end_list)
(action_tile "accept" "(ok_tucheng)(done_dialog 1)")
(setq dd (start_dialog))                                ;调用对话框子程序
)
   (princ "\n无法显示对话框！")
)
(unload_dialog dcl_id)
)
(princ "\n无法加载对话框！")
)
(if (= dd 1) (princ lnm))
(prin1)
)

(defun ok_tucheng ()
(setq lnm (nth (atoi (get_tile "n1")) lalst))        ;取得对话框内的ww值
)

永不言弃 发表于 2014-9-19 10:01:54

非常谢谢
页: [1]
查看完整版本: 怎么把图层信息添加到控件里面，谢谢