【已解决】如何批量标注多段线的夹角，不知道能不能实现

君是我的泪 · 发表于 2018-3-13 19:14:44

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

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

×

本帖最后由君是我的泪于 2018-3-30 12:01 编辑

Unnamed QQ Screenshot20180313191324.png

yangjian001 · 发表于 2018-3-14 08:25:08

期待各位大师的经验

newer · 发表于 2018-3-14 10:18:34

试试

(defun c:tt ()
(defun _process (pl)
(xdrx_polyline_convertfrom pl)
(setq verts (xdrx_polyline_numverts pl))
(setq inx 0)
(repeat verts
(setq inxs (XD::PolyLine:-Index+ pl inx))
(if (apply 'and inxs)
(progn
(if (and (= (xdrx_polyline_segtype pl (car inxs)) "kLine")
(= (xdrx_polyline_segtype pl inx) "kLine")
)
(progn (setq pl1 (xdrx_polyline_getlinesegat pl (car inxs))
v1 (mapcar '- (car pl1) (cadr pl1))
v1 (xdrx_vector_normalize v1)
pl2 (xdrx_polyline_getlinesegat pl inx)
v2 (mapcar '- (cadr pl2) (car pl2))
v2 (xdrx_vector_normalize v2)
an (xdrx_vector_angle v2 v1)
pos1 (polar (cadr pl1)
(angle (cadr pl1) (car pl1))
(/ (apply 'distance pl1) 5.0)
)
pos2 (polar (car pl2)
(angle (car pl2) (cadr pl2))
(/ (apply 'distance pl2) 5.0)
)
pos (xdrx_line_midp pos1 pos2)
)
(xdrx_dimension_make2lang
(cadr pl1)
(car pl1)
(car pl2)
(cadr pl2)
pos
)
(xdrx_setpropertyvalue
(entlast)
"dimasz" 1.0
"dimtxt" 3.0
"dimgap" 1.0
"dimtxsty" styl
)
(setq nums (1+ nums))
)
)
)
)
(setq inx (1+ inx))
)
)
(if (and (xdrx_initssget "选择标注的多段线<退出>:")
(setq ss (xdrx_ssget '((0 . "*polyline"))))
)
(progn (xdrx_begin)
(setq styl (cadr (xd::text:init 1))
nums 0
)
(mapcar '(lambda (x) (_process x)) (xdrx_pickset->ents ss))
(xdrx_prompt "\n标注了 " nums " 个夹角.")
(xdrx_end)
)
)
(princ)
)

(defun c:tt () 
  (defun _process (pl) 
    (xdrx_polyline_convertfrom pl) 
    (setq verts (xdrx_polyline_numverts pl)) 
    (setq inx 0) 
    (repeat verts 
      (setq inxs (XD::PolyLine:-Index+ pl inx)) 
      (if (apply 'and inxs) 
        (progn 
          (if (and (= (xdrx_polyline_segtype pl (car inxs)) "kLine") 
                   (= (xdrx_polyline_segtype pl inx) "kLine") 
              ) 
            (progn (setq pl1  (xdrx_polyline_getlinesegat pl (car inxs)) 
                         v1   (mapcar '- (car pl1) (cadr pl1)) 
                         v1   (xdrx_vector_normalize v1) 
                         pl2  (xdrx_polyline_getlinesegat pl inx) 
                         v2   (mapcar '- (cadr pl2) (car pl2)) 
                         v2   (xdrx_vector_normalize v2) 
                         an   (xdrx_vector_angle v2 v1) 
                         pos1 (polar (cadr pl1) 
                                     (angle (cadr pl1) (car pl1)) 
                                     (/ (apply 'distance pl1) 5.0) 
                              ) 
                         pos2 (polar (car pl2) 
                                     (angle (car pl2) (cadr pl2)) 
                                     (/ (apply 'distance pl2) 5.0) 
                              ) 
                         pos  (xdrx_line_midp pos1 pos2) 
                   ) 
                   (xdrx_dimension_make2lang 
                     (cadr pl1) 
                     (car pl1) 
                     (car pl2) 
                     (cadr pl2) 
                     pos 
                   ) 
                   (xdrx_setpropertyvalue 
                     (entlast) 
                     "dimasz" 1.0 
                     "dimtxt" 3.0 
                     "dimgap" 1.0 
                     "dimtxsty" styl 
                   ) 
              (setq nums (1+ nums)) 
            ) 
          ) 
        ) 
      ) 
      (setq inx (1+ inx)) 
    ) 
  ) 
  (if (and (xdrx_initssget "选择标注的多段线<退出>:") 
           (setq ss (xdrx_ssget '((0 . "*polyline")))) 
      ) 
    (progn (xdrx_begin) 
           (setq styl (cadr (xd::text:init 1)) 
                 nums 0 
           ) 
           (mapcar '(lambda (x) (_process x)) (xdrx_pickset->ents ss)) 
           (xdrx_prompt "\n标注了 " nums " 个夹角.") 
           (xdrx_end) 
    ) 
  ) 
  (princ) 
)