秋枫发表于2004-7-17 21:31:00static/image/common/back.gif;; 加载主程序(if (< (atof (getvar \"acadver\")) 15.0)(vbaload \"cc.dvb\"))
我感觉你好像还不大会用lisp
你的...
</DIV>
<BR>我不太会lisp语言。我想再问你一个问题，我的PROJECT名是3ddam.dvb 在这个工程中，有好几个窗体（如图），这些子程序实现不同的功能。我用以上您方法不能实现打开CAD自动加载。怎么解决呢。谢谢你的指导。模块中代码如下：
Sub contourls()<BR>userformls.Show<BR>End Sub
Sub pointls()<BR>UserFormls2.Show<BR>End Sub<BR>Sub datagrid()<BR>UserForm1.Show<BR>End Sub<BR>Sub pointview()<BR>celiang_1.Show<BR>End Sub<BR>Sub griddisplay()<BR>UserForm2.Show<BR>End Sub
Sub entitydisplay()<BR>UserFormst.Show<BR>End Sub<BR>Sub myabout()<BR>UserFormAbout.Show<BR>End Sub<BR>Sub myhelp()<BR>UserFormhelp.Show<BR>End Sub<BR>Sub damcanshu1()<BR>UserFormcanshu.Show<BR>End Sub<BR>Sub damcanshu2()<BR>UserFormcanshu2.Show<BR>End Sub<BR>Sub damcanshu3()<BR>UserFormcanshu3.Show<BR>End Sub<BR>Sub damcanshu4()<BR>UserFormcanshu4.Show<BR>End Sub<BR>Sub fushu()
End Sub<BR>Sub mydam()<BR>dam.Show<BR>End Sub<BR>
不错吗?讲的这么详细!不知下下去,真的是这样吗?
我下载看看吧!@
<TABLE cellSpacing=3 cellPadding=0 width="100%" border=0>
<TBODY>
<TR vAlign=center height=25>
<TD><IMG src="http://www.mjtd.com/bbs/skins/default/filetype/rar.gif" border=0></TD>
<TD><A href="http://www.mjtd.com/bbs/viewFile.asp?Boardid=3&ID=8847" target="_blank" ><FONT color=#000000>lispsetup.rar</FONT></A> ( <B>268.07</B> KB，已被下载 <FONT color=red><B>61</B></FONT> 次 )</TD></TR></TBODY></TABLE>文件不能安装，提示我缺少license.rtf
你是XDSOFT的秋枫吗？我也写了些LISP程序，不知如何安装到CAD中。在晓东论坛无法下，这下好了。
好!~
它山之石发表于2004-8-5 17:38:00static/image/common/back.gif你是XDSOFT的秋枫吗？
<BR>是的。
秋枫，我有个问题想问你，我怎么添加如下的目录呢？
C:\Documents and Settings\B4\App\Autodesk
其中B4是计算机名，如果到别的计算机上是不一样的！
如果要实现这个功能，只能用Innosetup本身来写了。在我的这个通用安装程序中实现比较费事，需要我修改程序，定制太复杂就不是我的目的了。这个安装程序只是提供了大部分很常用的AutoCAD二次开发程序安装中可能会碰到的情况处理。并不是一个专业的通用的安装程序。你说的这种要求对于大部分二次开发的AutoCAD程序来说可能比较少见吧？
在InnoSetup中上述要求可以用常量表示。
Shell Folder Constants <BR>Inno Setup supports another set of directory constants, referred to as shell folder constants. They can be used in the same way as the other directory constants. <BR>The "user" constants below refer to the currently logged in user's profile. "common" constants refer to the All Users profile. <BR>Except where otherwise noted, shell folder constants work on all versions of Windows that Inno Setup supports, including Windows 95 and NT 4.0.
* = The "common" form of this constant is mapped to the "user" form if the logged-in user lacks administrative privileges, or if the operating system is Windows 95/98/Me. <BR>{group} <BR>The path to the Start Menu folder, as selected by the user on Setup's Select Start Menu Folder wizard page. On Windows NT/2000/XP, this folder is always created under the All Users profile unless the user installing the application does not have administrative privileges, in which case it is created on the user's profile.
{localappdata} <BR>The path to the local (nonroaming) Application Data folder. <BR>{sendto} <BR>The path to the current user's Send To folder. (There is no common Send To folder.) <BR>{userappdata} & {commonappdata}
The path to the Application Data folder. <BR>{userdesktop} & {commondesktop} * <BR>The path to the desktop folder. <BR>{userdocs} & {commondocs} <BR>The path to the My Documents folder (or on NT 4.0, the Personal folder).
{userfavorites} & {commonfavorites} *
The path to the Favorites folder. Usage of these constants requires a MinVersion setting of at least "<BR>4.1, 4". Only Windows 2000 and later supports {commonfavorites}; if used on previous Windows versions, it will translate to the same directory as {userfavorites}. <BR>{userprograms} & {commonprograms} * <BR>The path to the Programs folder on the Start Menu. <BR>{userstartmenu} & {commonstartmenu} *
The path to the top level of the Start Menu.
{userstartup} & {commonstartup} * <BR>The path to the Startup folder on the Start Menu. <BR>{usertemplates} & {commontemplates} * <BR>The path to the Templates folder. Only Windows 2000 and later supports {commontemplates}; if used on previous Windows versions, it will translate to the same directory as {usertemplates}.
本帖最后由 作者 于 2004-8-9 11:47:03 编辑
这么复杂呀！
我看不懂
如果有时间的话。可以帮助重写一下吗？
谢谢！
对了，有没有办法连PGP文件都加载了呀！
CADghost发表于2004-8-9 7:55:00static/image/common/back.gif如果有时间的话。可以帮助重写一下吗？
<BR>暂时没有这个打算。
你如果对安装要求比较复杂的话，我建议你直接学习使用专业的安装制作软件。比如Wise，Install shield，Innosetup等等。
我写这个程序的目的是简化其安装。如果很复杂、功能很强大的话，那岂不是用Innosetup写一个Innosetup了。