500w008 发表于 2012-8-6 23:07:41

巛丸 发表于 2012-8-7 09:46:04

帮你 顶一下 我也需要

xyp1964 发表于 2012-8-7 12:59:14

工具箱之圆轴标注

巛丸 发表于 2012-8-7 14:31:57

(defun c:tt (/ ss i)
(setq      ss (ssget '((0 . "circle,arc")))
      i-1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
    (xyp-CircleLineDim s1 1000 1000)
)
(princ)
)


;; xyp-CircleLineDim 圆轴线标注 (xyp-CircleLineDim s1 dx dy)
(defun xyp-CircleLineDim (s1 dx dy / p1 p9 p0 ss2 s2 s3 s4 p11 p22)
(setq        p1 (xyp-get-9pt s1 1)
        p1 (xyp-get-Pt2XY p1 (- dx) (- dy))
        p9 (xyp-get-9pt s1 9)
        p9 (xyp-get-Pt2XY p9 dx dy)
        p0 (xyp-get-dxf 10 s1)
)
(if (and (setq ss2 (ssget "c" p1 p9 '((0 . "line"))))
           (= (sslength ss2) 2)
      )
    (progn
      (setq s3 (ssname ss2 0)
          s4 (ssname ss2 1)
      )
      (if (xyp-get-Inters s3 s4 3)
        (progn
          (setq        p11 (xyp-PerpendicularFoot-Pt2Line p0 s3)
                p22 (xyp-PerpendicularFoot-Pt2Line p0 s4)
          )
          (if (> (distance p0 p11) 0)
          (xyp-Dim-Ali p0 p11 600)
          )
          (if (> (distance p0 p22) 0)
          (xyp-Dim-Ali p0 p22 600)
          )
        )
      )
    )
)
)

500w008 发表于 2012-8-12 11:18:31

lpl 发表于 2012-8-12 15:21:59

500w008 发表于 2012-8-12 11:18 static/image/common/back.gif
attach://69543.gif 差不多这样的功能

这工能否共享下，太需要了，楼主。
页: 1 [2]
查看完整版本: 把此贴删除