发源码！同时感谢E大！明经的雷锋！

wj2008wh

感谢版主的无私奉献。

SunSpring

CopyNestedItem.lsp 少了两个函数.有空时候可以补下.GetCurrentSpace和SingleSelect

伪书虫86

支持支持

phoevana

支持e大，

xiaxiang

SunSpring 发表于 2014-8-30 18:44
CopyNestedItem.lsp 少了两个函数.有空时候可以补下.GetCurrentSpace和SingleSelect

看了一下确实缺少函数，楼主补上？

lucas_3333

xiaxiang 发表于 2014-9-9 09:53
看了一下确实缺少函数，楼主补上？

1. (defun GetCurrentSpace (Doc / BlkCol SpaceList CurSpace ActSpace temp1)
   
2.    ; Returns the "block object" for the active space
   
3.    ; Thanks to Jeff Mishler
   
4. 
   
5.       (if (= (getvar "cvport") 1)
   
6.          (vla-get-PaperSpace Doc)
   
7.          (vla-get-ModelSpace Doc)
   
8.       )
   
9.    )
   

(defun GetCurrentSpace (Doc / BlkCol SpaceList CurSpace ActSpace temp1)<br />    ; Returns the "block object" for the active space<br />    ; Thanks to Jeff Mishler<br /> <br />       (if (= (getvar "cvport") 1)<br />          (vla-get-PaperSpace Doc)<br />          (vla-get-ModelSpace Doc)<br />       )<br />    )<br />

lucas_3333

1. (defun GetCurrentSpace (Doc / BlkCol SpaceList CurSpace ActSpace temp1)
   
2. ; Returns the "block object" for the active space
   
3. ; Thanks to Jeff Mishler
   
4. 
   
5.         (if (= (getvar "cvport") 1)
   
6.                 (vla-get-PaperSpace Doc)
   
7.                 (vla-get-ModelSpace Doc)
   
8.         )
   
9. )

(defun GetCurrentSpace (Doc / BlkCol SpaceList CurSpace ActSpace temp1)<br /> ; Returns the "block object" for the active space<br /> ; Thanks to Jeff Mishler<br /> <br />         (if (= (getvar "cvport") 1)<br />                 (vla-get-PaperSpace Doc)<br />                 (vla-get-ModelSpace Doc)<br />         )<br /> )

1. (defun SingleSelect (Listof Message Toggle / DiaLoad tmpStr tmpTog tmpList)
   
2. 
   
3.         (setq DiaLoad (load_dialog "MyDialogs.dcl"))
   
4.         (if (new_dialog "SingleSelect" DiaLOad)
   
5.                 (progn
   
6.                         (start_list "listbox" 3)
   
7.                         (mapcar 'add_list Listof)
   
8.                         (end_list)
   
9.                         (if Message
   
10.                         (set_tile "text1" Message)
    
11.                         )
    
12.                         (if (not Toggle)
    
13.                                 (mode_tile "toggle1" 1)
    
14.                         )
    
15.                         (action_tile "listbox"
    
16.                                 "(if (= $reason 4)
    
17.                                         (progn
    
18.                                                  (setq tmpStr (get_tile \"listbox\"))
    
19.                                                  (if Toggle
    
20.                                                         (setq tmpTog (get_tile \"toggle1\"))
    
21.                                                  )
    
22.                                                  (done_dialog 1)
    
23.                                         )
    
24.                                 )"
    
25.                         )     
    
26.                         (action_tile "accept"
    
27.                                 "(progn
    
28.                                         (setq tmpStr (get_tile \"listbox\"))
    
29.                                         (if Toggle
    
30.                                                 (setq tmpTog (get_tile \"toggle1\"))
    
31.                                         )
    
32.                                         (done_dialog 1)
    
33.                                 )"
    
34.                         )
    
35.                         (action_tile "cancel" "(done_dialog 0)")
    
36.                         (if (= (start_dialog) 1)
    
37.                                 (progn
    
38.                                 (setq tmpList (read (strcat "(" tmpStr ")")))
    
39.                                 (if (= tmpTog "1")
    
40.                                          (cons T tmpList)
    
41.                                          tmpList
    
42.                                 )
    
43.                                 )
    
44.                         )
    
45.                 )
    
46.         )
    
47. )

(defun SingleSelect (Listof Message Toggle / DiaLoad tmpStr tmpTog tmpList)<br /> <br />         (setq DiaLoad (load_dialog "MyDialogs.dcl"))<br />         (if (new_dialog "SingleSelect" DiaLOad)<br />                 (progn<br />                         (start_list "listbox" 3)<br />                         (mapcar 'add_list Listof)<br />                         (end_list)<br />                         (if Message<br />                         (set_tile "text1" Message)<br />                         )<br />                         (if (not Toggle)<br />                                 (mode_tile "toggle1" 1)<br />                         )<br />                         (action_tile "listbox"<br />                                 "(if (= $reason 4)<br />                                         (progn<br />                                                  (setq tmpStr (get_tile \"listbox\"))<br />                                                  (if Toggle<br />                                                         (setq tmpTog (get_tile \"toggle1\"))<br />                                                  )<br />                                                  (done_dialog 1)<br />                                         )<br />                                 )"<br />                         )     <br />                         (action_tile "accept"<br />                                 "(progn<br />                                         (setq tmpStr (get_tile \"listbox\"))<br />                                         (if Toggle<br />                                                 (setq tmpTog (get_tile \"toggle1\"))<br />                                         )<br />                                         (done_dialog 1)<br />                                 )"<br />                         )<br />                         (action_tile "cancel" "(done_dialog 0)")<br />                         (if (= (start_dialog) 1)<br />                                 (progn<br />                                 (setq tmpList (read (strcat "(" tmpStr ")")))<br />                                 (if (= tmpTog "1")<br />                                          (cons T tmpList)<br />                                          tmpList<br />                                 )<br />                                 )<br />                         )<br />                 )<br />         )<br /> )

bzhjl

感谢分享！

qq277274448

支持楼主的提议,热心人一个

看天的小树

支持楼主的提议YB7E