倒角,圆角.直径半径,线性标注,(含源码)20110807七夕版-深夜更新

429014673 · 发表于 2011-8-10 00:34:01

楼主抓紧时间解决多线段呀

669423907 · 发表于 2011-12-13 20:34:44

本帖最后由 669423907 于 2011-12-13 20:42 编辑

谢谢楼主分享！

不知楼主是否有兴趣把ZZXXQQ版的都整到一起呢？

非常期待啊

;φ,M,R 智能标注（ZZXXQQ）2011.5.28
(defun c:cmr()
(setq la (getvar"clayer"))
(command "clayer" "7标注")
(while (and (setq s1 (entsel "\n选择圆或圆弧 :"))
(setq ent (entget (car s1)))
(wcmatch (setq tn (cdr(assoc 0 ent))) "ARC,CIRCLE"))
(setq pt1 (cadr s1))
(setq qztxt (if (setq qz (getint "\n个数 :")) (strcat (itoa qz) "-") ""))
(if (= tn "ARC") (progn
(setq r (cdr(assoc 40 ent)))
(command ".LENGTHEN" (car s1) "")
(if (>= (/ (getvar "

ERIMETER") r) (* 1.5 pi)) (progn
(setq qztxt (strcat qztxt "M" (rtos (+ r r) 2)))
(command "DIMDIAMETER" pt1 "T" qztxt PAUSE))
(command "DIMRADIUS" pt1 "T" (strcat qztxt "<>") PAUSE)))
(command "DIMDIAMETER" pt1 "T" (strcat qztxt "<>") PAUSE)))
(setvar "clayer"la)
(princ))

lichenxui · 发表于 2011-12-16 23:06:12

高手太牛了

EMD · 发表于 2011-12-25 22:16:24

669423907 发表于 2011-12-13 20:34
谢谢楼主分享！
不知楼主是否有兴趣把ZZXXQQ版的都整到一起呢？
非常期待啊

哥们,工作太忙.没时间深入研究了.等忙完这段时间,我会继续完善的.另外,我也是新手啊~~

aaa19842002 · 发表于 2012-8-31 16:46:12

真需要！！！！！！

@辰雨@ · 发表于 2012-8-31 21:33:39

感谢

@辰雨@ · 发表于 2012-8-31 21:34:12

]感谢

[em01

绯炎朱雀 · 发表于 2012-11-17 20:25:08

向楼主学习，进步速度神速啊

lvrenfei · 发表于 2013-3-25 11:07:41

如何购买明经币

流_星 · 发表于 2013-4-13 19:22:40

太穷了没有明币啊

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