谁能实现点击三角形中间，程序将自动画一条垂线，并显示垂线和底边的长度

hhaoma

如题 谢谢大家了！

xyp1964

2. 
   
3. ;; 需要e派工具箱(XCAD)的支持
   
4. (defun c:tt ()
   
5.   (if (setq p1 (getpoint "\n基点<退出>: "))
   
6.     (progn
   
7.       (bpoly p1)
   
8.       (setq s1(entlast)
   
9.             p8 (xyp-9pt s1 8)
   
10.             ptn (xyp-get-Vertexs s1 0)
    
11.             pt (xyp-Get-PtNearPtn p8 ptn)
    
12.             ptn (vl-remove-if '(lambda (x) (equal x pt)) ptn)
    
13.             p1 (car ptn)
    
14.             p2 (cadr ptn)
    
15.             rad (angle p1 p2)
    
16.             p3 (inters p1 p2 pt (polar pt (+ rad (* pi 0.5)) 10) nil)
    
17.             s2 (xyp-line pt p3)
    
18.             d1 (distance p1 p2)
    
19.             dh (distance pt p3)
    
20.             s3  (xyp-Text 5 (xyp-Mid2Pt pt p3) (rtos dh 2 2))
    
21.             s4 (xyp-Text 5 (xyp-Mid2Pt p1 p2) (rtos d1 2 2))
    
22.       )
    
23.       (entdel s1)
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )
    

<br /> ;; 需要e派工具箱(XCAD)的支持<br /> (defun c:tt ()<br />   (if (setq p1 (getpoint "\n基点<退出>: "))<br />     (progn<br />       (bpoly p1)<br />       (setq s1(entlast)<br />             p8 (xyp-9pt s1 8)<br />             ptn (xyp-get-Vertexs s1 0)<br />             pt (xyp-Get-PtNearPtn p8 ptn)<br />             ptn (vl-remove-if '(lambda (x) (equal x pt)) ptn)<br />             p1 (car ptn)<br />             p2 (cadr ptn)<br />             rad (angle p1 p2)<br />             p3 (inters p1 p2 pt (polar pt (+ rad (* pi 0.5)) 10) nil)<br />             s2 (xyp-line pt p3)<br />             d1 (distance p1 p2)<br />             dh (distance pt p3)<br />             s3  (xyp-Text 5 (xyp-Mid2Pt pt p3) (rtos dh 2 2))<br />             s4 (xyp-Text 5 (xyp-Mid2Pt p1 p2) (rtos d1 2 2))<br />       )<br />       (entdel s1)<br />     )<br />   )<br />   (princ)<br /> )<br />

hhaoma

需要AutoLISP来实现 有谁会呢？

xyp1964

2. 
   
3. (defun c:tt ()
   
4.   (if (setq p1 (getpoint "\n基点<退出>: "))
   
5.     (progn
   
6.       (bpoly p1)
   
7.       (setq s1 (entlast)
   
8.             pt (vlax-curve-getclosestpointto s1 p1)
   
9.       )
   
10.       (entdel s1)
    
11.       (command "line" "non" p1 "non" pt "")
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )

<br /> (defun c:tt ()<br />   (if (setq p1 (getpoint "\n基点<退出>: "))<br />     (progn<br />       (bpoly p1)<br />       (setq s1 (entlast)<br />             pt (vlax-curve-getclosestpointto s1 p1)<br />       )<br />       (entdel s1)<br />       (command "line" "non" p1 "non" pt "")<br />     )<br />   )<br />   (princ)<br /> )

hhaoma

xyp1964 发表于 2014-8-24 17:50

这实力 太厉害啊！