|
|
发表于 2009-4-23 14:17:00
|
显示全部楼层
来自: 中国广东佛山
2005版本以上有个m2p指令,2004以下版本就自己做一个好了,注意操作时要加“'”(撇号)【'm2p】,即在发出绘图指令后(直线、圆、多段线、样条曲线等绘图指令都可以),最好自己建一个快捷图标,程序如下:
, h, p9 s i; _. R: O6 P0 U! [9 r4 H7 y% Y M6 Y
;;虚拟中点——透明指令
; F x5 P z) G3 N) Y. p(defun c:m2p()8 R2 L/ O* L* O! m0 j- L
(setq PT_tmp1 (getpoint "\n选择第一个点:")
, I5 p$ [ [: F: I PT_tmp2 (getpoint PT_tmp1 "\n选择第二个点:")+ ^7 b, a3 @$ s, v$ J+ H
ange_1 (angle PT_tmp1 PT_tmp2)
- r/ q! n* T: K$ _8 F. R dist (/(distance PT_tmp1 PT_tmp2) 2))
4 v4 j" N9 V% X9 O; N- s (setq PT_mid (polar PT_tmp1 ange_1 dist))4 N: Y, \, w) k/ c! J7 W. d
)& F$ P( O1 A+ Z1 r! g J$ I6 ]& x
2 f1 x$ C- Z) b当然用cad的'cal命令也可,但不如这样方便,一劳永逸!呵呵。 |
|