明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: lucas_3333

[公告] 发源码!同时感谢E大!明经的雷锋!

    [复制链接]
发表于 2014-8-30 13:43 | 显示全部楼层
感谢版主的无私奉献。
回复

使用道具 举报

发表于 2014-8-30 18:44 | 显示全部楼层
CopyNestedItem.lsp 少了两个函数.有空时候可以补下.GetCurrentSpace和SingleSelect
回复

使用道具 举报

发表于 2014-9-5 13:48 | 显示全部楼层
支持支持
回复

使用道具 举报

发表于 2014-9-9 08:20 | 显示全部楼层
支持e大,
回复

使用道具 举报

发表于 2014-9-9 09:53 | 显示全部楼层
SunSpring 发表于 2014-8-30 18:44
CopyNestedItem.lsp 少了两个函数.有空时候可以补下.GetCurrentSpace和SingleSelect

看了一下确实缺少函数,楼主补上?
回复

使用道具 举报

 楼主| 发表于 2014-9-9 10:30 | 显示全部楼层
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.       (if (= (getvar "cvport") 1)
  5.          (vla-get-PaperSpace Doc)
  6.          (vla-get-ModelSpace Doc)
  7.       )
  8.    )
回复

使用道具 举报

 楼主| 发表于 2014-9-9 10:38 | 显示全部楼层
  1. (defun GetCurrentSpace (Doc / BlkCol SpaceList CurSpace ActSpace temp1)
  2. ; Returns the "block object" for the active space
  3. ; Thanks to Jeff Mishler

  4.         (if (= (getvar "cvport") 1)
  5.                 (vla-get-PaperSpace Doc)
  6.                 (vla-get-ModelSpace Doc)
  7.         )
  8. )


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

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

评分

参与人数 1明经币 +2 收起 理由
xiaxiang + 2 感谢分享!

查看全部评分

回复

使用道具 举报

发表于 2014-9-14 01:13 | 显示全部楼层
感谢分享!
回复

使用道具 举报

发表于 2014-9-16 20:38 | 显示全部楼层
支持楼主的提议,热心人一个
回复

使用道具 举报

发表于 2014-9-21 19:58 | 显示全部楼层
支持楼主的提议YB7E
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 20:15 , Processed in 0.212245 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表