|
|
发表于 2009-4-23 14:17:00
|
显示全部楼层
来自: 中国广东佛山
2005版本以上有个m2p指令,2004以下版本就自己做一个好了,注意操作时要加“'”(撇号)【'm2p】,即在发出绘图指令后(直线、圆、多段线、样条曲线等绘图指令都可以),最好自己建一个快捷图标,程序如下:( S+ ]1 ]9 `; k( A
: o4 u& Z4 B7 k$ O% }' c;;虚拟中点——透明指令. r/ g) X: d E2 e+ [2 c; L1 P- y" d
(defun c:m2p()
7 l; P8 \% r+ s5 M; k(setq PT_tmp1 (getpoint "\n选择第一个点:")
$ }* `! i, m, I9 w) p1 z4 E& v; K PT_tmp2 (getpoint PT_tmp1 "\n选择第二个点:")/ k' r! J P# D9 M" ?: h1 L6 ^# u5 F
ange_1 (angle PT_tmp1 PT_tmp2): N# n: U$ v: f' D! J6 W
dist (/(distance PT_tmp1 PT_tmp2) 2))
3 S. ~9 Z1 [& a' B: e (setq PT_mid (polar PT_tmp1 ange_1 dist))* A- K5 V6 m" @
)
5 m( b! h1 x1 t" p4 @$ @/ X5 V, A3 ~- o8 z- ~
当然用cad的'cal命令也可,但不如这样方便,一劳永逸!呵呵。 |
|