wj2008wh 发表于 2014-8-30 13:43:57

感谢版主的无私奉献。

SunSpring 发表于 2014-8-30 18:44:49

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

伪书虫86 发表于 2014-9-5 13:48:05

支持支持

phoevana 发表于 2014-9-9 08:20:12

支持e大，

xiaxiang 发表于 2014-9-9 09:53:52

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

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

lucas_3333 发表于 2014-9-9 10:30:00

xiaxiang 发表于 2014-9-9 09:53 static/image/common/back.gif
看了一下确实缺少函数，楼主补上？

(defun GetCurrentSpace (Doc / BlkCol SpaceList CurSpace ActSpace temp1)
   ; Returns the "block object" for the active space
   ; Thanks to Jeff Mishler

      (if (= (getvar "cvport") 1)
         (vla-get-PaperSpace Doc)
         (vla-get-ModelSpace Doc)
      )
   )

lucas_3333 发表于 2014-9-9 10:38:16

(defun GetCurrentSpace (Doc / BlkCol SpaceList CurSpace ActSpace temp1)
; Returns the "block object" for the active space
; Thanks to Jeff Mishler

        (if (= (getvar "cvport") 1)
                (vla-get-PaperSpace Doc)
                (vla-get-ModelSpace Doc)
        )
)

(defun SingleSelect (Listof Message Toggle / DiaLoad tmpStr tmpTog tmpList)

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

bzhjl 发表于 2014-9-14 01:13:27

感谢分享！

qq277274448 发表于 2014-9-16 20:38:00

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

看天的小树 发表于 2014-9-21 19:58:48

支持楼主的提议YB7E
页: 1 2 [3] 4 5 6 7 8 9 10 11 12
查看完整版本: 发源码！同时感谢E大！明经的雷锋！