把此贴删除

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
http://bbs.mjtd.com/forum.php?mod=attachment&aid=Njk1NDN8NWUyNWYyOTExOGVjZDhiYmJmZDliMjg0ZDA5MjFkYTV8MTc0OTMxOTg0OA%3D%3D&request=yes&_f=.gif 差不多这样的功能

这工能否共享下，太需要了，楼主。

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

[讨论] 把此贴删除

本帖子中包含更多资源

500w008 500w008 当前离线积分 6432 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2012-8-6 23:07:41 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

500w008 500w008 当前离线积分 6432 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2012-8-12 11:18:31 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡