autocad粗糙度标注

shanghaizhang

很久不使用cad绘图了，也一直没有关注，结果这次用cad做工艺简图，发现粗糙度的标注还是比较麻烦，给大家分享一个autolsp程序吧，导入cad就可以使用

卢冬光

下载方法多么麻烦呀！不如下载一个CAD的数据库插件，里面有图框、标注、标准件、设计图形等。让设计速度提升的多。比如PPCAD是清华天河的，英科宇机械工程师等CAD插件很好用的。网上很好下载的。

lnly159357

二点:
. I1 \( u  A+ d% E0 `$ c9 d  _粗糙度值:12.5
7 Z6 S- W/ K: r$ H1 \# oinsert 输入块名或 [?]: c1
: d- F+ R9 q% Z8 q  G2 u  T, l"c1.dwg": 在搜索路径中未找到文件:
  D:\Documents\(当前目录)
9 H1 V  |, R% q  C:\Users\Administrator\appdata\roaming\autodesk\autocad 2016\r20.1\chs\support\
8 p( S4 o. ?, {5 Y# X  D:\program files(x82)\autodesk\autocad 2016\support\
  D:\program files(x82)\autodesk\autocad 2016\support\zh-cn\
" v, G$ z- j) F# R  D:\program files(x82)\autodesk\autocad 2016\fonts\
5 g: S) @. l1 A! u  D:\program files(x82)\autodesk\autocad 2016\help\
% L5 g( H& D' O4 u5 I, k  D:\program files(x82)\autodesk\autocad 2016\express\
" T+ Y7 b. t7 R, q, F' F7 }  D:\program files(x82)\autodesk\autocad 2016\support\color\
3 i& C9 t$ U# a; A; h  C:\program files (x86)\autodesk\applicationplugins\autodesk appmanager.bundle\contents\resources\
( b5 q: |8 l' T( e+ o. v3 s+ Z9 W8 z  C:\program files (x86)\autodesk\applicationplugins\autodesk appmanager.bundle\contents\windows\2016\
  C:\program files (x86)\autodesk\applicationplugins\autodesk featuredapps.bundle\contents\windows\2016\win64\
  C:\programdata\autodesk\applicationplugins\autocad2016addin.bundle\contents\win64\
  D:\program files(x82)\autodesk\autocad 2016\support\dimtool2004\
* E; g( l% ]% A6 m- f  C:\programdata\autodesk\applicationplugins\autodesk acperfmon.bundle\windows\
  C:\program files\
  C:\program files\风云cad助手v1.34\

& F; J3 R6 B% L3 ?  C:\Program Files\风云CAD助手V1.34\
* V8 i1 H$ j- ^! `2 C& p6 S/ j8 i  D:\Program Files(x82)\Autodesk\AutoCAD 2016\
*无效*
- o, m9 `* D* `- M' i  }0 vAutoCAD 变量设置被拒绝: "osmode" nil

fengxd

粗糙度标注还是习惯用块，用了插件后图纸给别人不显示

shanghaizhang

(defun c:ccd1( / p0 p1 a0 x0 y0 w1 w2 f1 r p2 len e1 e2)
(COMMAND "OSNAP" "NONE")
3 v- o4 A  `' B6 D3 _(COMMAND "OSNAP" "NEA")
(prompt "标注粗糙度")
+ k4 W4 |  E$ Q: `(prompt "\n请输入位置点...")
(setq p0 (getpoint  "\n基点:"))
5 W6 B8 h" ?1 i3 m* _8 A(setq p1 (getpoint p0 "\n第二点:"))
(setq a0 (getstring "\n粗糙度值:"))
(setq x0 (nth 0 p0) y0 (nth 1 p0) w1 (/ 180 3.1415926535897932384626) w2 (/ 3.1415926535897932384626 180))
+ x' t5 Q! M9 c9 c(setq f1 (angle p0 p1) f1 (* f1 w1))
2 S2 t3 s0 b* H. A(setq r (- f1 90) r (* r w2))
(if (or (and (> f1 0) (<= f1 30)) (and (> f1 180.5) (<= f1 210))) (prompt "\n*不能在这种角度标注*"))
* W& w/ X- [; _1 ~5 ~7 X(if (= a0 "12.5") (setq p2 (list (- x0 1.127) (+ y0 7.925))) (setq p2 (list (- x0 0.564) (+ y0 8.119))))
(setq len (distance p0 p2) e1 (angle p0 p2) e2 (+ e1 r))
/ n, Q; s7 i1 ~( h(setq p2 (list (+ x0 (* len (cos e2))) (+ y0 (* len (sin e2)))))
+ w, Y* D- o; A# V+ Z& x" S0 }5 y(cond ((and (> f1 30) (<= f1 180.5))
       (setq f2 (- f1 90))
       (command "insert" "c1" p0 1 1 f2 "")
7 V2 z# T* \+ c0 g7 r       (COMMAND "OSNAP" "NONE")
       (command "text" "m" p2 3.5 f2 a0 "")
       (command "redraw" "")
1 G, h+ X) y- y9 S+ v( |. V. R. u      )
/ |- F* R0 b( B' x: u) I9 ~% F  i      ((or (and (> f1 210) (< f1 360)) (= f1 0))
       (setq f2 (- f1 90) f3 (- f1 270))
4 I! R  U% a: q7 o9 s# w       (command "insert" "c1"  p0 1 1 f2 "")
+ r5 o9 j7 Q! Z0 p9 a2 ]: M       (COMMAND "OSNAP" "NONE""")
- R, |/ C- i- W1 x       (command "text" "m" p2 3.5 f3 a0 "")
9 e5 ^" C  k6 R       (command "redraw" "")
! t7 w, s2 y; E3 D! `6 h" t) f      )
))

唐昕晨

请检查源文件的代码程序，里面出现错误 ，还有你这个表面粗糙度符号，是否为国家标准的最新样式。

落日峰

都是高人的啊。

SXFZGQYX

见议采用CAD插件，里面都有粗糙度的标注，更方便。

張貴宏

感恩分享

凯思特

用不了