求一个完整简洁的示例

lucas3

求一个完整简洁的示例，假如画一个圆，运行命令后首先弹出一个简单的对话框（只有一个选择）选择图层，确定之后绘制这个圆，退出之后，当再次调用此命令时，弹出对话框，此时的图层应为上次选择的那个图层，所以不需要再次选择了，只需要点确定即可，目的是我想了解这种记忆功能是怎样做的， 听别人解释是使用扩展数据或图形词典记录所选择图层名，但是具体的不懂，所以求助！

1. (setq LAYERS (TABLELAYERS))

(setq LAYERS (TABLELAYERS))

获取图层列表

2.   (defun TABLELAYERS (/ L NM LST)
   
3.     (while (setq L (TBLNEXT "LAYER" (NOT L)))
   
4.       (if (NOT (WCMATCH (setq NM (CDR (ASSOC 2 L))) "*|*"))
   
5.   (setq LST (CONS NM LST))
   
6.       )
   
7.     )
   
8.     (ACAD_STRLSORT LST)
   
9.   )

  (defun TABLELAYERS (/ L NM LST)<br />     (while (setq L (TBLNEXT "LAYER" (NOT L)))<br />       (if (NOT (WCMATCH (setq NM (CDR (ASSOC 2 L))) "*|*"))<br />   (setq LST (CONS NM LST))<br />       )<br />     )<br />     (ACAD_STRLSORT LST)<br />   )

Free-Lancer

通用函数编入 Lib.vlx , 已更新

1. (if (not $globle_layer)
   
2.   (setq $globle_layer (getvar "clayer"))
   
3. )
   
4. (defun c:tt (/ strl fn id lyrlst)
   
5.   (setq        strl   '("layer:dialog {"
   
6.                  "label = \"Select Layer\" ;"
   
7.                  ":list_box { key = \"lyr\" ;  label = \"Layer\" ;}"
   
8.                  "ok_cancel;"
   
9.                  "}"
   
10.                 )
    
11.         fn     (dcl:make strl)
    
12.         id     (dcl:load fn "layer")
    
13.         lyrlst (fy:table "layer")
    
14.   )
    
15.   (dcl:listaction "lyr" 'lyrlst '$globle_layer)
    
16.   (dcl:accept)
    
17.   (if (= 1 (dcl:start id fn)) (setvar "clayer" $globle_layer))
    
18.   (princ)
    
19. )
    

(if (not $globle_layer)<br />   (setq $globle_layer (getvar "clayer"))<br /> )<br /> (defun c:tt (/ strl fn id lyrlst)<br />   (setq        strl   '("layer:dialog {"<br />                  "label = \"Select Layer\" ;"<br />                  ":list_box { key = \"lyr\" ;  label = \"Layer\" ;}"<br />                  "ok_cancel;"<br />                  "}"<br />                 )<br />         fn     (dcl:make strl)<br />         id     (dcl:load fn "layer")<br />         lyrlst (fy:table "layer")<br />   )<br />   (dcl:listaction "lyr" 'lyrlst '$globle_layer)<br />   (dcl:accept)<br />   (if (= 1 (dcl:start id fn)) (setvar "clayer" $globle_layer))<br />   (princ)<br /> )<br />

Free-Lancer

用全局变量

lucas3

Free-Lancer 发表于 2014-9-28 00:14
用全局变量

大师，能不能写出这个示例呢？

newer

lucas3 发表于 2014-9-28 00:17
大师，能不能写出这个示例呢？

(if (not 全局变量层名)
    (...............)  ;;选层
)
(.............)
(setlayer e  全局变量层名)

lucas3

newer 发表于 2014-9-28 00:38
(if (not 全局变量层名)
    (...............)  ;;选层
)

大家都是夜猫子啊
谢谢，但是还是不够详细啊

newer

lucas3 发表于 2014-9-28 01:03
大家都是夜猫子啊
谢谢，但是还是不够详细啊

你那么聪明，一点即通了。;P

Free-Lancer

lucas3 发表于 2014-9-28 01:03
大家都是夜猫子啊
谢谢，但是还是不够详细啊

1. (if (not $globle_layer)
   
2.   (setq $globle_layer (getvar "clayer"))
   
3. )
   
4. (defun c:tt (/ strl fn id lyrlst)
   
5.   (setq        strl   '("layer:dialog {"
   
6.                  "label = \"Select Layer\" ;"
   
7.                  ":list_box { key = \"lyr\" ;  label = \"Layer\" ;}"
   
8.                  "ok_cancel;"
   
9.                  "}"
   
10.                 )
    
11.         fn     (dcl:make strl)
    
12.         id     (dcl:load fn "layer")
    
13.         lyrlst (table "layer")
    
14.   )
    
15.   (dcl:addlist
    
16.     "lyr"
    
17.     lyrlst
    
18.     (vl-position $globle_layer lyrlst)
    
19.   )
    
20.   (dcl:listaction "lyr" 'lyrlst '$globle_layer)
    
21.   (dcl:accept)
    
22.   (dcl:start id fn)
    
23.   (princ)
    
24. )
    
25. (defun dcl:listaction (key lst sym)
    
26.   (action_tile
    
27.     key
    
28.     (strcat "(setq "
    
29.             (vl-symbol-name sym)
    
30.             " (nth (atoi $value) "
    
31.             (vl-symbol-name lst)
    
32.             "))"
    
33.     )
    
34.   )
    
35. )
    
36. (defun table (name / l nm lst)
    
37.   (while (setq l (tblnext name (not l)))
    
38.     (if        (setq nm (cdr (assoc 2 l)))
    
39.       (setq lst (cons nm lst))
    
40.     )
    
41.   )
    
42.   (acad_strlsort lst)
    
43. )
    

(if (not $globle_layer)<br />   (setq $globle_layer (getvar "clayer"))<br /> )<br /> (defun c:tt (/ strl fn id lyrlst)<br />   (setq        strl   '("layer:dialog {"<br />                  "label = \"Select Layer\" ;"<br />                  ":list_box { key = \"lyr\" ;  label = \"Layer\" ;}"<br />                  "ok_cancel;"<br />                  "}"<br />                 )<br />         fn     (dcl:make strl)<br />         id     (dcl:load fn "layer")<br />         lyrlst (table "layer")<br />   )<br />   (dcl:addlist<br />     "lyr"<br />     lyrlst<br />     (vl-position $globle_layer lyrlst)<br />   )<br />   (dcl:listaction "lyr" 'lyrlst '$globle_layer)<br />   (dcl:accept)<br />   (dcl:start id fn)<br />   (princ)<br /> )<br /> (defun dcl:listaction (key lst sym)<br />   (action_tile<br />     key<br />     (strcat "(setq "<br />             (vl-symbol-name sym)<br />             " (nth (atoi $value) "<br />             (vl-symbol-name lst)<br />             "))"<br />     )<br />   )<br /> )<br /> (defun table (name / l nm lst)<br />   (while (setq l (tblnext name (not l)))<br />     (if        (setq nm (cdr (assoc 2 l)))<br />       (setq lst (cons nm lst))<br />     )<br />   )<br />   (acad_strlsort lst)<br /> )<br />

lucas3

newer 发表于 2014-9-28 01:07
你那么聪明，一点即通了。

:L 版主取笑我了

lucas3

Free-Lancer 发表于 2014-9-28 07:38
通用函数编入 Lib.vlx , 已更新

大师，才休息几个小时啊，要保重身体呀！
待会测试，谢谢大师！

lucas3

Free-Lancer 发表于 2014-9-28 03:45

谢谢Free-Lancer大师的教学， 整了一个小时，终于依葫芦画瓢，改好了一个程序！:victory:
大师的程序里有一些函数在库里，对我来说增加了点难度，如果带注释的话，可能就不用这么久了……

还有一个疑问，就是几个程序都有图层选择的这一功能，会不会这一个程序我选择了图层4， 下一程序打开也是图层4 ？会不会干扰到？如果会，那要怎么避免呢？

csharp

lucas3 发表于 2014-9-28 09:24
谢谢Free-Lancer大师的教学， 整了一个小时，终于依葫芦画瓢，改好了一个程序！
大师的程序里 ...

每个程序用自己的全局变量

lucas3

csharp 发表于 2014-9-28 09:49
每个程序用自己的全局变量

谢谢，就是这个“$globle_layer” 取不同的名字吧

csharp

lucas3 发表于 2014-9-28 10:51
谢谢，就是这个“$globle_layer” 取不同的名字吧

换个名字就可以了
$globle_layer1
$globle_layer2
………

Free-Lancer

lucas3 发表于 2014-9-28 09:24
谢谢Free-Lancer大师的教学， 整了一个小时，终于依葫芦画瓢，改好了一个程序！
大师的程序里 ...

封装函数都贴过源码，关键部分也有注释
不经过考验代码也不会封装的