bonny 发表于 2024-2-6 15:22:16

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

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

x_s_s_1 发表于 2024-2-7 09:01:25

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

as6424 发表于 2024-2-7 09:12:26

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

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

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




as6424 发表于 2024-2-8 08:55:59

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


谢谢 ,但是xyp没有在函数手册中搜到 , 学习失败 /捂脸
页: 1 [2]
查看完整版本: 求求 , 怎么获取圆角矩形中的4个圆角的中点坐标啊