(XD::Dim:MakeRotWithPnts)点表创建转角尺寸标注

Lispboy · 发表于 2016-10-5 19:58:49

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

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

×

本帖最后由 Lispboy 于 2016-10-5 23:54 编辑

(defun XD::Dim:MakeRotWithPnts (pnts basepnt align dis / box ents p1 p2 pnts1 x xdir xline
)
(if (> (length pnts) 1)
(progn
(setq xdir (getvar "ucsxdir")
box (xdrx_points_box pnts)
p1 (car box)
p4 (last box)
p2 (cadr box)
)
(if (> (distance p1 basepnt) (distance p4 basepnt))
(setq p1 p4
p2 (caddr box)
)
)
(if align ; T 基点对齐
(setq pnts (mapcar
'car
(xdrx_points_sortOnCurve (list p1 p2) pnts t)
)
)
)
(setq pnts1 (xd::list:snakePair pnts))
(mapcar
'(lambda (x)
(setq ents (cons (xdrx_dimension_makerotate (car x)
(cadr x) basepnt
(angle p1 p2)
) ents
)
)
)
pnts1
)
(if (and
(or
(= (type dis) 'REAL)
(= (type dis) 'INT)
)
(> dis 1e-3)
(> (length ents) 1)
) ; 标注第二道尺寸线
(progn
(setq xline (xd::dim:xline (entlast))
xline (car xline)
xline (xdrx_vector_normalize (mapcar
'-
(last xline)
(car xline)
)
)
basepnt (mapcar
'+
basepnt
(xdrx_vector_product xline dis)
)
)
(setq ents (cons (xdrx_dimension_makerotate (car pnts)
(last pnts) basepnt
(angle p1 p2)
) ents
)
)
)
)
)
)
(reverse ents)
)

(defun XD::Dim:MakeRotWithPnts (pnts basepnt align dis / box ents p1 p2                                     pnts1 x xdir xline 
                               ) 
  (if (> (length pnts) 1) 
    (progn 
      (setq xdir (getvar "ucsxdir") 
            box (xdrx_points_box pnts) 
            p1 (car box) 
            p4 (last box) 
            p2 (cadr box) 
      ) 
      (if (> (distance p1 basepnt) (distance p4 basepnt)) 
        (setq p1 p4 
              p2 (caddr box) 
        ) 
      ) 
      (if align                               ; T 基点对齐 
        (setq pnts (mapcar 
                     'car 
                     (xdrx_points_sortOnCurve (list p1 p2) pnts t) 
                   ) 
        ) 
      ) 
      (setq pnts1 (xd::list:snakePair pnts)) 
      (mapcar 
        '(lambda (x) 
           (setq ents (cons (xdrx_dimension_makerotate (car x) 
                                                       (cadr x) basepnt 
                                                       (angle p1 p2) 
                            ) ents 
                      ) 
           ) 
         ) 
        pnts1 
      ) 
      (if (and 
            (or 
              (= (type dis) 'REAL) 
              (= (type dis) 'INT) 
            ) 
            (> dis 1e-3) 
            (> (length ents) 1) 
          )                               ; 标注第二道尺寸线 
        (progn 
          (setq xline (xd::dim:xline (entlast)) 
                xline (car xline) 
                xline (xdrx_vector_normalize (mapcar 
                                               '- 
                                               (last xline) 
                                               (car xline) 
                                             ) 
                      ) 
                basepnt (mapcar 
                          '+ 
                          basepnt 
                          (xdrx_vector_product xline dis) 
                        ) 
          ) 
          (setq ents (cons (xdrx_dimension_makerotate (car pnts) 
                                                      (last pnts) basepnt 
                                                      (angle p1 p2) 
                           ) ents 
                     ) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (reverse ents) 
)

Lispboy · 发表于 2016-10-5 20:41:55

附上一个该函数具体应用的例子代码（结合带关键字的SSGET），标注选择到的多段线

(defun c:tt ()
(if (not #dis)
(setq #dis 10.0)
)
(defun _setdis (keyword)
(cond
((= keyword "SE")
(if (setq dis (getreal (xdrx_prompt "\n请输入第二道尺寸线距离<" #dis
">:" t
)
)
)
(setq #dis dis)
)
)
((= keyword "BE")
(setq #align1 (xdrx_yesorno "\n基点是否对齐:" 1))
(if (= #align1 1)
(setq #align t)
(setq #align nil)
)
)
)
(xdrx_prompt "\n当前设置：基点对齐(" (if #align "Y" "N") ")/二道尺寸距离(" #dis ")")
)
(xdrx_begin)
(xdrx_prompt "\n当前设置：基点对齐(" (if #align "Y" "N") ")/二道尺寸距离(" #dis ")")
(xdrx_initssget "\n选取要标注的多段线[基点对齐(BE)/二道尺寸(SE)]<退出>:"
"BE SE" "" "_setdis" ""
)
(if (and
(setq ss (xdrx_ssget '((0 . "*polyline"))))
(setq pt (getpoint "\n尺寸线位置<退出>:"))
)
(progn
(mapcar
'(lambda (x)
(xd::dim:makerotwithPnts (xdrx_getpropertyvalue x "vertices")
(trans pt 1 0) #align #dis
)
)
(xdrx_pickset->ents ss)
)
)
)
(xdrx_end)
(princ)
)

(defun c:tt () 
  (if (not #dis) 
    (setq #dis 10.0) 
  ) 
  (defun _setdis (keyword) 
    (cond 
      ((= keyword "SE") 
        (if (setq dis (getreal (xdrx_prompt "\n请输入第二道尺寸线距离<" #dis 
                                            ">:" t 
                               ) 
                      ) 
            ) 
          (setq #dis dis) 
        ) 
      ) 
      ((= keyword "BE") 
        (setq #align1 (xdrx_yesorno "\n基点是否对齐:" 1)) 
        (if (= #align1 1) 
          (setq #align t) 
          (setq #align nil) 
        ) 
      ) 
    ) 
    (xdrx_prompt "\n当前设置：基点对齐(" (if #align "Y" "N") ")/二道尺寸距离(" #dis ")") 
  ) 
  (xdrx_begin) 
  (xdrx_prompt "\n当前设置：基点对齐(" (if #align "Y" "N") ")/二道尺寸距离(" #dis ")") 
  (xdrx_initssget "\n选取要标注的多段线[基点对齐(BE)/二道尺寸(SE)]<退出>:" 
                  "BE SE" "" "_setdis" "" 
  ) 
  (if (and 
        (setq ss (xdrx_ssget '((0 . "*polyline")))) 
        (setq pt (getpoint "\n尺寸线位置<退出>:")) 
      ) 
    (progn 
      (mapcar 
        '(lambda (x) 
           (xd::dim:makerotwithPnts (xdrx_getpropertyvalue x "vertices") 
                                    (trans pt 1 0) #align #dis 
           ) 
         ) 
        (xdrx_pickset->ents ss) 
      ) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

yoyoho · 发表于 2016-10-6 06:41:06

感谢 Lispboy 分享学习,谢谢!

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

[点表] (XD::Dim:MakeRotWithPnts)点表创建转角尺寸标注

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

浏览过的版块