请教一下，怎么让身边的同事使用自己的LISP在可控范围内。

niqiu8

如题。写了一个LISP插件。历年来做项目画图用的，主要是多线段编号，交点自动布置块，线方向标注等功能，但是不想同事离职或者别的原因分享给公司外的人用。所以想要简单的加密注册一下。比如第一次使用，需要获取电脑的CPU或者其它硬件序列号，然后需要找我生成注册码，每次运行前先检测注册表内的注册码。或者是购买那种便宜的加密狗，需要加密狗才能使用。
虽然插件都是一些简单的功能，对于大神来说不难。但是也是自己多少个晚上熬出来，免费分享给同事朋友用，但不想被随意乱用。不知道LISP能不能实现这个功能。


2020.05.10更新，基本解决，使用了http://bbs.mjtd.com/forum.php?mod=viewthread&tid=112653&highlight=%D7%A2%B2%E1这个大神的工具，准备把所有命令整理一下。

start4444

有个很简单的办法，就是把你公司特定的图层或者图块之类的名称绑定程序就好了，其他公司要用就改成你们的图层吧

yinchuan99001

本帖最后由 秋枫 于 2019-11-14 15:43 编辑


更新一波： 2019年09月19日 发现一个bug，修正：在有多少pc3路径时，取第一个。 新功能供测试： 更新历史 2014年12月1日 总是有意外。在AutoCAD 2014+，需要添加信任区域才能自动加载。 改进安装程序。 Setup.ini中添加一个TrustedPaths={app}选项 2011年4月20日 因为AutoCAD的版本越来越多，为方便向后支持，允许在通配符中写成： VersionSupport=R15.0;>R15.0 这种形式 2010年8月7日 支持64bit下的64Bit的AutoCAD。 2010年2月24日 修正了卸载时List Out of Index的错误。 在AutoCAD运行时加载时改用vl-load-all 2009年11月24日 修正了卸载程序中注册表中读到的路径没有展开系统环境变量的问题。 这个错误比较严重，但仅限于AutoCAD 2010以上系统。如需支持新版本AutoCAD的安装程序请及时更新。 这个程序也涉及了本人的批量打印程序的卸载程序。 紧急修复：通用二次开发安装程序对AutoCAD 2010的bug 因为AutoCAD2010以往的版本在注册表中写入的是绝对路径，并不含环境变量，在2010中，环境变量也包含在路径中，因此需要安装程序和卸载程序对环境变量扩展。在今年6月份时注意到了这个问题，修正了一部分，但卸载程序中的部分代码没有修正。后果是造成在卸载程序时删除了部分含环境变量的搜索路径。 一般表现为：卸载后（或安装前提示是否卸载旧版，选“是”之后）会删除cad在系统盘的一个搜索路径：%AppData%\Autodesk\AutoCAD 2010\R18.0\chs\support，导致很多功能失效。 现提供修复程序（针对AutoCAD 2010，其它版本无此问题，稍后提供更新后的安装程序，建议用更新后的安装程序覆盖安装一次以修正原卸载程序，覆盖安装前如提示发现旧版时不要卸载旧版） 使用方法： 将解开后的LSP文件拖入AutoCAD窗口或使用Appload命令加载它。 2009年6月10日 修正了注册表中读到的路径没有展开系统环境变量的问题。 2008年12月22日 DefaultPath 改为支持绝对路径 例如：DefaultPath={pf}\mylispapp 或 DefaultPath=D:\MylispApp 如果未写成绝对路径，则默认为相对于{pf}即%ProgramFiles%，所以DefaultPath={pf}\MylispApp与DefaultPath=MylispApp等效 2008年9月5日 LISPStartup=改为支持绝对路径 原来的可以写成：LISPStartup={app}\loadxx.lsp 原来相对路径的写法也可以继续使用 2008年9月4日 增加两个选项[General] SkipReadyPage=yes AllowAutoCADRunning=yes 2008年9月3日 在[Uninstall]增加ExtraInfoString= ;;;样例： ExtraInfoString=运行卸载程序将会删除你的数据文件xxx和xxx，请视需要自行备份…… 2008年9月2日 在[General]中增加一个SkipSelectDir项 SkipSelectDir=yes将跳过选择目录的对话框。 2007年2月28日 在INI中对PlotStyles段作了一些调整，添加了一些类似的段 PlotStyles段指定需要安装的打印样式表 [PlotStyles] FileName1={src}\DATA\*.stb FileName2={src}\DATA\*.ctb　 FileName从FileName1开始，数量不限，但实际复制条目总数不超过50条（视机器中AutoCAD安装的版本数与配置数而定，所以请尽量用通配符）。 其它指定需要特别安装的文件 [PC3] FileName1= [PMP] FileName1= [Template] FileName1= [SheetSetTemplate] FileName1=　 限制与PlotStyles段相同，写法也相同 PC3指打印机配置文件；PMP指图纸幅面文件；Template指DWG模板DWT文件；SheetSetTemplate指图纸集模板文件 2007年2月27日 在ini中添加PlotStyles段： PlotStyles段指定需要安装的打印样式表 [PlotStyles] FileName1={src}\DATA\*.stb FileName2={src}\DATA\*.ctb　 FileName允许从FileName1到FileName100。 2006年8月31日 1. 在ini中添加FileCopy_NeverOverWrite_#段 执行普通的文件复制操作外，当发现用户目标系统中已经存在此文件时，不复制，保留用户原文件。可用于保留用户的配置文件。 2. 更新7z压缩程序 2006年8月30日 1. 修正AutoCAD版本列表条目的显示 2006年5月25日 1. 应“风云”的强烈要求，ini加上一条ReadMeDescription=用于自定显示字串 2006年5月22日： 1. 添加安装完最后显示“自述文件”的勾选选项 2. 在文件复制段添加DestName设置允许改名复制 3. 添加BevelLabel标签 2006年5月19日： 1. 添加用户自定义文件复制路径的支持。 2. 支持文件向系统注册为OLE服务 3. 添加InstallDelete与UninstallDelete段，控制在安装前与卸载后删除文件 4. 自定义图标改为绝对路径 2006年5月18日： 1. 允许自定义注册表项 2. 允许自定义开始菜单中的快捷方式 3. 允许在安装前、后、卸载前自定义运行外部程序 4. 在向导页面中加入了高级自定义按钮及帮助文档（如附图） 2005年5月20日： 1. 允许不创建开始菜单组 2. 加入卸载时卸载指定的菜单组支持 3. 加入对安装包的维护功能 --第一版-- [原创]AutoLISP程序的安装制作教程（一） http://bbs.mjtd.com/thread-35031-1-1.html [原创]AutoLISP程序的安装制作教程（二） http://bbs.mjtd.com/thread-35151-1-1.html 旧版：支持14～2005 的讨论与下载： http://bbs.mjtd.com/thread-17712-1-1.html
请看前辈们给的链接

niqiu8

mikewolf2k 发表于 2020-5-11 08:47
“行业内其它公司需要花5人2天干的活，我们或许一个人五分钟干完了”，一个业余开发的，几个晚上就能熬出 ...

难者不会，会者不难的东西，还上升不到挖的地步:P，很少有人会去动脑子想办法的。举个例子，多线段表示的沟渠通过多线段的路，都需要布置涵管的块文件。很多公司应该是让实习生一个个插入的。以及代表水流方向的块文件。
会点代码的话就可以通过交点和线方向的计算。快速布置。
很多做技术的人想实现不会代码。会代码的都做别的项目开发去了。几乎很少的公司会安排一个人专门针对工作中的需求开发软件或者插件。

陨落

论坛就有很多现成代码

panliang9

法不轻传，道不贱卖是对的！

mikewolf2k

如果是想提供给公司使用，可以读取一些公司网络的相关信息，例如域名、IP地址，公司特定服务器名等。这样一旦脱离公司环境，这些信息就不存在了，也就不能运行了。
另外比较不理解的是，既然没打算注册收费，那么传播范围广，对你也没有损失；而且传播范围越广，相当于给你做广告了，以后别人还可能来找你帮忙，如果是我的话，我会巴不得广泛传播。

灰石Jeremy

其实想开一点就好了，好多人刻意推广都推广不出去的，偶尔有泄漏也不会传播多远。毕竟本身行业的人就不多，能够恰好觉得你做的好用的人就少之又少了。

wx302008008

我巴不得人家把我编的小程序推广出去

bai2000

举个例子应用的例子吧

lllllja

论坛里有很多源码