|
|
发表于 2009-4-23 14:17:00
|
显示全部楼层
来自: 中国广东佛山
2005版本以上有个m2p指令,2004以下版本就自己做一个好了,注意操作时要加“'”(撇号)【'm2p】,即在发出绘图指令后(直线、圆、多段线、样条曲线等绘图指令都可以),最好自己建一个快捷图标,程序如下:
5 D& f0 a0 d8 Q2 R% M4 z! j# l
" j) [2 ]3 d; {* ~, [: ];;虚拟中点——透明指令/ ~/ |: ~/ T# a4 J
(defun c:m2p()- o$ Q5 m2 q2 {8 L+ Y3 F+ {( P
(setq PT_tmp1 (getpoint "\n选择第一个点:")
7 J A: z4 c: T6 w0 I2 i3 `" ? PT_tmp2 (getpoint PT_tmp1 "\n选择第二个点:"): _+ N3 \8 Z, o. a& Y# p* _
ange_1 (angle PT_tmp1 PT_tmp2)$ J8 w9 m( h+ S0 j
dist (/(distance PT_tmp1 PT_tmp2) 2))
: i( H9 d' H, j) |. | (setq PT_mid (polar PT_tmp1 ange_1 dist)); v6 g* @" N t( h' I8 H1 _
)9 J% `4 P; o/ `9 n5 a/ F7 \" d, R
8 g6 v j# v2 y3 o, E3 r当然用cad的'cal命令也可,但不如这样方便,一劳永逸!呵呵。 |
|