[LISP程序]：cad脚本自动生成程序

jdhszh

执行批处理前一定要确定运行的程序为CAD内部程序或自定义程序加入至启动组。如下:工具→加载应用程序→\(启动组\)内容→添加→关闭。工具→运行脚本…
     河南省测绘工程院 金德海提供[CODE]

zml84

不能下载，请楼主另发！

dwg001

可以下。
传播一下，楼主不介意吧？


;       =============================================
;       |              脚本生成程序                 |
;       |                                           |
;       |         版本: V1.1   作者: 金德海         |
;       |             E_mail jdhszh@163.com         |
;       =============================================
(defun C:SCR(/ dfil qq bbb ml sm mb)
(setq grm(getstring "\n要运行的程序名: "))
(initget 2 "y n")
(setq nm (strcase(getstring "程序对图形有编辑吗?<编辑需存盘> Y(有)/N(无)/:<Y>")))
(if (eq nm "") (setq nm "Y"))
(graphscr)
(setq qq (qf_getFolder "选择DWG所在文件夹:"))
(if qq
(progn
(setq bbb(vl-directory-files qq))
(setq bbb(cdr(cdr bbb)))
(setq ml (open "C:\\ml.scr" "w"))
(setq sm(length bbb))
  (princ ";;目录共有文件 " ml)
  (prin1 sm ml)
  (princ "\n" ml)
  (setq i 0)
   (repeat sm
   (setq mb(nth i bbb))
   (setq dwg(strcat "*" "DWG"))
   (setq dxg(strcat "*" "dwg"))
   (if (or (wcmatch mb dwg) (wcmatch mb dxg))
    (progn
    (setq mb1(strcat qq "\\" mb))
    (princ "open " ml)
    (princ mb1 ml)
    (princ "\n" ml)  ;;空一格
    (princ grm ml)  ;;CAD执行命令,可重复
    (princ "\n" ml)
    (princ "close" ml)
(if (eq nm "Y")
    (progn
    (princ "\n" ml)
    (princ "n" ml)
    ))
    (princ "\n" ml)
    )
   )
(setq i(1+ i))
  )
(close ml)
;;(startapp "notepad.exe" "C:\\ml.scr")
)
)
(alert "脚本ml.scr在C盘根目录下，执行前一\n定要确定运行的程序为CAD内部程序\n或自定义程序加入

至启动组。如下:\n工具→加载应用程序→\(启动组\)内容\n→添加→关闭。\n工具→运行脚本…\n\n   

河南省测绘工程院 金德海提供\n         E_mail jdhszh@163.com")
)
;;qf_getFolder 引至明通道
(defun qf_getFolder (msg / WinShell shFolder path catchit)
  (vl-load-com)
  (setq winshell (vlax-create-object "Shell.Application"))
  (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
  (setq
    catchit (vl-catch-all-apply
      '(lambda ()
(setq shFolder (vlax-get-property shFolder 'self))
(setq path (vlax-get-property shFolder 'path))
       )
    )
  )
  (if (vl-catch-all-error-p catchit)
    nil
    path
  )
)

雨箭风刀

好像标题不对，应该叫自动运行脚本程序吧？

bojuediyi

强烈支持原创