|
|
发表于 2009-4-23 14:17:00
|
显示全部楼层
来自: 中国广东佛山
2005版本以上有个m2p指令,2004以下版本就自己做一个好了,注意操作时要加“'”(撇号)【'm2p】,即在发出绘图指令后(直线、圆、多段线、样条曲线等绘图指令都可以),最好自己建一个快捷图标,程序如下:" H% S5 C8 @6 R ^' k E( c
( K% R% l7 L, g4 M; f
;;虚拟中点——透明指令
1 b; E! J! V. ]* H(defun c:m2p()
3 x8 F0 |/ D6 }" Z+ S(setq PT_tmp1 (getpoint "\n选择第一个点:")
7 X, b! h- `% h0 {) r4 I5 s PT_tmp2 (getpoint PT_tmp1 "\n选择第二个点:")2 R! h3 e' f! G5 A9 R
ange_1 (angle PT_tmp1 PT_tmp2)
0 x2 x7 D& j! M& Y7 F$ N dist (/(distance PT_tmp1 PT_tmp2) 2))
( E" P7 I2 t# b/ ^' A9 e; n (setq PT_mid (polar PT_tmp1 ange_1 dist))
5 I, I# `8 M" U% B) a" M0 }3 @! I)
- @; G& o& F5 ?+ [ ~ ?" V' ^
, g$ y0 ]0 h8 l: v, E; Y- k( b当然用cad的'cal命令也可,但不如这样方便,一劳永逸!呵呵。 |
|