autocad粗糙度标注

shanghaizhang

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

卢冬光

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

lnly159357

二点:
2 {5 K0 s$ Y$ l. j4 u0 Z: ?粗糙度值:12.5
1 ?2 l' ^  g, P/ o0 G0 ?insert 输入块名或 [?]: c1
8 S  D5 E+ M: Y; M- t5 b1 _2 ?3 m"c1.dwg": 在搜索路径中未找到文件:
: E7 z0 l3 ]2 s& o$ y: [2 y2 j  D:\Documents\(当前目录)
4 B' U* y$ `6 y8 l5 _  C:\Users\Administrator\appdata\roaming\autodesk\autocad 2016\r20.1\chs\support\
  D:\program files(x82)\autodesk\autocad 2016\support\
  D:\program files(x82)\autodesk\autocad 2016\support\zh-cn\
. ^2 e) s) s) u9 c/ Y- a; ^, c  D:\program files(x82)\autodesk\autocad 2016\fonts\
/ _* z" u3 r% b4 ?) ?: }/ f' ^  D:\program files(x82)\autodesk\autocad 2016\help\
: u# t! o* K1 D: Y3 d  D:\program files(x82)\autodesk\autocad 2016\express\
  D:\program files(x82)\autodesk\autocad 2016\support\color\
% T: O' j/ b1 o, e+ p  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\
  D:\program files(x82)\autodesk\autocad 2016\support\dimtool2004\
+ \. H% b$ y5 ^" i! h8 h/ W  C:\programdata\autodesk\applicationplugins\autodesk acperfmon.bundle\windows\
  C:\program files\
4 g" R5 m5 p9 l' f$ e9 T  C:\program files\风云cad助手v1.34\

  C:\Program Files\风云CAD助手V1.34\
$ J; S$ [. m9 d  D:\Program Files(x82)\Autodesk\AutoCAD 2016\
- e# _' u  p1 K& h*无效*
AutoCAD 变量设置被拒绝: "osmode" nil

fengxd

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

shanghaizhang

(defun c:ccd1( / p0 p1 a0 x0 y0 w1 w2 f1 r p2 len e1 e2)
- M0 z$ [3 ?9 ?5 u6 @) \- B+ R(COMMAND "OSNAP" "NONE")
(COMMAND "OSNAP" "NEA")
$ i' k  g7 Z! Z3 ^- S(prompt "标注粗糙度")
: p" f/ b; x0 I2 x1 U(prompt "\n请输入位置点...")
- v1 A8 f0 ^3 x(setq p0 (getpoint  "\n基点:"))
(setq p1 (getpoint p0 "\n第二点:"))
(setq a0 (getstring "\n粗糙度值:"))
9 [& G3 M7 G' z  Q  C. X0 p' o(setq x0 (nth 0 p0) y0 (nth 1 p0) w1 (/ 180 3.1415926535897932384626) w2 (/ 3.1415926535897932384626 180))
& c! [1 I# n: i0 k" a7 j(setq f1 (angle p0 p1) f1 (* f1 w1))
(setq r (- f1 90) r (* r w2))
8 E* m3 }! q( _0 b* \* J* `0 m1 z/ g0 p2 E(if (or (and (> f1 0) (<= f1 30)) (and (> f1 180.5) (<= f1 210))) (prompt "\n*不能在这种角度标注*"))
, y' M6 U( F- o8 p: e# p' Z& V(if (= a0 "12.5") (setq p2 (list (- x0 1.127) (+ y0 7.925))) (setq p2 (list (- x0 0.564) (+ y0 8.119))))
  J$ `1 y" a& ]0 m0 M(setq len (distance p0 p2) e1 (angle p0 p2) e2 (+ e1 r))
2 S# Z% a" ?" v3 l' ^9 Z/ k6 \/ P(setq p2 (list (+ x0 (* len (cos e2))) (+ y0 (* len (sin e2)))))
% @8 v9 n- ?8 ~; y(cond ((and (> f1 30) (<= f1 180.5))
       (setq f2 (- f1 90))
; F& G, S% Y9 D       (command "insert" "c1" p0 1 1 f2 "")
       (COMMAND "OSNAP" "NONE")
       (command "text" "m" p2 3.5 f2 a0 "")
% A$ ?2 W  K2 S; R       (command "redraw" "")
      )
      ((or (and (> f1 210) (< f1 360)) (= f1 0))
- [$ a3 [  u" ~) \# Z       (setq f2 (- f1 90) f3 (- f1 270))
6 c! n% B9 v5 l       (command "insert" "c1"  p0 1 1 f2 "")
% g  S2 U1 U  ^       (COMMAND "OSNAP" "NONE""")
       (command "text" "m" p2 3.5 f3 a0 "")
       (command "redraw" "")
; a9 P9 s: ^6 q- Y# ~      )
))
  ?6 N8 u0 O% y! k% N1 `

唐昕晨

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

落日峰

都是高人的啊。

SXFZGQYX

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

張貴宏

感恩分享

凯思特

用不了