今天的论坛可真冷清
本帖最后由 作者 于 2010-4-26 2:27:28 编辑 <br /><br /> <p>放出一个自己编的在图纸中做标记的实用小工具</p><p></p><p>因为程序里用到一个让命令跳转的方法</p><p>需要在C盘根目录下建一个文件夹QGY_TEMP</p><p>程序加载后</p><p>先执行MDQGY建目录</p><p></p><p>|||</p><p>-------------------------------------------------------------</p><p>|||</p><p>呀呀呀</p><p>建目录的函数写成了(defun c:MDQGY(command "shell" "md c:\\test"))</p><p>应该是(defun c:MDQGY()(command "shell" "md c:\\QGY_TEMP"))</p> <p>再来一个</p><p>属性格式刷</p><p></p> <p>确实，论坛这两年冷了许多，有几个方面：</p><p>1.论坛以相互学习为主，而不是只供会员上传资料，我们这里，只上传一些无用的资料并不提倡。</p><p>2.基本的知识论坛中已经非常丰富，应该说通过搜索的话，基本的问题均可找到，所以提问的人会少一些。</p><p>3.编程上，LISP平台上所有的技术，基本上本站都有，VBA平台上的技术，也基本都全了，目前.net是新的东西，也有非常大的潜力，需要有多点人一起来推动。</p><p>4.本站不允许灌水，并不欢迎无技术含量的杂贴。</p><p>5.人确实懒了，呵呵!</p><p>6.大家都忙。</p> 工作经验写的真不错，帖子标题让很多人看不到，万幸看了此贴 <p>很多年没被人表扬过了<br/>好开心啊<br/>以后此帖就作为个人开发程序的专用发布贴了<br/>不过水平有限<br/>让高手见笑了<br/>能对新人有所帮助就知足了</p><p></p><p></p> <p>建目录是有自己的函数：</p><p class="cr_leadin" id="crleadin">创建目录</p><pre class="prog_in_end">(vl-mkdir directoryname)</pre><p class="Heading-2">参数</p><p class="define_head">directoryname</p><p class="define_text">准备创建的目录名称。 </p><p class="Heading-2">返回值</p><p class="body">如果成功则返回 T ，如果目录已经存在或不成功则返回 nil。</p><p class="Heading-2">示例</p><p class="body">创建名称为 mydirectory 的目录：</p><pre class="prog_in">_$ (vl-mkdir "c:\\mydirectory”)</pre><pre class="prog_in_end">T</pre> <p>学习一下！谢谢分享！</p> 这两年不知道怎么了，高手多了，发言的少了，发帖的少了，回答的少了，给源码的更少了，都去赚钱去了吗？呵呵 <p>关于这个问题 嘿嘿</p><p>我想答案真的可能就是顾着赚钱去了</p><p>物价这么高不多赚点怎么办啊</p><p>做程序本来就辛苦</p><p>20元一套一年买1000份算很多了吧也才2W</p><p>炒个更不用一个月2W就到手了</p><p>你会选哪个</p> <p><font face="Verdana">第200贴<br/>谈谈自己的一些心得<br/>供新手参考</font></p><font face="Verdana"><p><br/>CAD的定制<br/>要想提高绘图的速度<br/>对CAD进行必要的定制是必须的<br/>下面以CAD2004为例谈谈</p>
<p>1.操作系统的设置<br/>很多人装了CAD以后是不改默认设置的<br/>这是不可取的<br/>从选项卡逐个说吧<br/>A.文件<br/>指定快速新建的默认样板文件<br/>这样每次新建文件时不需要选择样板文件<br/>更改'自动保存文件的路径'为简单路径<br/>比如日常工作路径为E:\WORK<br/>就设自动保存路径为E:\自动保存dwg<br/>更改'临时图形文件位置'同上<br/>一方面可以迅速找到要找的文件<br/>另一方面方便定时删除过期的文件<br/>B.显示<br/>除非是确实需要用到<br/>否则左边所有的复选框取消打勾<br/>十字光标大小设100<br/>C.打开和保存<br/>一般我是禁用外部参考文件、数字签名信息<br/>和不显示代理图形、代理信息对话框<br/>个人根据需要自己设置<br/>D.打印、系统<br/>没啥好说的<br/>E.用户系统配置<br/>禁用绘图区快捷菜单<br/>F.草图、选择<br/>靶框大小改为6---APERTURE<br/>拾取框大小改为6---PICKBOX<br/>G.配置<br/>如果需要经常切换不同的菜单文件<br/>就利用它吧</p>
<p>2.菜单的定制<br/>自定义菜单文件<br/>如果经常要修改的<br/>建议在下拉式菜单里加一段如下的文字<br/>[--]<br/>[重新加载本菜单]^C^CFILEDIA;0;MENU;D:/my定制/my定制.mnu;FILEDIA;1;<br/>[快速打开MNU]^C^C(dos_execute "D:/UltraEdit/Uedit32.exe D:/my定制/my定制.mnu" 4)<br/>[--]<br/>注:dos_execute是DOSLIB函数库里的函数<br/>修改ACAD.MNU的～POP0～SNAP子菜单<br/>屏蔽前两小节(我是从没用过不知道你怎么样)<br/>取而代之的是SNAP子菜单的最后一行<br/>ID_Osnap [对象捕捉设置(&O)...]'_+dsettings 2<br/>这样不论鼠标在绘图区的任何位置<br/>都可以用最少的移动来调出捕捉模式设置框<br/>F1~F12某些不常用的功能键完全可以替换成更有用的内容<br/>F2、F3、F8、F10、F11我认为是需要保留的<br/>下面是我替换的部分功能键设置<br/>***ACCELERATORS<br/>//F9-- 响应关； 坐标开； 栅格关； 栅格捕捉关； 高亮开； 小数位数2； 文档背景白色； UCS坐标关及非原点；<br/>["F9"] ^c^c^p(setvar "CMDECHO" 0)(setvar "COORDS" 2)(setvar "GRIDMODE" 0)(setvar "snapmode" 0)(setvar "highlight" 1)(setvar "LUPREC" 2)(setvar "WMFBKGND" 0)(setvar "UCSICON" 0)(princ "\n.\n.\n.\n.\n.\n.\n.\n.\nmy cad环境综合设置 OK!")(princ)<br/>["F1"] dboff;dbon;<br/>["F12"](if (= 1 (getvar "DWGTITLED"))(dos_execute (strcat "explorer /select," (getvar "DWGPREFIX")(getvar "DWGNAME")))(dos_execute (strcat "explorer " (getvar "DWGPREFIX"))))<br/>注1：DOCBAR虽然加载了但有时会不显示，F1键用于强制显示<br/>注2：F12用于打开当前图形所在的文件夹，同样用到了DOSLIB函数库里的函数<br/>定义shift+鼠标右键与ctrl+鼠标右键为不同的弹出式菜单<br/>可以扩展调用很多常用又难记的命令或程序（特别是别人的程序）<br/>多年以前最开始学习CAD定制的时候<br/>是借用图像菜单方式来调用图库<br/>当时就是采用这种方法来迅速打开需要的图像菜单</font></p>
<p> </p>
<p>(未完待续)</p>