【矩形】批量向内倒直角

marting · 发表于 2020-6-23 02:51:23

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

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

×

本帖最后由 newer 于 2020-6-23 10:35 编辑

(defun c:xdtb_recyj (/ distx disty p1 p10 p11 p12 p2 p3
p4 p5 p6 p7 p8 p9 ptmin pts ss v
vx vy x
)
(xd::var:getdouble "#xd-var-global-xoffset" 10.0)
(xd::var:getdouble "#xd-var-global-yoffset" 10.0)
(if (setq
v (getreal
(xdrx-prompt "\nX方向长度<" #xd-var-global-xoffset ">:" t)
)
)
(xd::var:setdouble "#xd-var-global-xoffset" v)
)
(if (setq
v (getreal
(xdrx-prompt "\nY方向长度<" #xd-var-global-yoffset ">:" t)
)
)
(xd::var:setdouble "#xd-var-global-yoffset" v)
)
(while (setq ss (xdrx-ssget
"\n选择要到阴角的矩形<退出>:"
'((0 . "*polyline"))
)
)
(mapcar
'(lambda (x)
(if (setq pts (xd::polyline:isrectang x))
(progn
(setq pts (xd::pnts:open pts)
distx (distance (car pts) (cadr pts))
disty (distance (car pts) (last pts))
)
(if (and (> distx (* 2 #xd-var-global-xoffset))
(> disty (* 2 #xd-var-global-yoffset))
)
(progn (setq ptmin (car (xd::pnts:miny->minx pts 1e-3))
pts (xd::polyline:resetfirstvertex pts ptmin)
vx (xdrx-vector-normalize
(mapcar '- (cadr pts) (car pts))
)
vy (xdrx-vector-normalize
(mapcar '- (last pts) (car pts))
)
p1 (mapcar
'+
(car pts)
(xdrx-vector-product vy #xd-var-global-yoffset)
)
p3 (mapcar
'+
(car pts)
(xdrx-vector-product vx #xd-var-global-xoffset)
)
p2 (mapcar
'+
p3
(xdrx-vector-product vy #xd-var-global-yoffset)
)
p4 (mapcar
'-
(cadr pts)
(xdrx-vector-product vx #xd-var-global-xoffset)
)
p5 (mapcar
'+
p4
(xdrx-vector-product vy #xd-var-global-yoffset)
)
p6 (mapcar
'+
(cadr pts)
(xdrx-vector-product vy #xd-var-global-yoffset)
)
p7 (mapcar
'-
(nth 2 pts)
(xdrx-vector-product vy #xd-var-global-yoffset)
)
p8 (mapcar
'-
p7
(xdrx-vector-product vx #xd-var-global-xoffset)
)
p9 (mapcar
'-
(nth 2 pts)
(xdrx-vector-product vx #xd-var-global-xoffset)
)
p10 (mapcar
'+
(last pts)
(xdrx-vector-product vx #xd-var-global-xoffset)
)
p11 (mapcar
'-
p10
(xdrx-vector-product vy #xd-var-global-yoffset)
)
p12 (mapcar
'-
(last pts)
(xdrx-vector-product vy #xd-var-global-yoffset)
)
)
(xdrx-setpropertyvalue
x
"set"
(list p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12)
"closed"
t
)
)
)
)
)
)
(xdrx-pickset->ents ss)
)
)
(princ)
)

(defun c:xdtb_recyj (/          distx            disty     p1   p10        p11  p12  p2   p3 
             p4          p5   p6   p7         p8   p9   ptmin     pts  ss   v 
             vx          vy   x 
            ) 
  (xd::var:getdouble "#xd-var-global-xoffset" 10.0) 
  (xd::var:getdouble "#xd-var-global-yoffset" 10.0) 
  (if (setq 
        v (getreal 
            (xdrx-prompt "\nX方向长度<" #xd-var-global-xoffset ">:" t) 
          ) 
      ) 
    (xd::var:setdouble "#xd-var-global-xoffset" v) 
  ) 
  (if (setq 
        v (getreal 
            (xdrx-prompt "\nY方向长度<" #xd-var-global-yoffset ">:" t) 
          ) 
      ) 
    (xd::var:setdouble "#xd-var-global-yoffset" v) 
  ) 
  (while (setq ss (xdrx-ssget 
                    "\n选择要到阴角的矩形<退出>:" 
                    '((0 . "*polyline")) 
                  ) 
         ) 
    (mapcar 
      '(lambda (x) 
         (if (setq pts (xd::polyline:isrectang x)) 
           (progn 
             (setq pts         (xd::pnts:open pts) 
                   distx (distance (car pts) (cadr pts)) 
                   disty (distance (car pts) (last pts)) 
             ) 
             (if (and (> distx (* 2 #xd-var-global-xoffset)) 
                      (> disty (* 2 #xd-var-global-yoffset)) 
                 ) 
               (progn (setq ptmin (car (xd::pnts:miny->minx pts 1e-3)) 
                            pts          (xd::polyline:resetfirstvertex pts ptmin) 
                            vx          (xdrx-vector-normalize 
                                    (mapcar '- (cadr pts) (car pts)) 
                                  ) 
                            vy          (xdrx-vector-normalize 
                                    (mapcar '- (last pts) (car pts)) 
                                  ) 
                            p1          (mapcar 
                                    '+ 
                                    (car pts) 
                                    (xdrx-vector-product vy #xd-var-global-yoffset) 
                                  ) 
                            p3          (mapcar 
                                    '+ 
                                    (car pts) 
                                    (xdrx-vector-product vx #xd-var-global-xoffset) 
                                  ) 
                            p2          (mapcar 
                                    '+ 
                                    p3 
                                    (xdrx-vector-product vy #xd-var-global-yoffset) 
                                  ) 
                            p4          (mapcar 
                                    '- 
                                    (cadr pts) 
                                    (xdrx-vector-product vx #xd-var-global-xoffset) 
                                  ) 
                            p5          (mapcar 
                                    '+ 
                                    p4 
                                    (xdrx-vector-product vy #xd-var-global-yoffset) 
                                  ) 
                            p6          (mapcar 
                                    '+ 
                                    (cadr pts) 
                                    (xdrx-vector-product vy #xd-var-global-yoffset) 
                                  ) 
                            p7          (mapcar 
                                    '- 
                                    (nth 2 pts) 
                                    (xdrx-vector-product vy #xd-var-global-yoffset) 
                                  ) 
                            p8          (mapcar 
                                    '- 
                                    p7 
                                    (xdrx-vector-product vx #xd-var-global-xoffset) 
                                  ) 
                            p9          (mapcar 
                                    '- 
                                    (nth 2 pts) 
                                    (xdrx-vector-product vx #xd-var-global-xoffset) 
                                  ) 
                            p10          (mapcar 
                                    '+ 
                                    (last pts) 
                                    (xdrx-vector-product vx #xd-var-global-xoffset) 
                                  ) 
                            p11          (mapcar 
                                    '- 
                                    p10 
                                    (xdrx-vector-product vy #xd-var-global-yoffset) 
                                  ) 
                            p12          (mapcar 
                                    '- 
                                    (last pts) 
                                    (xdrx-vector-product vy #xd-var-global-yoffset) 
                                  ) 
                      ) 
                      (xdrx-setpropertyvalue 
                        x 
                        "set" 
                        (list p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12) 
                        "closed" 
                        t 
                      ) 
               ) 
             ) 
           ) 
         ) 
       ) 
      (xdrx-pickset->ents ss) 
    ) 
  ) 
  (princ) 
)

Michael527 · 发表于 2020-6-23 05:06:36

阴角？是什么意思？

LXH刚开始 · 发表于 2020-6-23 08:40:05

功能非常好，但我相信，如果是线段组成的矩形必须先要合并才可以倒角。

1917732332 · 发表于 2020-6-23 08:50:48

xiiexxx

yuren008 · 发表于 2020-6-23 09:05:06

做个对论坛有益的人。

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

[矩形] 【矩形】批量向内倒直角

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