|
|
发表于 2009-4-23 14:17:00
|
显示全部楼层
来自: 中国广东佛山
2005版本以上有个m2p指令,2004以下版本就自己做一个好了,注意操作时要加“'”(撇号)【'm2p】,即在发出绘图指令后(直线、圆、多段线、样条曲线等绘图指令都可以),最好自己建一个快捷图标,程序如下:
Y9 V9 D1 E! p* R5 t' c7 r
: L% c* g8 f$ ` y. P$ F8 K;;虚拟中点——透明指令
, O# S7 c7 S/ }. G3 b% h7 G(defun c:m2p()
) O) ?' {7 c" D(setq PT_tmp1 (getpoint "\n选择第一个点:")
( r% E" s: \( Z2 v o7 o0 m ~+ J+ q PT_tmp2 (getpoint PT_tmp1 "\n选择第二个点:")
7 J$ N6 l: N; X. F9 o h8 M+ r0 t ange_1 (angle PT_tmp1 PT_tmp2)
' p7 v: g: u4 u, K dist (/(distance PT_tmp1 PT_tmp2) 2))2 r: I' H- y" r! ?0 p
(setq PT_mid (polar PT_tmp1 ange_1 dist))
* U; r0 z! ]" a1 ~8 z/ ])% C# e8 J- E, p: R8 K
4 ^' y% N' i1 [1 H9 B# x# m/ @5 t当然用cad的'cal命令也可,但不如这样方便,一劳永逸!呵呵。 |
|