autocad粗糙度标注

shanghaizhang

很久不使用cad绘图了，也一直没有关注，结果这次用cad做工艺简图，发现粗糙度的标注还是比较麻烦，给大家分享一个autolsp程序吧，导入cad就可以使用
8 T& T) I. `- S2 C3 p3 q
% m% t, B; ~* z

卢冬光

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

lnly159357

二点:
粗糙度值:12.5
insert 输入块名或 [?]: c1
"c1.dwg": 在搜索路径中未找到文件:
+ f( U* [, Y$ a% I+ R9 W  D:\Documents\(当前目录)
  C:\Users\Administrator\appdata\roaming\autodesk\autocad 2016\r20.1\chs\support\
* m5 f4 V4 d' z9 g. \1 N  D:\program files(x82)\autodesk\autocad 2016\support\
  D:\program files(x82)\autodesk\autocad 2016\support\zh-cn\
  D:\program files(x82)\autodesk\autocad 2016\fonts\
  D:\program files(x82)\autodesk\autocad 2016\help\
2 ~% p; r/ K# g8 l  D:\program files(x82)\autodesk\autocad 2016\express\
  P5 {& T8 o" B; x' E4 a! ?  D:\program files(x82)\autodesk\autocad 2016\support\color\
  C:\program files (x86)\autodesk\applicationplugins\autodesk appmanager.bundle\contents\resources\
/ `' H- w: s6 b% q  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\
2 Q9 h4 ~/ t0 E& ^0 ?  C:\programdata\autodesk\applicationplugins\autocad2016addin.bundle\contents\win64\
2 ~: F/ l' [, h  K# g1 r0 V  D:\program files(x82)\autodesk\autocad 2016\support\dimtool2004\
  C:\programdata\autodesk\applicationplugins\autodesk acperfmon.bundle\windows\
  C:\program files\
' R2 O# i* H' S0 C+ P  C:\program files\风云cad助手v1.34\
" ~0 `  C/ g1 K7 Z$ q$ G+ b8 P
  C:\Program Files\风云CAD助手V1.34\
: K, f5 t5 s; j' E6 z  y5 ?  D:\Program Files(x82)\Autodesk\AutoCAD 2016\
- q$ o) |. g* E1 H! h  d*无效*
3 Z" u! z2 W2 X( [1 ZAutoCAD 变量设置被拒绝: "osmode" nil

fengxd

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

shanghaizhang

(defun c:ccd1( / p0 p1 a0 x0 y0 w1 w2 f1 r p2 len e1 e2)
(COMMAND "OSNAP" "NONE")
* N' S* S  f3 v% _( y! R(COMMAND "OSNAP" "NEA")
4 t1 V$ G* M, ?. i4 d(prompt "标注粗糙度")
(prompt "\n请输入位置点...")
(setq p0 (getpoint  "\n基点:"))
* F9 l% ]8 P) m5 o# U! d# Q(setq p1 (getpoint p0 "\n第二点:"))
: N4 I" B+ H/ x6 j9 d(setq a0 (getstring "\n粗糙度值:"))
0 d% I! l# P! g  W, e7 E9 \(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))
" X$ u1 T) F# C( r' U(setq r (- f1 90) r (* r w2))
1 N( T6 b- r5 g* W(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))))
) K& g2 f; @3 j9 Z5 h(setq len (distance p0 p2) e1 (angle p0 p2) e2 (+ e1 r))
(setq p2 (list (+ x0 (* len (cos e2))) (+ y0 (* len (sin e2)))))
(cond ((and (> f1 30) (<= f1 180.5))
7 n. I8 m6 g$ O6 W8 r3 }       (setq f2 (- f1 90))
       (command "insert" "c1" p0 1 1 f2 "")
. A2 Y$ ~+ H; e# ~# f# q7 g! {       (COMMAND "OSNAP" "NONE")
) F9 q  x5 m0 h) S# |. H9 V       (command "text" "m" p2 3.5 f2 a0 "")
       (command "redraw" "")
8 w% Z; \# m3 \1 D" Z      )
7 c& M* ?5 v4 S1 s      ((or (and (> f1 210) (< f1 360)) (= f1 0))
4 ~- ~" C8 Q7 V/ i6 `7 @) B       (setq f2 (- f1 90) f3 (- f1 270))
( Z3 M7 W# b0 M) V       (command "insert" "c1"  p0 1 1 f2 "")
       (COMMAND "OSNAP" "NONE""")
, Z, h' b% K6 f' S       (command "text" "m" p2 3.5 f3 a0 "")
       (command "redraw" "")
% b. ?: l& p4 [' v& T2 z9 T, M      )
/ t! q+ \$ `% p2 q))

唐昕晨

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

落日峰

都是高人的啊。

SXFZGQYX

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

張貴宏

感恩分享

凯思特

用不了