批量直线标注，折弯标注

aws

此插件还不够完美，文字偶有碰撞，看看有没有大佬，给出出主意，让文字互相避让。

aws

另外如果是多段线，我该咋改，有点摸不着思路

liuhe

2. 
   
3. ;;164.12 [功能] 多段线子段数量
   
4. ;;相当于组码90
   
5. ;;示例 (HH:GetCurveNum (car (entsel)))
   
6. (defun HH:GetCurveNum (obj)
   
7. (if (vlax-curve-isClosed obj)
   
8.   (fix (1- (vlax-curve-getendParam obj)))
   
9.   (fix (vlax-curve-getendParam obj))
   
10. )
    
11. )
    
12. 
    
13. ;;164.13 [功能] 曲线中点
    
14. ;;示例 (HH:GetMidpointCurve (car (entsel)))
    
15. (defun HH:GetMidpointCurve (curve / d)
    
16. (setq d (/ (vlax-curve-getDistAtParam curve (vlax-curve-getEndParam curve)) 2))
    
17. (vlax-curve-getPointAtDist curve d)
    
18. )
    
19. 
    
20. ;;164.14 [功能] 曲线一点的参数param
    
21. ;;(HH:PtToParam (car (entsel)) (getpoint))
    
22. (defun HH:PtToParam (obj pt)
    
23. (vlax-curve-getParamAtPoint obj pt)
    
24. )
    
25. ;;164.15 [功能] 参数param处的坐标
    
26. ;;(HH:ParamTopt (car (entsel)) 0)
    
27. (defun HH:ParamTopt (obj param)
    
28. (vlax-curve-getPointAtParam obj param)
    
29. )
    
30. ;;164.16 [功能] 多段线第n子段的起点坐标
    
31. ;;示例 (HH:GetSegStratPt (car (entsel)) 0)
    
32. (defun HH:GetSegStratPt  (curve n)
    
33. (vlax-curve-getPointAtParam curve (fix n))
    
34. )
    
35. ;;164.17 [功能] 多段线第n子段的终点坐标
    
36. ;;示例 (HH:GetSegEndPt (car (entsel)) 0)
    
37. (defun HH:GetSegEndPt (curve n)
    
38. (vlax-curve-getPointAtParam curve (1+ (fix n)))
    
39. )

<br /> ;;164.12 [功能] 多段线子段数量<br /> ;;相当于组码90<br /> ;;示例 (HH:GetCurveNum (car (entsel)))<br /> (defun HH:GetCurveNum (obj)<br /> (if (vlax-curve-isClosed obj)<br />   (fix (1- (vlax-curve-getendParam obj)))<br />   (fix (vlax-curve-getendParam obj))<br /> )<br /> )<br /> <br /> ;;164.13 [功能] 曲线中点<br /> ;;示例 (HH:GetMidpointCurve (car (entsel)))<br /> (defun HH:GetMidpointCurve (curve / d)<br /> (setq d (/ (vlax-curve-getDistAtParam curve (vlax-curve-getEndParam curve)) 2))<br /> (vlax-curve-getPointAtDist curve d)<br /> )<br /> <br /> ;;164.14 [功能] 曲线一点的参数param<br /> ;;(HH:PtToParam (car (entsel)) (getpoint))<br /> (defun HH:PtToParam (obj pt)<br /> (vlax-curve-getParamAtPoint obj pt)<br /> )<br /> ;;164.15 [功能] 参数param处的坐标<br /> ;;(HH:ParamTopt (car (entsel)) 0)<br /> (defun HH:ParamTopt (obj param)<br /> (vlax-curve-getPointAtParam obj param)<br /> )<br /> ;;164.16 [功能] 多段线第n子段的起点坐标<br /> ;;示例 (HH:GetSegStratPt (car (entsel)) 0)<br /> (defun HH:GetSegStratPt  (curve n)<br /> (vlax-curve-getPointAtParam curve (fix n))<br /> )<br /> ;;164.17 [功能] 多段线第n子段的终点坐标<br /> ;;示例 (HH:GetSegEndPt (car (entsel)) 0)<br /> (defun HH:GetSegEndPt (curve n)<br /> (vlax-curve-getPointAtParam curve (1+ (fix n)))<br /> )

By 自贡黄明儒

非本人

aws

liuhe 发表于 2023-3-28 16:41
By 自贡黄明儒

非本人

感谢帮助！收获到了新方法。

gaolei_gaolei

大侠能实现画线和长一起标出来吗，

vormittag

碰撞是没办法避免的，一个很小的图，非要用大字标注，想不碰撞那是不可能的。