autocad粗糙度标注

shanghaizhang

很久不使用cad绘图了，也一直没有关注，结果这次用cad做工艺简图，发现粗糙度的标注还是比较麻烦，给大家分享一个autolsp程序吧，导入cad就可以使用
( @: H7 m7 S5 g0 }* ^: }
' U) p- x, K6 M% g5 h" X" g

卢冬光

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

lnly159357

二点:
: E1 Q' Z9 X8 P8 N粗糙度值:12.5
5 h  N5 ]1 B3 d) hinsert 输入块名或 [?]: c1
5 r0 l: d9 X/ P"c1.dwg": 在搜索路径中未找到文件:
  D:\Documents\(当前目录)
  C:\Users\Administrator\appdata\roaming\autodesk\autocad 2016\r20.1\chs\support\
3 j; t) W0 J2 _' h  D:\program files(x82)\autodesk\autocad 2016\support\
4 q5 U4 g" v! }7 ]2 i  D:\program files(x82)\autodesk\autocad 2016\support\zh-cn\
  D:\program files(x82)\autodesk\autocad 2016\fonts\
0 w3 E% S& h1 w& F4 I  D:\program files(x82)\autodesk\autocad 2016\help\
  D:\program files(x82)\autodesk\autocad 2016\express\
  D:\program files(x82)\autodesk\autocad 2016\support\color\
) X: d" s, P, C7 b1 e  C:\program files (x86)\autodesk\applicationplugins\autodesk appmanager.bundle\contents\resources\
, G. z) o1 U' U- L  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\
+ I& G3 `2 N% u- c  C:\programdata\autodesk\applicationplugins\autocad2016addin.bundle\contents\win64\
  D:\program files(x82)\autodesk\autocad 2016\support\dimtool2004\
9 O* ^2 _7 K9 ]9 U/ P  C:\programdata\autodesk\applicationplugins\autodesk acperfmon.bundle\windows\
, G3 [1 X  Q: V: f  d  C:\program files\
' z% a3 c5 e5 n- S1 y; D  C:\program files\风云cad助手v1.34\

  C:\Program Files\风云CAD助手V1.34\
  D:\Program Files(x82)\Autodesk\AutoCAD 2016\
2 d/ b9 _7 |1 B% |1 t% |( `*无效*
, t" s5 @# k1 RAutoCAD 变量设置被拒绝: "osmode" nil

fengxd

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

shanghaizhang

(defun c:ccd1( / p0 p1 a0 x0 y0 w1 w2 f1 r p2 len e1 e2)
/ n1 b/ ?+ S* Y) e(COMMAND "OSNAP" "NONE")
(COMMAND "OSNAP" "NEA")
(prompt "标注粗糙度")
(prompt "\n请输入位置点...")
4 @) X' o: [& K% r(setq p0 (getpoint  "\n基点:"))
1 ]% p' A3 z: i% T$ E5 u(setq p1 (getpoint p0 "\n第二点:"))
+ A/ ^5 T" q$ D(setq a0 (getstring "\n粗糙度值:"))
(setq x0 (nth 0 p0) y0 (nth 1 p0) w1 (/ 180 3.1415926535897932384626) w2 (/ 3.1415926535897932384626 180))
(setq f1 (angle p0 p1) f1 (* f1 w1))
0 l, q6 v8 |$ K; a(setq r (- f1 90) r (* r w2))
(if (or (and (> f1 0) (<= f1 30)) (and (> f1 180.5) (<= f1 210))) (prompt "\n*不能在这种角度标注*"))
(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))
(setq p2 (list (+ x0 (* len (cos e2))) (+ y0 (* len (sin e2)))))
: ^, ]. v4 n( d; x+ T(cond ((and (> f1 30) (<= f1 180.5))
3 d6 S  L& C) m1 Y       (setq f2 (- f1 90))
       (command "insert" "c1" p0 1 1 f2 "")
       (COMMAND "OSNAP" "NONE")
% Q# j) D: I$ F       (command "text" "m" p2 3.5 f2 a0 "")
/ k% X; L5 I+ Q       (command "redraw" "")
      )
, X- ~/ o% T( Z( f      ((or (and (> f1 210) (< f1 360)) (= f1 0))
6 S* d; S( j# u3 A" q       (setq f2 (- f1 90) f3 (- f1 270))
       (command "insert" "c1"  p0 1 1 f2 "")
/ r" m5 r; f7 p! O4 H9 M$ l" a       (COMMAND "OSNAP" "NONE""")
' ~, j2 W) Q  h- p: N3 ]       (command "text" "m" p2 3.5 f3 a0 "")
       (command "redraw" "")
# b5 q& M1 e" s, ?6 _! _- l      )
))
/ g0 P0 T$ _- v/ U' H

唐昕晨

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

落日峰

都是高人的啊。

SXFZGQYX

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

張貴宏

感恩分享

凯思特

用不了