论坛 › XDRX_API应用 › 【动态】绘制带倒角的多段线

newer 发表于 2018-1-26 12:59:39

【动态】绘制带倒角的多段线

本帖最后由 newer 于 2018-1-26 13:01 编辑





(defun c:tt ()
(defun _callback (dynpt)
    (if      (and (> (length pts) 0)
             (setq temp (append pts (list dynpt)))
             (setq g (xdge::constructor "kcompositecrv3d" temp))
             (setq data (xdrx_polyline_set_radius g radius t))
             (xdge::free g)
      )
      (xdrx_setpropertyvalue pl "set" (apply 'append data))
    )
)
(xdrx_begin)
(if (setq radius (getreal "\n倒角半径:"))
    (progn (setq pts nil
               pl(xdrx_polyline_make)
         )
         (xdrx_setpropertyvalue pl "color" 1)
         (xdrx_pointmonitor "_callback")
         (while (setq      pt (getpoint (if (= (length pts) 0)
                                       "\n多段线第一点<退出>:"
                                       "\n下一点[半径(R)]<退出>:"
                                     )
                           )
                  )
             (setq data1 data
                   pts         (append pts (list pt))
             )
         )
         (xdrx_setpropertyvalue pl "set" data1)
    )
)
(xdrx_pointmonitor)
(xdrx_end)
(princ)
)

/db_自贡黄明儒_ 发表于 2018-1-26 15:08:56

这个强，vl就只有删除重画了。

jwj0805 发表于 2018-1-28 17:01:19

牛，可惜你里面的函数，我在论坛文档中都没找到用法

marting 发表于 2018-1-28 17:21:07

jwj0805 发表于 2018-1-28 17:01


下载 XDRX API， 里面有函数手册。

lingyv 发表于 2025-8-25 17:34:40

这个好，但是现在用不了啦。能帮更新一下吗

查看完整版本: 【动态】绘制带倒角的多段线