直线可以变圆弧吗？谢谢[已解决]

cam0668 · 发表于 2020-12-20 13:56:19

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

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

×

本帖最后由 cam0668 于 2020-12-20 14:58 编辑

直线用圆弧模拟，凸点0.05 因不可能完全是直线状态谢谢各位

cam0668 · 发表于 2020-12-20 14:57:39

(defun c:l2pl (/ ss en nn endata pt_10 pt_11 ang dd dd_nn bas1 bas2)
(setvar "cmdecho" 0)
(princ "\n功能：将直线变为半圆弧相接的多段线。")
(princ "\n请点取直线对象...")
;;对选择的对象类型进行过滤，排除其它对象
(if (setq ss (ssget ":s" (list (cons 0 "line"))))
(progn
;(setq nn (getint "\n重复次数<1>:"))
;;判断输入的有效性，不能为0或者负值
;(if (or (= nn nil) (< nn 1) )  (setq nn 5) )
(setq nn 1)
(setq en
(ssname ss 0)
endata (entget en)
pt_10  (cdr (assoc 10 endata))
pt_11  (cdr (assoc 11 endata))
ang  (angle pt_10 pt_11)
dd  (distance pt_10 pt_11)
bas1  pt_10 dd_nn  (/ dd nn)
)
;;开始绘制多段线，注意关闭捕捉设置
(command "_.pline" "non" bas1 "a" "a" 0.05)
(repeat nn  (setq bas2 (polar bas1 ang dd_nn))
(command "non" bas2)  (setq bas1 bas2)    )
(command "")    (entdel en) )
;_结束
progn )
;_结束
if
(princ)
)
已解决,谢谢关注

marting · 发表于 2020-12-21 21:56:59

本帖最后由 newer 于 2020-12-22 10:31 编辑

用ARX的几何庫，构建三点圆弧几何实体

(defun c:tt ()
(if (and (setq p1 (getpoint "\n第一點<退出>:"))
(setq p2 (getpoint p1 "\n第二點<退出>:"))
(setq pmid (xdrx-line-midp p1 p2))
)
(progn (xdrx-begin)
(setq ar (xdge::constructor "kcircarc3d" p1 pmid p2))
(xdge::entity:make ar)
(xdrx-end)
)
)
(princ)
)

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

[已解决] 直线可以变圆弧吗？谢谢[已解决]

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