clh521 发表于 2011-6-1 10:32:26

不错啊，想法不错

jfxia 发表于 2011-6-2 12:40:14

         xyp1964版主可有源码分享??

langjs 发表于 2011-6-2 12:57:12

好程序，再扩展一下就好了：选择单条线时候，线性标注，选择两条线时候，标注夹角

xyp1964 发表于 2011-6-2 13:23:52

jfxia 发表于 2011-6-2 12:40 static/image/common/back.gif
xyp1964版主可有源码分享??

;; 半径直径标注
(defun c:test988 ()
(CMDLA0)
(xyp-MkLaCo "TEST" 3)
(setq        ss (ssget '((0 . "circle,arc")))
        i-1
)
(xyp-Group0)
(while (setq s1 (ssname ss (setq i (1+ i))))
    (setq p0 (xyp-get-dxf 10 s1)
          r(xyp-get-dxf 40 s1)
    )
    (if        (= (xyp-get-dxf 0 s1) "ARC")
      (progn
        (setq l1 (xyp-get-CurveLength s1)
              l2 (* pi 2 r)
              s2 (xyp-Dim-Rad s1 (xyp-get-CurveMidPoint s1))
              tx (strcat "M" (rtos (xyp-get-dxf 42 s2) 2 0))
        )
        (if (>= l1 (* l2 0.75))
          (xyp-SubUpd s2 1 tx)
        )
      )
      (progn
        (xyp-Dim-Dia s1)
        (xyp-rotate (entlast) p0 -45)
      )
    )
)
(xyp-Group1)
(CMDLA1)
)

ZZXXQQ 发表于 2011-6-2 19:28:10

本帖最后由 ZZXXQQ 于 2011-6-2 19:39 编辑

langjs 发表于 2011-6-2 12:57 http://bbs.mjtd.com/static/image/common/back.gif
好程序，再扩展一下就好了：选择单条线时候，线性标注，选择两条线时候，标注夹角

本版块已有这样的程序。搜一下“自顶向下，逐步求精"
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=82461&highlight=%D6%F0%B2%BD%C7%F3%BE%AB

669423907 发表于 2012-3-26 22:02:32

ZZXXQQ 发表于 2011-5-27 22:24 static/image/common/back.gif
那就把第14行的判断自行改下吧

Z版你好，你写的程序我用了很久，在此提一下使用心得：
在标C，R，M，时快了N多，但有时想把“大于或等于 4份之3圆”标为R就不是很方便了。
不知Z版是否方便再高抬贵手绑再完善一下此程序呢？

就是在标“M”时添加图层判断：
当选择的对象大于或等于 4份之3 圆时且对象为“螺纹”层时才标“M”

再次感谢Z版的热情帮助！

669423907 发表于 2012-3-27 12:52:42

实在不会添加，求助.............

无欲神 发表于 2012-4-4 19:51:26

z版主，非常强大而且热心，支持你

2564277832 发表于 2012-6-30 23:30:06

Z大的真的好強！

hutengfei 发表于 2012-7-4 14:30:41

页: 1 2 [3] 4 5
查看完整版本: 求智能圆标注（已解决！谢谢ZZXXQQ 版主热情帮助！）