我写的几个小程式,绘图的可要见下啊
 

我写的几个小程式,绘图的可要见下啊
www.dimcax.com
我写的几个小程式,绘图的可要见下啊
图片：

这是很小的,但也是绘图常用的,不要小看它们啊,
希望我们这开发区越做越好,
设置用户坐标系原点
(defun c:ww()
(command "ucs" "o"))
恢复到全视窗
(defun c:z()
(command "zoom" "a"))
计算器
(defun c:es()
(command "sh" "calc"))
改为当前层
(defun c:qw (/ ss cnt lay)
(if (not (setq ss (ssget "i")))
(progn
(prompt "\n要求改为当前层的东东: ")
(setq ss (ssget))
)
)
对象捕捉,这你可改为捕捉别的
(defun c:w()
(setvar "osmode" 151)

程序虽简单,但好用,谢谢

hen shi yong .xia zai shi le

。。。

good
勤能补拙

(setvar "osmode" 151)这句在我用r14的时候很有用，主要是那东西没全部选择的框 4095就是全部选择。其他版本来说用处不大。一般单独捕捉某一样的只有临时才用到，shift+右键就可以了

支持下

确实不错的程序。简单实用。

可能是我太笨了，我只看懂了计算器的那个

:
(setvar "osmode" 151)这句在我用r14的时候很有用，主要是那东西没全部选择的框 4095就是全部选择。其他版本来说用处不大。一般单独捕捉某一样的只有临时才用到，shift+右键就可以了
这我可不认为，autocad绘图时，我们常也要用多捕捉，当然哪要看你是做哪行绘图的了，你可改别的
使用以下位码设置“对象捕捉”的运行模式：
0 ：non（捕捉设置为无）
1 ：end（捕捉设置为捕捉到端点）
2 ：mid（捕捉设置为捕捉到中点）
4 ：cen（捕捉设置为捕捉到圆心）
8 ：nod（捕捉设置为捕捉到节点）
16 ：qua（捕捉设置为捕捉到象限点）
32 ：int（捕捉设置为捕捉到交点）
64 ：ins（捕捉设置为捕捉到插入点）
128 ：per（捕捉设置为捕捉到垂足）
256 ：tan（捕捉设置为捕捉到切点）
512 ：nea（捕捉设置为捕捉到最近点）
1024 ：qui（捕捉设置为捕捉到快速）
2048 ：app（捕捉设置为捕捉到外观交点）
4096 ：ext（捕捉设置为捕捉到尺寸线）
8192 ：par（捕捉设置为捕捉到平行）
以上数值即为要设置何种捕捉类型，

(defun c:ze()
(command "zoom" "e")
)