autocad粗糙度标注

shanghaizhang

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

卢冬光

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

lnly159357

二点:
粗糙度值:12.5
& M, `8 a( Z& B$ s& F: o) Zinsert 输入块名或 [?]: c1
"c1.dwg": 在搜索路径中未找到文件:
  D:\Documents\(当前目录)
: E0 I; Q, X9 f6 ^1 j2 @+ U7 C) S  C:\Users\Administrator\appdata\roaming\autodesk\autocad 2016\r20.1\chs\support\
* {& S3 }7 P! |) D) M" ]$ L  D:\program files(x82)\autodesk\autocad 2016\support\
- S7 u* b" b, _  Q0 n6 B3 L$ Z, O  D:\program files(x82)\autodesk\autocad 2016\support\zh-cn\
4 {1 R- |. \! A0 P7 M" U: ]  D:\program files(x82)\autodesk\autocad 2016\fonts\
  D:\program files(x82)\autodesk\autocad 2016\help\
6 q7 v8 p7 e( S  K: Q  D:\program files(x82)\autodesk\autocad 2016\express\
2 d7 ~& ]" Z8 m- Y$ N  D:\program files(x82)\autodesk\autocad 2016\support\color\
  C:\program files (x86)\autodesk\applicationplugins\autodesk appmanager.bundle\contents\resources\
  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\
3 `* n, e! m) V+ _/ ~7 l; f  C:\programdata\autodesk\applicationplugins\autocad2016addin.bundle\contents\win64\
  D:\program files(x82)\autodesk\autocad 2016\support\dimtool2004\
' e( Y+ }6 L# Z0 T0 d  C:\programdata\autodesk\applicationplugins\autodesk acperfmon.bundle\windows\
  C:\program files\
  C:\program files\风云cad助手v1.34\
' s' J; T* Q# `, V
  C:\Program Files\风云CAD助手V1.34\
  D:\Program Files(x82)\Autodesk\AutoCAD 2016\
*无效*
AutoCAD 变量设置被拒绝: "osmode" nil

fengxd

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

shanghaizhang

(defun c:ccd1( / p0 p1 a0 x0 y0 w1 w2 f1 r p2 len e1 e2)
# @5 N  q) P* C8 f% g9 e7 E0 [(COMMAND "OSNAP" "NONE")
/ n; X- k9 i4 [8 N1 C$ [% ](COMMAND "OSNAP" "NEA")
(prompt "标注粗糙度")
(prompt "\n请输入位置点...")
4 o1 J+ x( q: L  g. w(setq p0 (getpoint  "\n基点:"))
6 e" C5 Z1 N! c" r! t0 f0 u(setq p1 (getpoint p0 "\n第二点:"))
, h7 L( [+ Z: X(setq a0 (getstring "\n粗糙度值:"))
  J" k7 n/ s- U) V! ]. S(setq x0 (nth 0 p0) y0 (nth 1 p0) w1 (/ 180 3.1415926535897932384626) w2 (/ 3.1415926535897932384626 180))
. f, @" g' Q- R7 I" a+ C(setq f1 (angle p0 p1) f1 (* f1 w1))
+ H8 e( g& ~+ V6 Y* T/ p; J% I(setq r (- f1 90) r (* r w2))
4 y" y$ {4 |# q! N8 N0 [(if (or (and (> f1 0) (<= f1 30)) (and (> f1 180.5) (<= f1 210))) (prompt "\n*不能在这种角度标注*"))
, i0 i5 G$ S9 b8 c+ [/ B- K. C& ](if (= a0 "12.5") (setq p2 (list (- x0 1.127) (+ y0 7.925))) (setq p2 (list (- x0 0.564) (+ y0 8.119))))
" t; d. c: b5 j2 [(setq len (distance p0 p2) e1 (angle p0 p2) e2 (+ e1 r))
1 D* K+ P/ f* z1 s(setq p2 (list (+ x0 (* len (cos e2))) (+ y0 (* len (sin e2)))))
(cond ((and (> f1 30) (<= f1 180.5))
       (setq f2 (- f1 90))
& m- }: T9 ?3 b4 i" U: i       (command "insert" "c1" p0 1 1 f2 "")
+ x7 z3 s2 r% [5 H       (COMMAND "OSNAP" "NONE")
       (command "text" "m" p2 3.5 f2 a0 "")
" i( x  A" p5 m/ p       (command "redraw" "")
      )
      ((or (and (> f1 210) (< f1 360)) (= f1 0))
$ V3 I3 B5 v& ?$ S- z( q) a       (setq f2 (- f1 90) f3 (- f1 270))
* [0 `" j. n& i+ t* p       (command "insert" "c1"  p0 1 1 f2 "")
       (COMMAND "OSNAP" "NONE""")
       (command "text" "m" p2 3.5 f3 a0 "")
       (command "redraw" "")
8 h" C8 x3 c, h+ F: M4 q& a" ]      )
* g: }/ L) |. r))
0 y, @. \6 b' c% ^  Y

唐昕晨

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

落日峰

都是高人的啊。

SXFZGQYX

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

張貴宏

感恩分享

凯思特

用不了