[求助]：怎样画两点间的一点...

infoxp

怎样画两点间的一点,使该点与那两点间的距离相等且三点共线?

nore

先将两点连线，捕捉中点就OK了

bzh121

点捕捉要打开，

infoxp

回楼上,那个我是想得到DI.可我想问有没有更简捷的,不用连线.如果找两条平行直线间的一点呢?

bzh121

连接两条平行直线的端点，作出交叉线，交点就是了。

xiuzhu289

O命令，，偏移啊！！（如果你知道距离），，呵呵怎么人们总是想………………*-*9 *-*3 *-*1 *-*1 *-*3 *-*9

xcajcj

当然如果用AutoLISP编程应该能满足你的要求。

feixu

2楼说的已经够简单了，还要怎么简单哪！！！

这种问题也。。。。

infoxp

5楼的同学,直线可以无限延长,哪来DI端点?看来我要用笨方法来讨巧了

ahlzl

这样行吗？
mee是求两个端点的中点，nod表示节点。请看CAD帮助文件。
把演示中的一公式改为(cur+cur)/2则更好。

nore

最初由 infoxp 发布
[B]回楼上,那个我是想得到DI.可我想问有没有更简捷的,不用连线.如果找两条平行直线间的一点呢? [/B]

平行线可以在之间画一条垂直的直线，然后捕捉中点

请问斑竹，说说表达式mee是什么意思啊，我用cal时还没用过这个呢

ahlzl

mee我在第10贴说过了啊。这是二条平行线……

xiaojie150

斑竹，你好厉害哦！

infoxp

斑竹好厉害撒.掌声鼓励!!!

陌生人

怎么好像越搞越复杂了?
不如干脆再"复杂"点

2. 
   
3. ;求空间任意两点的中点
   
4. (defun midpt ( / pt1 pt2 midpt)
   
5. (setq pt1 (getpoint "\n第一点:")
   
6.       pt2 (getpoint pt1 "\n第二点:")
   
7.       midpt (list (/ (+ (car pt1) (car pt2)) 2)
   
8.                   (/ (+ (cadr pt1) (cadr pt2)) 2)
   
9.                   (/ (+ (caddr pt1) (caddr pt2)) 2)
   
10.             )
    
11. ))
    

<br /> ;求空间任意两点的中点<br /> (defun midpt ( / pt1 pt2 midpt)<br /> (setq pt1 (getpoint "\n第一点:")<br />       pt2 (getpoint pt1 "\n第二点:")<br />       midpt (list (/ (+ (car pt1) (car pt2)) 2)<br />                   (/ (+ (cadr pt1) (cadr pt2)) 2)<br />                   (/ (+ (caddr pt1) (caddr pt2)) 2)<br />             )<br /> ))<br />

加载以上程序后,在cad绘图需要输入点的时候,
1.键入(midpt),当然要是把这放到图标按钮或菜单里面,只要点一下就行了.
2.取第一点,第二点
自动求出2点的空间中间点(不仅限于同一平面)