选择集保存,图档关了后再开还可以用到的选择集

wowan1314

把选择集转成图元名表！ 存进词典。 下次打开吧 图元名表转成选择集。

不过不知道图元名会不会变！！ {:soso_e115:}  。

st788796

可以用句柄

newer

wowan1314 发表于 2013-7-11 23:59
把选择集转成图元名表！ 存进词典。 下次打开吧 图元名表转成选择集。

不过不知道图元名会不会变！！ {: ...

实体名会变， 保存句柄可以。

newer

楼主，好奇，为什么要保存选择集到下次图打开？ 有什么特别的后续的应用吗？

gdslqs

其实楼主这个问题我也遇到过，比如图纸修改时需要对上次操作过的选择集进行，这种情况还是多普遍的，看来得学习下句柄了

819534890

保存句柄，下次打开的时候把句柄转为选择集。

NET-JOB

明经有发，代码如下
by mj0000
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=100375
DCL自己去拿吧

2. (defun c:ST (/ SSLists)
   
3.   (setq SSLists (Sub-SS-SSLists))
   
4.   (dcl_contents SSLists)
   
5. )
   
6. 
   
7. (defun dcl_contents (SSLists / dcl_id S_D)
   
8.   (sssetfirst)
   
9.   (if (> (setq dcl_id (load_dialog "随图选择集")) 0)
   
10.     (if        (new_dialog "SuiTuSS" dcl_id)
    
11.       (progn (action_tile "AddSS" "(done_dialog 1)")
    
12.              (action_tile "ChsSS" "(done_dialog 2)")
    
13.              (action_tile "DelSS" "(done_dialog 3)")
    
14.              (action_tile "SSName" "(setq SSNam $value)")
    
15. 
    
16.              (start_list "SSList") ;_已有选择集列表
    
17.              (mapcar 'add_list SSLists)
    
18.              (end_list)
    
19.              (action_tile "SSList" "(setq SSLst $value)")
    
20.              (mode_tile "SSName" 2) ;_鼠标焦点
    
21. 
    
22.              (action_tile "cancel" "(done_dialog 0)")
    
23.              (setq S_D (start_dialog))
    
24.              (cond
    
25.                ((= S_D 1) (Sub-SS-CreateSS SSNam))
    
26.                ((= S_D 2) (Sub-SS-ChooseSS (nth (read SSLst) SSLists)))
    
27.                ((= S_D 3) (Sub-SS-DelSS (nth (read SSLst) SSLists)))
    
28.              )
    
29.              (start_dialog)
    
30.              (unload_dialog dcl_id)
    
31.       )
    
32.       (princ "\n无法显示对话框！")
    
33.     )
    
34.     (princ "\n无法加载对话框！")
    
35.   )
    
36.   (princ)
    
37. )
    
38. 
    
39. ;;;================================================================================
    
40. ;;;自贡黄明儒
    
41. (defun Sub-SS-CreateSS (SSNam / SS n en listxz SSLists)
    
42.   (if SSNam
    
43.     (progn
    
44.       (setq SS (ssget))
    
45.       (repeat (setq n (sslength SS))
    
46.         (setq en (ssname SS (setq n (1- n))))
    
47.         (setq listxz (append listxz (list (cdr (assoc 5 (entget en))))))
    
48.       )
    
49.       (VL-CATCH-ALL-APPLY 'vlax-ldata-put (list "SS-Data-SSXZJ" SSNam listxz))
    
50.     )
    
51.   )
    
52.   (setq SSLists (Sub-SS-SSLists))
    
53.   (dcl_contents SSLists)
    
54. )
    
55. ;;调出选择集
    
56. (defun Sub-SS-ChooseSS (SSNam / N1 RESULT SS1)
    
57.   (setq result (VL-CATCH-ALL-APPLY 'vlax-ldata-get (list "SS-Data-SSXZJ" SSNam)))
    
58.   (if (VL-CATCH-ALL-ERROR-P result)
    
59.     nil
    
60.     (progn
    
61.       (setq ss1 (ssadd))
    
62.       (repeat (length result)
    
63.         (setq n1 (car result))
    
64.         (setq result (cdr result))
    
65.         (ssadd (handent n1) ss1)
    
66.       )
    
67.     )
    
68.   )
    
69.   (sssetfirst nil ss1)
    
70. )
    
71. (defun Sub-SS-DelSS (SSNAM / SSLists)
    
72.   (VL-CATCH-ALL-APPLY 'vlax-ldata-delete (list "SS-Data-SSXZJ" SSNam)) ;_删除单个选择集
    
73.   (setq SSLists (Sub-SS-SSLists))
    
74.   (dcl_contents SSLists)
    
75. )
    
76. 
    
77. (defun Sub-SS-DelSSAll (/ SSLists)
    
78.   (YX:Put-Dict-DelDict "SS-Data-SSXZJ") ;_删除词典，清空选择集
    
79.   (setq SSLists (Sub-SS-SSLists))
    
80.   (dcl_contents SSLists)
    
81. )
    
82. 
    
83. (defun Sub-SS-SSLists (/ LIS SSNAMS X)
    
84.   (if (setq lis (vlax-ldata-list "SS-Data-SSXZJ"))
    
85.     (setq SSNAMlst (mapcar '(lambda (x) (car x)) lis))
    
86.     (setq SSNAMlst nil)
    
87.   )
    
88. )

(defun c:ST (/ SSLists)<br />   (setq SSLists (Sub-SS-SSLists))<br />   (dcl_contents SSLists)<br /> )<br /> <br /> (defun dcl_contents (SSLists / dcl_id S_D)<br />   (sssetfirst)<br />   (if (> (setq dcl_id (load_dialog "随图选择集")) 0)<br />     (if        (new_dialog "SuiTuSS" dcl_id)<br />       (progn (action_tile "AddSS" "(done_dialog 1)")<br />              (action_tile "ChsSS" "(done_dialog 2)")<br />              (action_tile "DelSS" "(done_dialog 3)")<br />              (action_tile "SSName" "(setq SSNam $value)")<br /> <br />              (start_list "SSList") ;_已有选择集列表<br />              (mapcar 'add_list SSLists)<br />              (end_list)<br />              (action_tile "SSList" "(setq SSLst $value)")<br />              (mode_tile "SSName" 2) ;_鼠标焦点<br /> <br />              (action_tile "cancel" "(done_dialog 0)")<br />              (setq S_D (start_dialog))<br />              (cond<br />                ((= S_D 1) (Sub-SS-CreateSS SSNam))<br />                ((= S_D 2) (Sub-SS-ChooseSS (nth (read SSLst) SSLists)))<br />                ((= S_D 3) (Sub-SS-DelSS (nth (read SSLst) SSLists)))<br />              )<br />              (start_dialog)<br />              (unload_dialog dcl_id)<br />       )<br />       (princ "\n无法显示对话框！")<br />     )<br />     (princ "\n无法加载对话框！")<br />   )<br />   (princ)<br /> )<br /> <br /> ;;;================================================================================<br /> ;;;自贡黄明儒<br /> (defun Sub-SS-CreateSS (SSNam / SS n en listxz SSLists)<br />   (if SSNam<br />     (progn<br />       (setq SS (ssget))<br />       (repeat (setq n (sslength SS))<br />         (setq en (ssname SS (setq n (1- n))))<br />         (setq listxz (append listxz (list (cdr (assoc 5 (entget en))))))<br />       )<br />       (VL-CATCH-ALL-APPLY 'vlax-ldata-put (list "SS-Data-SSXZJ" SSNam listxz))<br />     )<br />   )<br />   (setq SSLists (Sub-SS-SSLists))<br />   (dcl_contents SSLists)<br /> )<br /> ;;调出选择集<br /> (defun Sub-SS-ChooseSS (SSNam / N1 RESULT SS1)<br />   (setq result (VL-CATCH-ALL-APPLY 'vlax-ldata-get (list "SS-Data-SSXZJ" SSNam)))<br />   (if (VL-CATCH-ALL-ERROR-P result)<br />     nil<br />     (progn<br />       (setq ss1 (ssadd))<br />       (repeat (length result)<br />         (setq n1 (car result))<br />         (setq result (cdr result))<br />         (ssadd (handent n1) ss1)<br />       )<br />     )<br />   )<br />   (sssetfirst nil ss1)<br /> )<br /> (defun Sub-SS-DelSS (SSNAM / SSLists)<br />   (VL-CATCH-ALL-APPLY 'vlax-ldata-delete (list "SS-Data-SSXZJ" SSNam)) ;_删除单个选择集<br />   (setq SSLists (Sub-SS-SSLists))<br />   (dcl_contents SSLists)<br /> )<br /> <br /> (defun Sub-SS-DelSSAll (/ SSLists)<br />   (YX:Put-Dict-DelDict "SS-Data-SSXZJ") ;_删除词典，清空选择集<br />   (setq SSLists (Sub-SS-SSLists))<br />   (dcl_contents SSLists)<br /> )<br /> <br /> (defun Sub-SS-SSLists (/ LIS SSNAMS X)<br />   (if (setq lis (vlax-ldata-list "SS-Data-SSXZJ"))<br />     (setq SSNAMlst (mapcar '(lambda (x) (car x)) lis))<br />     (setq SSNAMlst nil)<br />   )<br /> )

yzr2002626

用处多，谢谢分享！

SmartStar

直接编组不就可以了嘛！

Free-Lancer

太大了吧！你的图才多大？来自: Android客户端

wowan1314

kcad2010 发表于 2013-7-14 20:34
我是做模具设计的,是画零件时注解用的,有时一二天都画不完,所以要把以所有的选择集保存.画完后就要用到这些 ...

呵呵！ 不知道楼主要实现什么功能！ 80000KB的lsp呀！

快有CAD04的安装包那么大了！