无聊发布CAD版本转换以及去除教育版戳记程序源代码

chlh_jd · 发表于 2012-9-24 18:40

这个函数是CAD2010等支持64位WIN7系统的ACAD自带的VLISP函数

wangph · 发表于 2012-9-24 19:35

chlh_jd 发表于 2012-9-24 18:40
这个函数是CAD2010等支持64位WIN7系统的ACAD自带的VLISP函数

还没有用过64bitCAD，为什么32bitCAD中没有dcl_MultiFileDialog函数呢？

iceberg2509 · 发表于 2012-10-5 21:04

lingduwx 发表于 2012-8-15 12:14
顶你了楼主，版本转换对于用低版本CAD软件非常实用，主要是现在的高版本软件使用越来越慢了，
不过请问楼主 ...

MSComDlg.CommonDialog为xp系统自带，win7下没有的。所以不能运行。

iceberg2509 · 发表于 2012-10-5 21:10

本帖最后由 iceberg2509 于 2012-10-5 22:01 编辑

chlh_jd 发表于 2012-8-15 00:54
这个还是比较给力的！
缺少AddSeprate函数，getmutifiles不支持64位系统的，可以用下面这个

Addseprate函数功能如同阁下所猜想，不过你的函数有问题。

iceberg2509 · 发表于 2012-10-5 21:11

ORCHI 发表于 2012-9-20 17:36
no function definition: MAKELIST
是不是还缺makelist函数呢

(defun makelist (str pat / i j n lst)
;;生成表记录函数：把字符串变为表
  (cond
((/= (type str) (type pat) 'STR))
((= str pat) '(""))
(T
   (setq i 0
   n (strlen pat)
   )
   (while (setq j (vl-string-search pat str i))
   (setq lst (cons (substr str (1+ i) (- j i)) lst)
      i    (+ j n)
   )
   )
   (reverse (cons (substr str (1+ i)) lst))
)
  )
)

652758365 · 发表于 2012-10-5 21:50

很佩服楼主，

请问

命令: DwgConverter
; 错误: *error* 函数中出错AutoCAD 变量设置被拒绝: "acadlspasdoc" nil

命令:

请问如何处理，谢谢。

iceberg2509 · 发表于 2012-10-5 22:05

652758365 发表于 2012-10-5 21:50
很佩服楼主，

请问

这个程序只能在未保存的文件中运行。

cjcak47 · 发表于 2012-10-5 22:51

不错啊！谢谢楼主

手表上的你 · 发表于 2012-10-14 02:05

好程序啊，打印的时候被那个戳记烦得不行

jiheng · 发表于 2012-10-14 08:06

正在认真学习中。。。。

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

[资源] 无聊发布CAD版本转换以及去除教育版戳记程序源代码

点评

本帖子中包含更多资源