[求助]：不知道谁有克隆选择易的源码

xbaron

我之前一直用选择易，因为不是编程爱好者，能用就行，但是现在公司装了新的安全系统，限制c盘的读写权限，原来能用的选择易现在一加载就说某某函数错误，本人记得论坛去年有人写过一个克隆选择易的源程序，现在那篇帖子被人删除了，不知道有没有人有，帖子的主人小菜最后发帖时间还是去年的，估计也是许久不上论坛了，想向他本人求助希望渺茫，谢谢各位帮忙了，如果成功本人讲献出500个晓东币！

小菜

我贴在这里了：http://www.jzdq.net.cn/bbs/Show. ... BoardID=14&TB=1
批评一下楼上，没有对偶的辛勤劳动引起足够的重视

zhaozwf

小菜，你好，你那程序，把lisp和dcl结合在一起的写法实在是爽，想请教你，这种写法

zml84

1..呵呵，在C盘临时目录里写*.dcl 了吧？

2..一个类似的代码见：
http://zml84.blog.sohu.com/83035704.html
[php]
;;;功能：  属性展示  及  刷刷刷
;;;日期：zml84 于 2008-03-28   
(defun C:TT (/ SS ID ID2 ENT ENTI I LST1 LST2 LST3 LST4 TMP)
    (if        (and (setq SS (entsel "\n点取源对象: "))
             (setq ENT (entget (car SS)))
             ;;过滤掉不可变组码
             (foreach N        '(-1 5 330 100 410)
                 (setq ENT (vl-remove-if
                               '(lambda (E) (= N (car E)))
                               ENT
                           )
                 )
             )
             (ZML-SSS-MAKE-DCL ENT "d:\\test.dcl")
             ;;载入对话框文件
             (>= (setq ID (load_dialog "d:\\test.dcl")) 0)
        )
......
[/php]

XDnpu349

ss 实在是太好用了。。一直都没找到源码，不知道怎么实现的，现在终于知道原理了。感谢小菜啊。