龙龙仔
发表于 2005-10-14 16:22:00
afeng0712发表于2005-10-13 22:38:00static/image/common/back.gif龙老大,对话框打开后若取消会出错?能不能返回是NIL就好了,这样可执行相应后面操作!
<P><BR>;;调用命令<BR>(defun C:TT (/ DIATL FILTER FLAGS INITDIR MAXFS)<BR> (setq MAXFS 32767<BR> FLAGS (+ 4 512 524288 1048576 1024)<BR> DIATL "请选择"<BR> FILTER "CAD图档(*.DWG)|*.DWG|所有档(*.*)|*.*"<BR> INITDIR ""<BR> )<BR> (MJTD_GETFILEM MAXFS FLAGS DIATL FILTER INITDIR)<BR>)<BR></P>
<P>用你的程序改的---> (vlax-put-property WINCOMDLG 'CANCELERROR :vlax-false)<BR></P>
xiaomu
发表于 2005-10-15 00:10:00
<P>龙版:</P>
<P>为什么用 (vlax-get wincomdlg 'filename)可以得到返回值,</P>
<P>而 (comdlgp-get-FileName wincomdlg) 却只有路径没有文件名呢?</P>
<P>这两个到底有什么差别?</P>
hnfsf
发表于 2005-11-10 19:07:00
<P>龙版:</P>
<P>mjtd-getfiles函数如何指定初始目录?每次运行的目录都是很乱的。</P>
<P> </P>
无痕
发表于 2005-11-10 20:49:00
<P>可能程序中初始目录是定义为当前目录吧:)</P>
<P>参数 0</P>
龙龙仔
发表于 2005-11-11 07:50:00
INITDIR 参数就是要你自己给初始目录!
hnfsf
发表于 2005-11-14 13:16:00
龙龙仔发表于2005-11-11 7:50:00static/image/common/back.gifINITDIR 参数就是要你自己给初始目录!
<P><BR>MJTD_GETFILEM 这个函数我知道是initdir</P>
<P>我指的是mjtd-getfiles函数,也就是你前面贴的那个。</P>
<P><FONT size=3><FONT face="Times New Roman">;;test OK with XP<BR>;;(mjtd-getfiles DialogTitle filter)<BR>;;(mjtd-getfiles "选择图形文件" "Drawing Files|*.dwg|All Files|*.*")<BR></FONT></FONT> </P>
<P>这里面没有目录参数啊。</P>
hnfsf
发表于 2005-11-15 01:36:00
<P>因为决定mjtd-getfiles函数使用要简洁些,所以。。。</P>
龙龙仔
发表于 2005-11-15 07:52:00
<P>简洁指的是什么?</P>
<P>但(MJTD_GETFILEM MAXFS FLAGS DIATL FILTER INITDIR)较完整<BR></P>
hnfsf
发表于 2005-11-16 01:49:00
<P>因为搞不清楚</P>
<P>MAXFS 32767<BR> FLAGS (+ 4 512 524288 1048576 1024)<BR></P>
<P>的作用,所以</P>
龙龙仔
发表于 2005-11-16 08:19:00
<A href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cmdlg98/html/vbproflagsfile.asp" target="_blank" >http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cmdlg98/html/vbproflagsfile.asp</A>