DCL文件转Lisp文件

zixuan203344 · 发表于 2017-2-15 00:22:21

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

war5566sakura · 发表于 2017-2-22 12:43:03

正需要，支持楼主大人了！

qq1846687144 · 发表于 2017-2-23 10:15:17

学习学习！！！！

16719080 · 发表于 2017-2-26 23:06:43

学习下！！！谢谢！！！

1028882406@qq.c · 发表于 2017-2-28 00:22:56

谢谢楼主，顶一下

nizhen6007 · 发表于 2017-3-1 20:18:42

你厉害。感谢分享。

hncjddd · 发表于 2017-3-10 16:17:32

hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh

青梅煮茶 · 发表于 2017-3-23 17:28:00

啥也不说了，感谢楼主分享哇！

xtdwynij · 发表于 2017-4-3 15:59:58

回复可见吗？我又来了偷东西用了。

xtdwynij · 发表于 2017-4-5 13:57:36

好，正需要。

海平面建筑设计 · 发表于 2017-4-12 13:55:08

支持，感谢分享

508000096 · 发表于 2017-4-13 20:07:53

这个值得看一看。

winerfjy · 发表于 2017-4-15 09:12:13

都在一个文件里方便很多

winerfjy · 发表于 2017-4-15 09:13:28

都在一个文件里方便很多

clm840917 · 发表于 2017-4-16 08:02:43

;;;功能：  属性展示  及  刷刷刷
;;;日期：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]

账号		自动登录	找回密码
密码			立即注册

[每日一码] DCL文件转Lisp文件