马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
x
 - (defun c:xdtb_arcfitsd (/ p1 p2 p3 g)
- (xdrx-begin)
- (xdrx-prompt "\n**手工通过三点拟合出圆弧**")
- (xdrx-sysvar-push '("osmode" 545))
- (if (and (setq p1 (getpoint "\n弧线起点<退出>:"))
- (setq p2 (getpoint p1 "\n中间点<退出>:"))
- (setq p3 (getpoint p2 "\n弧线终点<退出>:"))
- (setq g (xdge::constructor "kcircarc3d" p1 p2 p3))
- )
- (progn (xdrx-entity-delete
- (ssget "f"
- (xdrx-getsamplept g (/ (xd::doc:getpickboxheight) 5))
- )
- )
- (xdrx-entity-make g)
- (xdrx-prompt "\n生成圆弧.")
- )
- )
- (xdrx-sysvar-pop)
- (xdrx-end)
- (princ)
- )
|