求求 , 怎么获取圆角矩形中的4个圆角的中点坐标啊

bonny

x_s_s_1 发表于 2024-2-5 11:20
这个稍微通用一点

改成最小包即可，切勿无端扩展需求，否则就是个无底洞了，一切按提供的需求为准

x_s_s_1

炸开法

1. (defun c:tt  (/ obj)
   
2.     (setq obj (vlax-ename->vla-object (car (entsel))))
   
3.     (foreach obj  (vlax-safearray->list
   
4.                       (vlax-variant-value (vla-explode obj)))
   
5.         (if (= "AcDbArc" (vla-get-ObjectName obj))
   
6.             (entmake
   
7.                 (list
   
8.                     '(0 . "point")
   
9.                     (cons 10
   
10.                           (vlax-curve-getpointatparam
    
11.                               obj
    
12.                               (* 0.5
    
13.                                  (+ (vlax-curve-getstartparam
    
14.                                         obj)
    
15.                                     (vlax-curve-getendparam
    
16.                                         obj))))))))
    
17.         (vla-delete obj)))

(defun c:tt  (/ obj)<br />     (setq obj (vlax-ename->vla-object (car (entsel))))<br />     (foreach obj  (vlax-safearray->list<br />                       (vlax-variant-value (vla-explode obj)))<br />         (if (= "AcDbArc" (vla-get-ObjectName obj))<br />             (entmake<br />                 (list<br />                     '(0 . "point")<br />                     (cons 10<br />                           (vlax-curve-getpointatparam<br />                               obj<br />                               (* 0.5<br />                                  (+ (vlax-curve-getstartparam<br />                                         obj)<br />                                     (vlax-curve-getendparam<br />                                         obj))))))))<br />         (vla-delete obj)))

as6424

x_s_s_1 发表于 2024-2-7 09:01
炸开法

理解完了 , 学到了很多新函数和他们的实例用法 , 功能更灵活 , 谢谢老师

xyp1964

as6424

xyp1964 发表于 2024-2-7 20:19

谢谢 ,但是xyp没有在函数手册中搜到 , 学习失败 /捂脸