找出两曲线最近距离位置并标注

Lispboy

1. (defun c:XDTB_CurveMinDis (/ e1 e2 g1 g2 ints p1 p2 ratio)
   
2.   (if (and
   
3.   (setq e1 (car (xdrx_entsel "\n拾取第一条曲线<退出>:" '((0 . "spline,line,arc,ellipse,*polyline,circle")))))
   
4.   (setq e2 (car (xdrx_entsel "\n拾取第一条曲线<退出>:" '((0 . "spline,line,arc,ellipse,*polyline,circle")))))
   
5.   (setq g1 (xdge::constructor e1))
   
6.   (setq g2 (xdge::constructor e2))
   
7.       )
   
8.     (progn
   
9.       (if (setq ints (xdge::getpropertyvalue g1 "closestPointTo" g2))
   
10.   (progn
    
11.     (xdrx_begin)
    
12.     (setq ratio (XD::Var:GetScaleRatio))
    
13.     (XD::DIM:Init)
    
14.     (setq p1 (car ints)
    
15.     p2 (cadr ints)
    
16.     )
    
17.     (xdrx_dimension_MakeRotate p1 p2 p2 (angle p1 p2))
    
18.     (xdrx_dimension_setoverride (entlast) "dimscale" ratio)
    
19.     (xdrx_end)
    
20.   )
    
21.       )
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )
    

(defun c:XDTB_CurveMinDis (/ e1 e2 g1 g2 ints p1 p2 ratio)<br />   (if (and<br />   (setq e1 (car (xdrx_entsel "\n拾取第一条曲线<退出>:" '((0 . "spline,line,arc,ellipse,*polyline,circle")))))<br />   (setq e2 (car (xdrx_entsel "\n拾取第一条曲线<退出>:" '((0 . "spline,line,arc,ellipse,*polyline,circle")))))<br />   (setq g1 (xdge::constructor e1))<br />   (setq g2 (xdge::constructor e2))<br />       )<br />     (progn<br />       (if (setq ints (xdge::getpropertyvalue g1 "closestPointTo" g2))<br />   (progn<br />     (xdrx_begin)<br />     (setq ratio (XD::Var:GetScaleRatio))<br />     (XD::DIM:Init)<br />     (setq p1 (car ints)<br />     p2 (cadr ints)<br />     )<br />     (xdrx_dimension_MakeRotate p1 p2 p2 (angle p1 p2))<br />     (xdrx_dimension_setoverride (entlast) "dimscale" ratio)<br />     (xdrx_end)<br />   )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

彩云

谢谢分享，辛苦了

cable2004

谢谢分享，辛苦了

URD911

辛苦了 不错的功能

ymfqjwl

这个程序有用，谢谢分享。

kqqt6236

啥也不说了，感谢楼主分享哇！

SYTDD

感谢楼主分享.

香远益清

相当不错，程序段很短很简洁，高手