论坛 › 开源函数库 › (XD::Polyline:AddVertexAt) 多段线增加节点而不改变外观

st788796 发表于 2017-3-20 23:39:15

(XD::Polyline:AddVertexAt) 多段线增加节点而不改变外观

本帖最后由 st788796 于 2017-3-22 08:26 编辑

**** Hidden Message *****
测试

(defun c:tt (/ e p)
(while (and (setq e (car (xdrx_entsel "\nPick Pline: " '((0 . "lwpolyline")))))
            (setq p (getpoint "\nPick Point: "))
         )
    (xd::polyline:addvertexat e p)
)
(princ)
)

liuyj 发表于 2017-3-21 00:40:48

Lee Mac曾经写了一个，好像也可以。

yoyoho 发表于 2017-3-21 08:12:17

回覆学习,谢谢 st788796 分享程序!!!!

ynhh 发表于 2017-3-21 08:38:06

谢谢大师的好程序

newer 发表于 2017-3-21 23:38:02

建议

(xdge::free)改成 (xdge::free gr)

因为(xdge::free) 可能把函数外面的GE实体给释放了。所以尽量不要用全局释放。

st788796 发表于 2017-3-22 08:28:30

newer 发表于 2017-3-21 23:38


已修改，用 xdrx_polyline_getarcsegat 替换了 XdGe 部分

Lisphk 发表于 2017-3-22 08:59:44

学习大师代码

ssyfeng 发表于 2017-4-24 13:04:15

{:1_1:}非常不错的函数   

xinxirong 发表于 2017-5-2 07:07:03

∩_∩﹋o﹋^ω^()

moneymyoneQZ 发表于 2017-5-16 22:06:59

我来测试一下，行不行

qq1254582201 发表于 2017-5-31 11:31:56

都喜欢用API哦，大牛们怎么不喜欢纯lisp了呢

范建威 发表于 2017-6-13 23:10:14

正想自己做一个！下载来参考一下

炫翔 发表于 2017-6-17 16:20:00

学习，看看思路

ymcui2005 发表于 2017-6-17 16:46:45

回覆学习,谢谢 st788796 分享程序!!!!

winerfjy 发表于 2017-6-25 08:46:57

这个对数控切割很有用点越多割出来越圆滑

查看完整版本: (XD::Polyline:AddVertexAt) 多段线增加节点而不改变外观