今天的论坛可真冷清

masterlong

放出一个自己编的在图纸中做标记的实用小工具

因为程序里用到一个让命令跳转的方法

需要在C盘根目录下建一个文件夹QGY_TEMP

程序加载后

先执行MDQGY建目录

|||

-------------------------------------------------------------

|||

呀呀呀

建目录的函数写成了(defun c:MDQGY(command "shell" "md c:\\test"))

应该是(defun c:MDQGY()(command "shell" "md c:\\QGY_TEMP"))

masterlong

再来一个

属性格式刷

mccad

确实，论坛这两年冷了许多，有几个方面：

1.论坛以相互学习为主，而不是只供会员上传资料，我们这里，只上传一些无用的资料并不提倡。

2.基本的知识论坛中已经非常丰富，应该说通过搜索的话，基本的问题均可找到，所以提问的人会少一些。

3.编程上，LISP平台上所有的技术，基本上本站都有，VBA平台上的技术，也基本都全了，目前.net是新的东西，也有非常大的潜力，需要有多点人一起来推动。

4.本站不允许灌水，并不欢迎无技术含量的杂贴。

5.人确实懒了，呵呵!

6.大家都忙。

zhangcan0515

工作经验写的真不错，帖子标题让很多人看不到，万幸看了此贴

masterlong

很多年没被人表扬过了
好开心啊
以后此帖就作为个人开发程序的专用发布贴了
不过水平有限
让高手见笑了
能对新人有所帮助就知足了

carrot1983

建目录是有自己的函数：

创建目录

(vl-mkdir directoryname)

参数

directoryname

准备创建的目录名称。

返回值

如果成功则返回 T ，如果目录已经存在或不成功则返回 nil。

示例

创建名称为 mydirectory 的目录：

_$ (vl-mkdir "c:\\mydirectory”)

T

xhq1954425

学习一下！谢谢分享！

hdlyt11

这两年不知道怎么了，高手多了，发言的少了，发帖的少了，回答的少了，给源码的更少了，都去赚钱去了吗？呵呵

masterlong

关于这个问题 嘿嘿

我想答案真的可能就是顾着赚钱去了

物价这么高不多赚点怎么办啊

做程序本来就辛苦

20元一套一年买1000份算很多了吧也才2W

炒个更不用一个月2W就到手了

你会选哪个

masterlong

第200贴
谈谈自己的一些心得
供新手参考

CAD的定制
要想提高绘图的速度
对CAD进行必要的定制是必须的
下面以CAD2004为例谈谈

1.操作系统的设置
很多人装了CAD以后是不改默认设置的
这是不可取的
从选项卡逐个说吧
A.文件
指定快速新建的默认样板文件
这样每次新建文件时不需要选择样板文件
更改'自动保存文件的路径'为简单路径
比如日常工作路径为E:\WORK
就设自动保存路径为E:\自动保存dwg
更改'临时图形文件位置'同上
一方面可以迅速找到要找的文件
另一方面方便定时删除过期的文件
B.显示
除非是确实需要用到
否则左边所有的复选框取消打勾
十字光标大小设100
C.打开和保存
一般我是禁用外部参考文件、数字签名信息
和不显示代理图形、代理信息对话框
个人根据需要自己设置
D.打印、系统
没啥好说的
E.用户系统配置
禁用绘图区快捷菜单
F.草图、选择
靶框大小改为6---APERTURE
拾取框大小改为6---PICKBOX
G.配置
如果需要经常切换不同的菜单文件
就利用它吧

2.菜单的定制
自定义菜单文件
如果经常要修改的
建议在下拉式菜单里加一段如下的文字
[--]
[重新加载本菜单]^C^CFILEDIA;0;MENU;D:/my定制/my定制.mnu;FILEDIA;1;
[快速打开MNU]^C^C(dos_execute "D:/UltraEdit/Uedit32.exe  D:/my定制/my定制.mnu" 4)
[--]
注:dos_execute是DOSLIB函数库里的函数
修改ACAD.MNU的～POP0～SNAP子菜单
屏蔽前两小节(我是从没用过不知道你怎么样)
取而代之的是SNAP子菜单的最后一行
ID_Osnap     [对象捕捉设置(&O)...]'_+dsettings 2
这样不论鼠标在绘图区的任何位置
都可以用最少的移动来调出捕捉模式设置框
F1~F12某些不常用的功能键完全可以替换成更有用的内容
F2、F3、F8、F10、F11我认为是需要保留的
下面是我替换的部分功能键设置
***ACCELERATORS
//F9--   响应关；    坐标开；  栅格关；   栅格捕捉关；   高亮开；   小数位数2；   文档背景白色；  UCS坐标关及非原点；
["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)
["F1"] dboff;dbon;
["F12"](if (= 1 (getvar "DWGTITLED"))(dos_execute (strcat "explorer /select," (getvar "DWGPREFIX")(getvar "DWGNAME")))(dos_execute (strcat "explorer " (getvar "DWGPREFIX"))))
注1：DOCBAR虽然加载了但有时会不显示，F1键用于强制显示
注2：F12用于打开当前图形所在的文件夹，同样用到了DOSLIB函数库里的函数
定义shift+鼠标右键与ctrl+鼠标右键为不同的弹出式菜单
可以扩展调用很多常用又难记的命令或程序（特别是别人的程序）
多年以前最开始学习CAD定制的时候
是借用图像菜单方式来调用图库
当时就是采用这种方法来迅速打开需要的图像菜单

 

(未完待续)