autocad粗糙度标注

shanghaizhang

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

) ?% O" c, K% o- N/ O* g

卢冬光

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

lnly159357

二点:
) E7 G( v. ?: y. V% Z* s1 P- F粗糙度值:12.5
5 v0 m" y9 |) linsert 输入块名或 [?]: c1
* s) ]! b, `. M; n7 a8 n7 E2 f"c1.dwg": 在搜索路径中未找到文件:
  D:\Documents\(当前目录)
  C:\Users\Administrator\appdata\roaming\autodesk\autocad 2016\r20.1\chs\support\
. e/ E9 k' w1 ~6 s. @$ G  D:\program files(x82)\autodesk\autocad 2016\support\
  D:\program files(x82)\autodesk\autocad 2016\support\zh-cn\
' r( T) V- U- ~  D:\program files(x82)\autodesk\autocad 2016\fonts\
: L) j# G) c3 h- J  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\
  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\
  C:\programdata\autodesk\applicationplugins\autocad2016addin.bundle\contents\win64\
# A  s& Y! k. a, |2 Y& ^4 m  D:\program files(x82)\autodesk\autocad 2016\support\dimtool2004\
( l3 s+ u& J/ L9 x5 h  M6 ?  C:\programdata\autodesk\applicationplugins\autodesk acperfmon.bundle\windows\
" H$ \/ D/ T# g1 N  U  C:\program files\
( s6 ^- N: H+ K/ U- [! a1 p  C:\program files\风云cad助手v1.34\
; c% ]) A# ^: h
, p( _* A% o8 ^9 y- I  C:\Program Files\风云CAD助手V1.34\
  D:\Program Files(x82)\Autodesk\AutoCAD 2016\
*无效*
; v$ n5 @# N1 s) _: eAutoCAD 变量设置被拒绝: "osmode" nil

fengxd

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

shanghaizhang

(defun c:ccd1( / p0 p1 a0 x0 y0 w1 w2 f1 r p2 len e1 e2)
" T; Y( r6 f$ K8 i3 A% E(COMMAND "OSNAP" "NONE")
' O) I7 L; f6 ](COMMAND "OSNAP" "NEA")
* `9 f7 R. T! y5 @; R4 _4 L+ d! x% v(prompt "标注粗糙度")
+ N1 [. E9 v" x9 n(prompt "\n请输入位置点...")
(setq p0 (getpoint  "\n基点:"))
- g0 m+ ]8 o+ \" j(setq p1 (getpoint p0 "\n第二点:"))
(setq a0 (getstring "\n粗糙度值:"))
* B7 I6 |: O8 g: E  I: R6 z9 Q0 v(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))
: Q6 X5 ~( x' c, Q0 Q: u(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))))
5 m% T% x; W: n( x; O(setq len (distance p0 p2) e1 (angle p0 p2) e2 (+ e1 r))
/ n; K' z1 o7 b. b0 r(setq p2 (list (+ x0 (* len (cos e2))) (+ y0 (* len (sin e2)))))
0 b4 [) d. @' [- C- T(cond ((and (> f1 30) (<= f1 180.5))
       (setq f2 (- f1 90))
       (command "insert" "c1" p0 1 1 f2 "")
       (COMMAND "OSNAP" "NONE")
' B* N* d( \6 N/ d- j5 W% G$ P( c( q       (command "text" "m" p2 3.5 f2 a0 "")
$ C$ p- B3 _- _2 \3 m; m# A& t6 h       (command "redraw" "")
      )
) ?8 b/ l& O' c& ]: E/ Q2 X( \      ((or (and (> f1 210) (< f1 360)) (= f1 0))
       (setq f2 (- f1 90) f3 (- f1 270))
       (command "insert" "c1"  p0 1 1 f2 "")
       (COMMAND "OSNAP" "NONE""")
       (command "text" "m" p2 3.5 f3 a0 "")
; s8 p: {& G% S* }: j4 f7 a       (command "redraw" "")
7 Z! x5 v: Y9 ]0 [      )
))

唐昕晨

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

落日峰

都是高人的啊。

SXFZGQYX

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

張貴宏

感恩分享

凯思特

用不了