[求助]：帮忙看看下面程序,如何实现在cad中调用exe文件

pipi002004

下面是tssd中的cad调用其他程序的代码,可是,(&beg) ,,,(&end),,,(&path))都是什么啊?
由于我门专业的特殊性,需要在绘图时候调用很多小的计算程序,每次去找很不方便,我想做个屏幕菜单把他们打开,高手帮帮忙啊,假设我的程序都在d:\cad r14\    下帮我补一下代码好么


(defun c:Ck (/ st)
  (if (> (&beg) -1)
    (progn
      (if (setq st (findfile "ck.exe"))
        (startapp st)
        (princ "\n**系统错误，无法找到相应资源!")
      )
      (&end)
    )
  )
  (princ)
)
(defun c:Tszhelp ()
  (help "tssd.hlp")
  (princ)
)
(defun c:Ie ()
  (command "browser" "http://www.tsz.com.cn")
  (princ)
)
(defun c:Gjchxb (/ st)
  (if (> (&beg) -1)
    (progn
      (if (setq st (findfile "GJCHXB.exe"))
        (startapp st)
        (princ "\n**系统错误，无法找到相应资源!")
      )
      (&end)
    )
  )
  (princ)
)
(defun c:Gfcx (/ st)
  (if (and
        (setq st (&path))
        (setq st (strcat st "prg\\结构规范查询.chm"))
        (setq st (findfile st))
      )
    (startapp (strcat "hh " st))
  )
  (princ)
)

ljpnb

参考一下我的:

(DEFUN C:LSP ()
  (startapp
    "notepad"
    "\"c:\\Program Files\\AutoCAD 2004\\Support\\acad2004doc.lsp\""
  )
)

(DEFUN C:MNU ()
  (startapp
    "notepad"
    "\"c:\\Documents and Settings\\ljp\\Application Data\\Autodesk\\AutoCAD 2004\\R16.0\\chs\\Support\\acad.mnu\""
  )
)

(DEFUN C:MJB3 ()
  (startapp "explorer.exe /e," "\"\\\\mjb-3\"")
)

(DEFUN C:SUP()
  (startapp "explorer.exe /e,"
            "\"c:\\Program Files\\AutoCAD 2004\\Support\""
  )
)

(DEFUN C:winamp()
  (startapp "C:\\Program Files\\Winamp\\winamp.exe")
)

pipi002004

谢谢上面这位好心的大哥，不过我还有个问题,,你这样的话等于是要找到所有要调用文件的路径,如果换了话就不行了,能不能这样,我把所有的要调用的小程序都拷贝到cad安装路径下的\waigua子目录中,再掉用,这样的话我只要定义一下 ,在任何机器上,我只要把,waigua考过去,还有菜单文件考过去就能用了啊!大哥有这样的吗?帮忙想想,再次谢谢

ljpnb

具体我没有用过，估计可以这样做，你先试试看，有问题再说嘛。。。

czg09180274

最初由 ljpnb 发布
[B]参考一下我的:

(DEFUN C:LSP ()
  (startapp
    "notepad"
    "\"c:\\Program Files\\AutoCAD 2004\\Support\\acad2004doc.lsp\""
  )
)

(DEFUN C:MNU ()
  (startapp
    "notepad"
    "\"c:\\Doc... [/B]

再请教ljpnb，如果想在打开某一执行程序之后，再调用用它创建的文件，该如何来组织程序呢？
盼请指教

ljpnb

回5楼，只要再指定目录和文件名就可以了，象这句
(startapp
"notepad"
"\"c:\\Program Files\\AutoCAD 2004\\Support\\acad2004doc.lsp\""
)
不知道你指得是不是这个意思？？

pipi002004

下面是tssd中的cad调用其他程序的代码,可是,(&beg) ,,,(&end),,,(&path))都是什么啊?
帮我补一下代码好么?高手补一下吧,要不然太难了


(defun c:Ck (/ st)
(if (> (&beg) -1)
(progn
(if (setq st (findfile "ck.exe"))
(startapp st)
(princ "\n**系统错误，无法找到相应资源!")
)
(&end)
)
)
(princ)
)
(defun c:Tszhelp ()
(help "tssd.hlp")
(princ)
)
(defun c:Ie ()
(command "browser" "http://www.tsz.com.cn")
(princ)
)
(defun c:Gjchxb (/ st)
(if (> (&beg) -1)
(progn
(if (setq st (findfile "GJCHXB.exe"))
(startapp st)
(princ "\n**系统错误，无法找到相应资源!")
)
(&end)
)
)
(princ)
)
(defun c:Gfcx (/ st)
(if (and
(setq st (&path))
(setq st (strcat st "prg\\结构规范查询.chm"))
(setq st (findfile st))
)
(startapp (strcat "hh " st))
)
(princ)
)

cqnj023

(&beg)等应该是一些自定义函数，可以去掉它，只要exe文件在支持路径下即可

czg09180274

最初由 ljpnb 发布
[B]回5楼，只要再指定目录和文件名就可以了，象这句
(startapp
"notepad"
"\"c:\\Program Files\\AutoCAD 2004\\Support\\acad2004doc.lsp\""
)
不知道你指得是不是这个意思？？ [/B]

非常感谢指点，已经OK了。
谢谢。