关于一个选点的先后次序问题

citykunan

我做了一个程序，是想在两条平行直线的端点处画圆弧，我想无论先选哪条平行线的端点，都能实现实线圆弧向外，虚线圆弧向内的效果，不知怎么去判断，详见test.dwg.


谢谢。

meflying

这是画虚线部分圆弧的程序，供参考，具体另一部分，许图形的虚线等你自己去做

2. (defun c:test( / pt1 pt2 entl lpt1 lpt2 ang ptc)
3.    (setq pt1 (getpoint "pick first point:"))
4.    (setq pt2 (getpoint "pick second point:"))
5.    (setq entl (entget (ssname (ssget "c" pt1 pt1 '((0 . "LINE"))) 0)))
6.    (setq lpt1 (cdr (assoc 10 entl)))
7.    (setq lpt2 (cdr (assoc 11 entl)))
8.    (if (equal pt1 lpt1 0.0001)
9.        (setq lpt2 lpt1)
10.    )
11.    (setq ang (angle pt1 lpt2))
12.    (setq ang (- (angle pt1 pt2) ang))
13.    (if (< ang (- pi))
14.        (setq ang (+ (* 2 pi) ang))
15.    )
16.    (setq ptc (mapcar '(lambda(e1 e2) (/ (+ e1 e2) 2.0)) pt1 pt2))
17.    (command "_.arc" "c" ptc pt1 pt2)
18. )

(defun c:test( / pt1 pt2 entl lpt1 lpt2 ang ptc)    (setq pt1 (getpoint "pick first point:"))    (setq pt2 (getpoint "pick second point:"))    (setq entl (entget (ssname (ssget "c" pt1 pt1 '((0 . "LINE"))) 0)))    (setq lpt1 (cdr (assoc 10 entl)))    (setq lpt2 (cdr (assoc 11 entl)))    (if (equal pt1 lpt1 0.0001)        (setq lpt2 lpt1)    )    (setq ang (angle pt1 lpt2))    (setq ang (- (angle pt1 pt2) ang))    (if (< ang (- pi))        (setq ang (+ (* 2 pi) ang))    )    (setq ptc (mapcar '(lambda(e1 e2) (/ (+ e1 e2) 2.0)) pt1 pt2))    (command "_.arc" "c" ptc pt1 pt2) )

citykunan

谢谢版主,我明天回公司试试.

citykunan

飞哥的程序我研究了一下，你的ang这个变量好像没用到，这是为了算直线的角度吧。我试了下好像点pt1和pt2的顺序不一样，画出的圆弧也不一样。是不是要用到ang这个变量？

citykunan

在飞哥的提示下我用各笨办法完成了程序,还望高手指点.谢谢.