【求助】请高手帮忙加一个对话框

njut_prince

这个是一个批量新建图层的源码，请高手加一个对话框，可以选择要新建哪几个图层（支持多选），谢谢！
因为如果图层比较多的话不是每次都要用到所以的图层，希望新建需要用到的图层！*(源码里面的图层是可以修改增加的)

;;一次性建立多个层
(DEFUN c:tttt (/ lt lst)
  (DEFUN mklacolt (lay col lt / chk_lay)
    (if (= (tblsearch "layer" lay) nil)
      (command "layer" "new" lay "c" col lay "lt" lt lay "")
    )
  )
  (setvar "cmdecho" 0)
  (foreach lt '("CENTER" "HIDDEN" "DASHED" "phantom")
    (if (= (tblsearch "ltype" lt) nil)
      (command "_linetype" "l" lt "" "")
    )
  )
  (foreach lst '(
   ("剖面线层" 40 "CONTINUOUS")
   ("中心线层" 1 "CENTER")
   ("短虚线层" 3 "HIDDEN")
   ("长虚线层" 6 "DASHED")
   ("细实线层" 2 "CONTINUOUS")
   ("尺寸线层" 4 "Continuous")
   ("流道层" 2 "CONTINUOUS")
   ("线切割层" 2 "CONTINUOUS")
   ("文字层" 6 "CONTINUOUS")
   ("顶出板层" 132 "HIDDEN")
   ("顶针平面层" 7 "CONTINUOUS")
  )
    (mklacolt (car lst) (cadr lst) (caddr lst))
  )
  (PROMPT "\n新图层已建立")
  (princ)
)

smartstar

楼主可以试试这个http://bbs.mjtd.com/thread-96286-1-1.html

njut_prince

楼上的还是不能满足要求哦，我想要的是能选择要新建的图层。。。

ZZXXQQ

试下看

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

sachindkini

ZZXXQQ 发表于 2013-4-9 09:49
试下看

[/post]

ommand:  TTTT
; error: bad argument type: stringp nil

njut_prince

zzxxqq版主的已经满足要求了，最好能像CAD图层管理器里面一样能显示名称、颜色、线型那就完美了   谢谢各位！！！

gulang008

还是有一些看不到啊。。

xyp1964

2. ;; 一次性建立多个层
   
3. ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
   
4. (defun c:tt (/ ilst ll1 ll2)
   
5.   (defun main-pro (/ ss i s1)
   
6.     (foreach lt        '("CENTER" "HIDDEN" "DASHED" "phantom")
   
7.       (if (= (tblsearch "ltype" lt) nil)
   
8.         (command "_linetype" "l" lt "" "")
   
9.       )
   
10.     )
    
11.     (foreach a (mapcar 'atoi (xyp-Get-Str2Lst li1))
    
12.       (setq b (nth a lst))
    
13.       (XYP-MKLACOLT (car b) (cadr b) (caddr b))
    
14.     )
    
15.   )
    
16.   (if (or (null li1) (/= (type li1) 'STR))
    
17.     (setq li1 "0")
    
18.   )
    
19.   (setq        lst  '(("剖面线层" 40 "CONTINUOUS")
    
20.                ("中心线层" 1 "CENTER")
    
21.                ("短虚线层" 3 "HIDDEN")
    
22.                ("长虚线层" 6 "DASHED")
    
23.                ("细实线层" 2 "CONTINUOUS")
    
24.                ("尺寸线层" 4 "Continuous")
    
25.                ("流道层" 2 "CONTINUOUS")
    
26.                ("线切割层" 2 "CONTINUOUS")
    
27.                ("文字层" 6 "CONTINUOUS")
    
28.                ("顶出板层" 132 "HIDDEN")
    
29.                ("顶针平面层" 7 "CONTINUOUS")
    
30.               )
    
31.         lst1 (mapcar 'car lst)
    
32.         ilst '(("li1" "直径" "list" "lst1" "8" "10"))
    
33.   )
    
34.   (if (= (xyp-Dcl-Init Ilst "【建立图层】" t) 1)
    
35.     (main-pro)
    
36.   )
    
37.   (princ)
    
38. )

;; 一次性建立多个层<br /> ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF<br /> (defun c:tt (/ ilst ll1 ll2)<br />   (defun main-pro (/ ss i s1)<br />     (foreach lt        '("CENTER" "HIDDEN" "DASHED" "phantom")<br />       (if (= (tblsearch "ltype" lt) nil)<br />         (command "_linetype" "l" lt "" "")<br />       )<br />     )<br />     (foreach a (mapcar 'atoi (xyp-Get-Str2Lst li1))<br />       (setq b (nth a lst))<br />       (XYP-MKLACOLT (car b) (cadr b) (caddr b))<br />     )<br />   )<br />   (if (or (null li1) (/= (type li1) 'STR))<br />     (setq li1 "0")<br />   )<br />   (setq        lst  '(("剖面线层" 40 "CONTINUOUS")<br />                ("中心线层" 1 "CENTER")<br />                ("短虚线层" 3 "HIDDEN")<br />                ("长虚线层" 6 "DASHED")<br />                ("细实线层" 2 "CONTINUOUS")<br />                ("尺寸线层" 4 "Continuous")<br />                ("流道层" 2 "CONTINUOUS")<br />                ("线切割层" 2 "CONTINUOUS")<br />                ("文字层" 6 "CONTINUOUS")<br />                ("顶出板层" 132 "HIDDEN")<br />                ("顶针平面层" 7 "CONTINUOUS")<br />               )<br />         lst1 (mapcar 'car lst)<br />         ilst '(("li1" "直径" "list" "lst1" "8" "10"))<br />   )<br />   (if (= (xyp-Dcl-Init Ilst "【建立图层】" t) 1)<br />     (main-pro)<br />   )<br />   (princ)<br /> )

恕放之生命

学习一下。