多义线把尖角倒圆

ymcui2005 · 发表于 2017-8-16 13:52:33

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

多义线把尖角倒圆 ,谢谢

Lisphk · 发表于 2017-8-16 13:59:18

本帖最后由 Lisphk 于 2017-8-16 14:04 编辑

登录/注册后可看大图

增量或者按指定半径修改圆角

API 应用修改圆角半径

（XD::POLYLINE:SetRadius）LWPOLYLINE 顶点设置倒角半径

批量“增量”倒圆角（函数 xd::polyline:setradius应用）

多段线顶点倒圆角代码

登录/注册后可看大图

批量多段线灵活倒角（倒内角、倒外角）

Lisphk · 发表于 2017-8-16 14:01:55

(XD::POLYLINE:SetRadius (car (entsel)) 0 100.0) ;;第一个顶点，半径100倒角。

newer · 发表于 2017-8-16 14:26:07

下面代码只倒“尖角”的地方
只倒尖角.gif

(defun c:tt ()
(if (and (setq r (getreal "\n输入半径<退出>:"))
(xdrx_initssget "\n选择倒尖角的多段线<退出>:")
(setq ss (xdrx_ssget '((0 . "LWPOLYLINE"))))
)
(progn
(xdrx_begin)
(mapcar
'(lambda (x)
(setq inxs (XD::Polyline:IndexAtLine x))
(setq i 0)
(mapcar '(lambda (y)
(if (xd::polyline:setradius x (+ i y) r)
(setq i (1+ i))
)
)
inxs
)
)
(xdrx_pickset->ents ss)
)
(xdrx_end)
)
)
(princ)
)

ymcui2005 · 发表于 2017-8-16 17:05:00

感谢大家

sicky111 · 发表于 2017-8-17 00:11:35

二楼的程序很实用！

evayleung · 发表于 2017-8-17 08:17:11

支持一下。。

fan_zh · 发表于 2017-8-17 09:05:32

mark 学习收藏了

账号		自动登录	找回密码
密码			立即注册

[求助] 多义线把尖角倒圆

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。