autocad粗糙度标注

shanghaizhang

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

卢冬光

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

lnly159357

二点:
粗糙度值:12.5
$ |2 h% A9 g4 q0 Binsert 输入块名或 [?]: c1
/ D" l+ a8 z( `$ I: @3 Z' m3 d2 s"c1.dwg": 在搜索路径中未找到文件:
4 X1 c* ?! n% e) T" @  D:\Documents\(当前目录)
  C:\Users\Administrator\appdata\roaming\autodesk\autocad 2016\r20.1\chs\support\
( T' j  v& M: @4 z9 ^3 K6 O  D:\program files(x82)\autodesk\autocad 2016\support\
2 k  e3 o# H! v) Y' M; ^$ p/ a9 e  D:\program files(x82)\autodesk\autocad 2016\support\zh-cn\
* g1 C6 b5 n6 ]( A/ J6 P& P) p; K  D:\program files(x82)\autodesk\autocad 2016\fonts\
  D:\program files(x82)\autodesk\autocad 2016\help\
$ z+ O& E/ k: Z* B  D:\program files(x82)\autodesk\autocad 2016\express\
0 X% ?% O; F5 P" @4 b+ r5 Q3 U6 \  D:\program files(x82)\autodesk\autocad 2016\support\color\
" W2 [$ ~( m/ C5 v( b: a' V! s( G  C:\program files (x86)\autodesk\applicationplugins\autodesk appmanager.bundle\contents\resources\
: G' Z5 ]& Z! Q: {% R  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\
  H$ A* @+ D: U, E) o  C:\programdata\autodesk\applicationplugins\autocad2016addin.bundle\contents\win64\
  D:\program files(x82)\autodesk\autocad 2016\support\dimtool2004\
- f( B. u6 e% _1 R8 w( |9 \; o! m  C:\programdata\autodesk\applicationplugins\autodesk acperfmon.bundle\windows\
  C:\program files\
+ M' m" P$ H" \( `  C:\program files\风云cad助手v1.34\
- d* B0 T9 r  e2 Z3 l) U! y
  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)
(COMMAND "OSNAP" "NONE")
( o8 G) Z: ~, F; K(COMMAND "OSNAP" "NEA")
& t& V" i# V2 D(prompt "标注粗糙度")
(prompt "\n请输入位置点...")
5 Y- h& S/ \6 h% C) E" i$ k6 C(setq p0 (getpoint  "\n基点:"))
, R) f/ C! p. K/ ?+ G" l' f(setq p1 (getpoint p0 "\n第二点:"))
0 k5 t9 r) C, }% X- S2 X# z2 H" o' D(setq a0 (getstring "\n粗糙度值:"))
# c0 Z9 O4 A) c  y# g+ Z  ?- U(setq x0 (nth 0 p0) y0 (nth 1 p0) w1 (/ 180 3.1415926535897932384626) w2 (/ 3.1415926535897932384626 180))
, ^! i% g0 s5 T- P- c(setq f1 (angle p0 p1) f1 (* f1 w1))
(setq r (- f1 90) r (* r w2))
(if (or (and (> f1 0) (<= f1 30)) (and (> f1 180.5) (<= f1 210))) (prompt "\n*不能在这种角度标注*"))
4 v% I, q0 n3 g0 r) }2 V, 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)))))
! f" x2 K/ ?! Q) Y0 U9 f(cond ((and (> f1 30) (<= f1 180.5))
       (setq f2 (- f1 90))
) ?9 }4 j4 I# ^* d( V. u0 ^       (command "insert" "c1" p0 1 1 f2 "")
2 {: d+ H/ h: h) p6 _       (COMMAND "OSNAP" "NONE")
       (command "text" "m" p2 3.5 f2 a0 "")
       (command "redraw" "")
% F+ `6 G( W% w) Y- K. y      )
      ((or (and (> f1 210) (< f1 360)) (= f1 0))
0 N  S- O! i  P: @3 L       (setq f2 (- f1 90) f3 (- f1 270))
" H: q0 J0 B& L& E) @. m/ D9 n, k0 L       (command "insert" "c1"  p0 1 1 f2 "")
       (COMMAND "OSNAP" "NONE""")
       (command "text" "m" p2 3.5 f3 a0 "")
       (command "redraw" "")
      )
% r1 ?0 V  e4 e" ~! a, P! O: W))
' b& T" w" k# Q% Z- m

唐昕晨

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

落日峰

都是高人的啊。

SXFZGQYX

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

張貴宏

感恩分享

凯思特

用不了