[求助]：[0520]如何判断将线段A垂直线段B呢?

xyz518mm

[求助]：[0520]如何判断将线段A垂直线段B呢?

程序:
(setq pt1 (getpoint "\n 线段A起点:") )
(setq pt2 (getpoint pt1 "\n 线段B终点:") )
(setq a (angle pt1 pt2) )
(setq dis (distance pt1 pt2))
(setq en (entget (car (entsel "\n 基准线:") ) ) )
(setq b (angle (cdr (assoc 10 en)) (cdr (assoc 11 en)) ) )

...这中间的角度判断该怎样处理呢?

(setq pt3 (polar pt1 (+ b (/ pi 2) ) dis ) )
(command "_.line" pt1 pt3 "") ;画出垂直线段.

附图:

烦请各位高手可以帮忙解答一下~
谢谢~

fsxm

向量垂直的的判断公式--->改写为lisp
不要说这个你不会吧?

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060515
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. [url]http://free.ys168.com/?xyp1964[/url]
    
13. |;
    
14. 
    
15. (defun c:test ()
    
16.   (CMDLA0)
    
17.   (setq        s1   (car (USEL 0 "LINE" "LINE线A"))
    
18.         s2   (car (USEL 0 "LINE" "LINE线B"))
    
19.         pa10 (xyp-get-dxf 10 s1)
    
20.         pa11 (xyp-get-dxf 11 s1)
    
21.         pb10 (xyp-get-dxf 10 s2)
    
22.         pb11 (xyp-get-dxf 11 s2)
    
23.         angb (angle pb10 pb11)
    
24.         ang  (abs (rad2ang (- angb (angle pa10 pa11))))
    
25.         dist (distance pa10 pa11)
    
26.   )
    
27.   (while (> ang 90)
    
28.     (setq ang (- ang 90))
    
29.   )
    
30.   (setvar "osmode" 0)
    
31.   (if (>= (abs (- ang 90)) 0.00001)
    
32.     (progn
    
33.       (xyp-mklaco "test" 1)
    
34.       (setq pa11a  (polar pa10 (+ angb (* pi 0.5)) dist)
    
35.             pa11-1 (inters pb10 pb11 pa10 pa11a nil)
    
36.             pa11   (polar pa10 (angle pa10 pa11-1) dist)
    
37.       )
    
38.       (command "line"
    
39.                pa10
    
40.                pa11
    
41.                ""
    
42.       )
    
43.     )
    
44.   )
    
45.   (CMDLA1)
    
46. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060515<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://free.ys168.com/?xyp1964[/url]<br /> |;<br /> <br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        s1   (car (USEL 0 "LINE" "LINE线A"))<br />         s2   (car (USEL 0 "LINE" "LINE线B"))<br />         pa10 (xyp-get-dxf 10 s1)<br />         pa11 (xyp-get-dxf 11 s1)<br />         pb10 (xyp-get-dxf 10 s2)<br />         pb11 (xyp-get-dxf 11 s2)<br />         angb (angle pb10 pb11)<br />         ang  (abs (rad2ang (- angb (angle pa10 pa11))))<br />         dist (distance pa10 pa11)<br />   )<br />   (while (> ang 90)<br />     (setq ang (- ang 90))<br />   )<br />   (setvar "osmode" 0)<br />   (if (>= (abs (- ang 90)) 0.00001)<br />     (progn<br />       (xyp-mklaco "test" 1)<br />       (setq pa11a  (polar pa10 (+ angb (* pi 0.5)) dist)<br />             pa11-1 (inters pb10 pb11 pa10 pa11a nil)<br />             pa11   (polar pa10 (angle pa10 pa11-1) dist)<br />       )<br />       (command "line"<br />                pa10<br />                pa11<br />                ""<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

xyz518mm

谢谢版大的解答,
参考您的程序改写下面程序,
但发现一个疑问,
为何要做角度检查呢?
这样不是就可以了吗?

(setq pt1 (getpoint "\n 线段A起点:") )
(setq pt2 (getpoint pt1 "\n 线段B终点:") )
(command "line" pt1 pt2 "" )
(setq anga(angle pt1 pt2) )
(setq dist(distance pt1 pt2))
(setq en  (entget (car (entsel "\n 基准线:") ) ) )
(setq angb(angle (setq en10 (cdr (assoc 10 en)))
                 (setq en11 (cdr (assoc 11 en)))
) )
(setq pt1-a (polar pt1 (+ angb (* pi 0.5)) dist)
      pa1-b (inters en10 en11 pt1 pt1-a nil)
      pt2   (polar pt1 (angle pt1 pa1-b) dist)
)
(command "line" pt1 pt2 "" )

另外请问该怎样把最后产生的线,
(若是产生为多各线段物件)
放到退出程序后中可以用呢?
如在command: select 指令中
用 p 命令可以选到呢?

问题相同于
"http://p4.xdcad.net/forum/showthread.php?s=&threadid=560913"
[求助]：[0522]关于ssget选集选取问题?

不知道版大可以解说一下,
关于角度判断呢程序吗?
及ssget选集选取问题?
谢谢~

xyp1964

最初由 xyz518mm 发布
[B]谢谢版大的解答,
参考您的程序改写下面程序,
但发现一个疑问,
为何要做角度检查呢?
这样不是就可以了吗?

(setq pt1 (getpoint "\n 线段A起点:") )
(setq pt2 (getpoint pt1 "\n 线段B终点:") )
(command "l... [/B]

角度检查的目的是为了减少选择的次数从而减少工作量，鼠标只需点2次就可以完成任务。

lele9010

涨学问了，晓东论坛真是好地方!

雨箭风刀

重新画直线不好，应该直接修改数据

tctabc

那該怎樣編寫呢?

雨箭风刀

没仔细斟酌，写了个框架。支持多选
[php]
(defun c:perl (/ el1 a i ss b pr pt bb an an1)
  (princ "\n 直线垂直校准 by 雨箭风刀.2006.5")
  (if (AND (setq el1 (entsel "\n 选角度参照直线:")
                 a   (car el1)
           )
           (= "LINE" (cdr (assoc 0 (entget a))))
      )
    (if (setq i  -1
              pr (princ "\n 选角度校准直线(可多选):")
              ss (ssget '((0 . "LINE")))
        )
      (while (setq b (ssname ss (setq i (1+ i))))
        (setq pt  (vlax-curve-getstartpoint b)
              bb  (vlax-ename->vla-object b)
              an  (angle pt (vlax-curve-getclosestpointto a pt T))
              an1 (vla-get-angle bb)
        )
        (vla-rotate bb (vla-get-startpoint bb) (rem (- an an1) PI))
      ;;用了旋转方法，也可考虑用修改直线端点的方法。
      )
    )
  )
)
[/php]

bobby_yang

楼上的程序好像有点问题，有时候线会跑掉。