求智能圆标注（已解决！谢谢ZZXXQQ 版主热情帮助！）

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

不错啊，想法不错

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

xyp1964 版主可有源码分享??

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

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

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

jfxia 发表于 2011-6-2 12:40
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

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

langjs 发表于 2011-6-2 12:57
好程序，再扩展一下就好了：选择单条线时候，线性标注，选择两条线时候，标注夹角

本版块已有这样的程序。搜一下“自顶向下，逐步求精"
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

ZZXXQQ 发表于 2011-5-27 22:24
那就把第14行的判断自行改下吧

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

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

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

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

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

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

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

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

Z大的真的好強！

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

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