偏移变矩形

MENGZE · 发表于 2017-6-22 00:27:14

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

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

×

首先由于本人完全不会编程，只能做伸手党了，特求一个多段线(包括多段线里有圆弧)偏移变矩形的程序。要求按指定的方向偏移变矩形，图层为当前，矩形为闭合图形，能记忆上次的偏移数值，运行完毕恢复捕捉。运行平台为2016CAD。恳请各位帮忙。

MENGZE · 发表于 2017-6-22 18:37:18

newer 发表于 2017-6-22 01:07

请师傅看看

MENGZE · 发表于 2017-6-22 00:31:53

发贴求助有点小激动没有表达清楚，是多段线中的其中一段偏移变矩形，有劳各位师傅出马帮忙了

newer · 发表于 2017-6-22 01:07:09

MENGZE 发表于 2017-6-22 00:31

什么是偏移变矩形？画个图截取贴上来吧。示意下。

MENGZE · 发表于 2017-6-22 18:35:46

就是这个意思

newer · 发表于 2017-6-22 19:58:14

本帖最后由 newer 于 2017-6-22 20:00 编辑

MENGZE 发表于 2017-6-22 18:37

昨天看着就纳闷，弧线那能叫矩形吗？
你画这个，什么专业的，做什么用的？

yangjian001 · 发表于 2017-6-23 08:41:48

画个图截取贴上来吧

st788796 · 发表于 2017-6-23 09:56:09

(defun c:tt (/ ent dis e e1 p p1 pam n bulge sp ep sp1 ep1 l)
(if (and (setq ent (xdrx_entsel "\n拾取多段线: " '((0 . "lwpolyline"))))
(setq dis (getdist (cadr ent) "\n距离: "))
)
(progn
(setq e (car ent))
(while (and (setq e1 (xdrx_entsel "\n拾取偏移段: " '((0 . "lwpolyline"))))
(eq e (car e1))
(setq p (getpoint (cadr e1) "\n偏移边任意点: "))
)
(setq p1 (xdrx_curve_getclosestpoint e p)
pam (xdrx_curve_getparamatpoint e p1)
n (fix pam)
bulge (xdrx_polyline_getbulgeat e n)
sp (xdrx_polyline_getpointat e n)
ep (xdrx_polyline_getpointat e (1+ n))
)
(if (zerop bulge)
(progn
(setq sp1 (polar sp (angle p1 p) dis)
ep1 (polar ep (angle p1 p) dis)
)
(xdrx_polyline_make sp ep ep1 sp1 t)
)
(progn
(setq l (xdrx_polyline_getarcsegat e n))
(if (< (distance p (cadr l)) (caddr l))
(setq sp1 (polar sp (angle sp (cadr l)) dis)
ep1 (polar ep (angle ep (cadr l)) dis)
)
(setq sp1 (polar sp (angle (cadr l) sp) dis)
ep1 (polar ep (angle (cadr l) ep) dis)
)
)
(setq pl (xdrx_polyline_make sp ep ep1 sp1 t))
(xdrx_polyline_setbulgeat pl 0 bulge)
(xdrx_polyline_setbulgeat pl 2 (- bulge))
)
)
)
)
)
(princ)
)

(defun c:tt (/ ent dis e e1 p p1 pam n bulge sp ep sp1 ep1 l) 
  (if (and (setq ent (xdrx_entsel "\n拾取多段线: " '((0 . "lwpolyline")))) 
           (setq dis (getdist (cadr ent) "\n距离: ")) 
      ) 
    (progn 
      (setq e (car ent)) 
      (while (and (setq e1 (xdrx_entsel "\n拾取偏移段: " '((0 . "lwpolyline")))) 
                  (eq e (car e1)) 
                  (setq p (getpoint (cadr e1) "\n偏移边任意点: ")) 
             ) 
        (setq p1    (xdrx_curve_getclosestpoint e p) 
              pam   (xdrx_curve_getparamatpoint e p1) 
              n            (fix pam) 
              bulge (xdrx_polyline_getbulgeat e n) 
              sp    (xdrx_polyline_getpointat e n) 
              ep    (xdrx_polyline_getpointat e (1+ n)) 
        ) 
        (if (zerop bulge) 
          (progn 
            (setq sp1 (polar sp (angle p1 p) dis) 
                  ep1 (polar ep (angle p1 p) dis) 
            ) 
            (xdrx_polyline_make sp ep ep1 sp1 t) 
          ) 
          (progn 
            (setq l (xdrx_polyline_getarcsegat e n)) 
            (if        (< (distance p (cadr l)) (caddr l)) 
              (setq sp1        (polar sp (angle sp (cadr l)) dis) 
                    ep1        (polar ep (angle ep (cadr l)) dis) 
              ) 
              (setq sp1        (polar sp (angle (cadr l) sp) dis) 
                    ep1        (polar ep (angle (cadr l) ep) dis) 
              ) 
            ) 
            (setq pl (xdrx_polyline_make sp ep ep1 sp1 t)) 
            (xdrx_polyline_setbulgeat pl 0 bulge) 
            (xdrx_polyline_setbulgeat pl 2 (- bulge)) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

newer · 发表于 2017-6-23 10:27:30

st788796 发表于 2017-6-23 09:56

(xdrx_polyline_getarcsegat e n) 这个加上参数T，
(xdrx_polyline_getarcsegat e n t)
直接生成几何实体了，

用几何库的 getTrimmedOffset 偏移几何实体，
用 xdge::entity:make 就直接生成实体了

st788796 · 发表于 2017-6-23 11:04:42

用AcGe还要组合一个AcGeCompositeCurve3d, 直接生成一根闭合 AcDbPolyline 更简单

liunian0524 · 发表于 2017-6-27 08:43:07

偏移+封闭吗

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

[求助] 偏移变矩形

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