直角矫正插件

newer · 发表于 2018-8-30 16:52:57

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

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

×

本帖最后由 newer 于 2018-8-30 16:57 编辑

1、可设置精度，在精度范围内（同90度）比，转换成直角
2、强制转换，所有角都转成90度

请在 2018.08.30日以后更新的API上运行。

(defun c:xdtb_rangcorrection (/ #endpoint #startpoint ang cur dist
dists g1 g2 i inx nums nums1 numverts
p&n p1 prev pt ss tf tf1 tol
v1 v2 val vp x
)
(xdrx_begin)
(xdrx_initget "Y N")
(if (not #xd_var_global_tol_angle)
(setq #xd_var_global_tol_angle 1.0)
)
(if (= (xdrx_yesorno "\n强制转换吗" 0) 0)
(progn (if (setq val (getreal (xdrx_prompt
"\n精度精度（度）<"
#xd_var_global_tol_angle
">:"
t
)
)
)
(setq #xd_var_global_tol_angle val)
)
(setq tol (* pi (/ #xd_var_global_tol_angle 180)))
)
(setq tol (/ pi 2.0))
)
(setq nums 0
nums1 0
)
(if (and (xdrx_initssget "\n选择要矫正直角的多段线<退出>:")
(setq ss (xdrx_ssget '((0 . "*POLYLINE"))))
)
(progn
(mapcar
'(lambda (x)
(setq tf nil)
(if (xdrx_object_iskindof x "AcDb2dPolyline")
(progn (setq tf t) (xdrx_polyline_convertfrom x))
)
(setq numverts (xdrx_getpropertyvalue x "numverts")
inx nil
)
(setq i 0
dists (xdrx_getpropertyvalue x "lengths")
)
(setq tf1 nil)
(repeat (1- numverts)
(setq prev i
cur (setq i (1+ i))
p1 (xdrx_polyline_getpointat x cur)
p&n (xdrx_getpropertyvalue x "prevnextindex" cur)
)
(if (and (= (xdrx_getpropertyvalue x "segtype" prev) 0)
(= (xdrx_getpropertyvalue x "segtype" cur) 0)
)
(progn
(if (not (member prev inx))
(setq inx (cons prev inx))
)
(if (not (member cur inx))
(setq inx (cons cur inx))
)
(setq g1 (xdrx_polyline_getlinesegat x prev t)
g2 (xdrx_polyline_getlinesegat x cur t)
dist (xdge::getpropertyvalue g2 "length")
dist (nth cur dists)
ang (xdge::getpropertyvalue g1 "angle" g2 t)
)
(if (and (not (equal ang (/ pi 2.0) 1e-5))
(equal ang (/ pi 2.0) tol)
)
(progn
(setq tf1 t
nums1 (1+ nums1)
)
(xdge::getpropertyvalue g1 "startpoint" "endpoint")
(setq v1 (xdrx_vector_normalize
(mapcar '- #endpoint #startpoint)
)
)
(xdge::getpropertyvalue g2 "startpoint" "endpoint")
(setq v2 (xdrx_vector_normalize
(mapcar '- #endpoint #startpoint)
)
)
(setq vp (xdrx_vector_perpvector v1))
(if (not (xdrx_vector_iscodirectional vp v2 t))
(setq vp (xdrx_vector_negate vp))
)
(setq
pt (mapcar '+ p1 (xdrx_vector_product vp dist))
)
(if (and (xdrx_curve_isclosed x)
(= (1+ cur) numverts)
(member 0 inx)
)
(progn (setq nums1 (1+ nums1)
pt (car (xdrx_getinters
(list #startpoint pt)
(xdrx_polyline_getlinesegat x 0)
3
)
)
)
)
)
(xdrx_polyline_setpointat x (cadr p&n) pt)
)
)
)
)
(and tf (xdrx_polyline_convertto x))
)
(if tf1
(setq nums (1+ nums))
)
)
(xdrx_pickset->ents ss)
)
(xdrx_prompt
"\n成功矫正了 " nums " 个多段线. 包括了 " nums1 " 个直角.")
)
)
(xdrx_end)
(princ)
)

(defun c:xdtb_rangcorrection (/            #endpoint          #startpoint        ang    cur    dist 
             dists  g1           g2          i         inx        nums   nums1  numverts 
             p&n    p1           prev          pt         ss        tf     tf1    tol 
             v1            v2           val          vp         x 
            ) 
  (xdrx_begin) 
  (xdrx_initget "Y N") 
  (if (not #xd_var_global_tol_angle) 
    (setq #xd_var_global_tol_angle 1.0) 
  ) 
  (if (= (xdrx_yesorno "\n强制转换吗" 0) 0) 
    (progn (if (setq val (getreal (xdrx_prompt 
                                    "\n精度精度（度）<" 
                                    #xd_var_global_tol_angle 
                                    ">:" 
                                    t 
                                  ) 
                         ) 
               ) 
             (setq #xd_var_global_tol_angle val) 
           ) 
           (setq tol (* pi (/ #xd_var_global_tol_angle 180))) 
    ) 
    (setq tol (/ pi 2.0)) 
  ) 
  (setq        nums 0 
        nums1 0 
  ) 
  (if (and (xdrx_initssget "\n选择要矫正直角的多段线<退出>:") 
           (setq ss (xdrx_ssget '((0 . "*POLYLINE")))) 
      ) 
    (progn 
      (mapcar 
        '(lambda (x) 
           (setq tf nil) 
           (if (xdrx_object_iskindof x "AcDb2dPolyline") 
             (progn (setq tf t) (xdrx_polyline_convertfrom x)) 
           ) 
           (setq numverts (xdrx_getpropertyvalue x "numverts") 
                 inx          nil 
           ) 
           (setq i     0 
                 dists (xdrx_getpropertyvalue x "lengths") 
           ) 
           (setq tf1 nil) 
           (repeat (1- numverts) 
             (setq prev        i 
                   cur        (setq i (1+ i)) 
                   p1        (xdrx_polyline_getpointat x cur) 
                   p&n        (xdrx_getpropertyvalue x "prevnextindex" cur) 
             ) 
             (if (and (= (xdrx_getpropertyvalue x "segtype" prev) 0) 
                      (= (xdrx_getpropertyvalue x "segtype" cur) 0) 
                 ) 
               (progn 
                 (if (not (member prev inx)) 
                   (setq inx (cons prev inx)) 
                 ) 
                 (if (not (member cur inx)) 
                   (setq inx (cons cur inx)) 
                 ) 
                 (setq g1   (xdrx_polyline_getlinesegat x prev t) 
                       g2   (xdrx_polyline_getlinesegat x cur t) 
                       dist (xdge::getpropertyvalue g2 "length") 
                       dist (nth cur dists) 
                       ang  (xdge::getpropertyvalue g1 "angle" g2 t) 
                 ) 
                 (if (and (not (equal ang (/ pi 2.0) 1e-5)) 
                          (equal ang (/ pi 2.0) tol) 
                     ) 
                   (progn 
                     (setq tf1         t 
                           nums1 (1+ nums1) 
                     ) 
                     (xdge::getpropertyvalue g1 "startpoint" "endpoint") 
                     (setq v1 (xdrx_vector_normalize 
                                (mapcar '- #endpoint #startpoint) 
                              ) 
                     ) 
                     (xdge::getpropertyvalue g2 "startpoint" "endpoint") 
                     (setq v2 (xdrx_vector_normalize 
                                (mapcar '- #endpoint #startpoint) 
                              ) 
                     ) 
                     (setq vp (xdrx_vector_perpvector v1)) 
                     (if (not (xdrx_vector_iscodirectional vp v2 t)) 
                       (setq vp (xdrx_vector_negate vp)) 
                     ) 
                     (setq 
                       pt (mapcar '+ p1 (xdrx_vector_product vp dist)) 
                     ) 
                     (if (and (xdrx_curve_isclosed x) 
                              (= (1+ cur) numverts) 
                              (member 0 inx) 
                         ) 
                       (progn (setq nums1 (1+ nums1) 
                                    pt          (car (xdrx_getinters 
                                                 (list #startpoint pt) 
                                                 (xdrx_polyline_getlinesegat x 0) 
                                                 3 
                                               ) 
                                          ) 
                              ) 
                       ) 
                     ) 
                     (xdrx_polyline_setpointat x (cadr p&n) pt) 
                   ) 
                 ) 
               ) 
             ) 
             (and tf (xdrx_polyline_convertto x)) 
           ) 
           (if tf1 
             (setq nums (1+ nums)) 
           ) 
         ) 
        (xdrx_pickset->ents ss) 
      ) 
      (xdrx_prompt 
        "\n成功矫正了 "        nums " 个多段线. 包括了 " nums1        " 个直角.") 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

Michael527 · 发表于 2018-8-30 19:10:03

这个插件有一定意义

t666666 · 发表于 2018-8-30 22:03:29

这个插件不错，试一下！

hasky · 发表于 2018-8-31 16:58:58

这个不错，用来校正从pkpm里面导出的剪力墙模板。

tiankong2016 · 发表于 2018-9-6 09:03:59

感谢楼主分享

cfc123456 · 发表于 2018-9-7 08:40:15

感谢楼主分享！！

雨莫 · 发表于 2018-9-7 08:43:21

支持一下，大神级别的。。。

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

[工具] 直角矫正插件

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