autocad粗糙度标注

shanghaizhang

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

卢冬光

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

lnly159357

二点:
, F% |  x/ S: O6 {粗糙度值:12.5
insert 输入块名或 [?]: c1
"c1.dwg": 在搜索路径中未找到文件:
  D:\Documents\(当前目录)
  C:\Users\Administrator\appdata\roaming\autodesk\autocad 2016\r20.1\chs\support\
6 f. r$ \) H9 \3 b, G+ K  D:\program files(x82)\autodesk\autocad 2016\support\
, b/ ^1 i2 M  ?$ D) n  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\
1 @: g9 q" i; l5 c- Z  o: s3 o  D:\program files(x82)\autodesk\autocad 2016\express\
* e1 i0 L% g" \0 w  D:\program files(x82)\autodesk\autocad 2016\support\color\
  C:\program files (x86)\autodesk\applicationplugins\autodesk appmanager.bundle\contents\resources\
! @8 \% w. T7 u4 J* N* z  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\
' M; j4 z! g; u0 S  C:\programdata\autodesk\applicationplugins\autocad2016addin.bundle\contents\win64\
  D:\program files(x82)\autodesk\autocad 2016\support\dimtool2004\
  C:\programdata\autodesk\applicationplugins\autodesk acperfmon.bundle\windows\
$ }  b! c( }  Q+ {  C:\program files\
! V; S5 Q) C, u# m  C:\program files\风云cad助手v1.34\
# y+ V/ Q) V4 h; K7 o
  C:\Program Files\风云CAD助手V1.34\
  J: x1 [, Z& L  B, n  D:\Program Files(x82)\Autodesk\AutoCAD 2016\
& X5 \/ O/ @" ^' X*无效*
6 @# L( I7 ^& Z! bAutoCAD 变量设置被拒绝: "osmode" nil

fengxd

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

shanghaizhang

(defun c:ccd1( / p0 p1 a0 x0 y0 w1 w2 f1 r p2 len e1 e2)
( p9 u+ v, C9 l: B8 R(COMMAND "OSNAP" "NONE")
. S$ Z# x% v2 d* `& B* Z2 m8 `$ k(COMMAND "OSNAP" "NEA")
  V+ R8 t& c3 Y4 u$ I4 h(prompt "标注粗糙度")
(prompt "\n请输入位置点...")
# r  G& {( a- i5 e* v' a. @3 i(setq p0 (getpoint  "\n基点:"))
(setq p1 (getpoint p0 "\n第二点:"))
6 k$ t& p; N; I% s7 v% o# ~& M7 }(setq a0 (getstring "\n粗糙度值:"))
; w$ b& a) Q  F  m1 T(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))
(setq r (- f1 90) r (* r w2))
6 f! n3 U; Z- t4 O0 |/ y(if (or (and (> f1 0) (<= f1 30)) (and (> f1 180.5) (<= f1 210))) (prompt "\n*不能在这种角度标注*"))
2 ]3 Z5 ]0 m& J' @. d/ K9 w(if (= a0 "12.5") (setq p2 (list (- x0 1.127) (+ y0 7.925))) (setq p2 (list (- x0 0.564) (+ y0 8.119))))
' i; O  o0 Y& J(setq len (distance p0 p2) e1 (angle p0 p2) e2 (+ e1 r))
% Q* g* x, |' p" g- h( X(setq p2 (list (+ x0 (* len (cos e2))) (+ y0 (* len (sin e2)))))
(cond ((and (> f1 30) (<= f1 180.5))
       (setq f2 (- f1 90))
       (command "insert" "c1" p0 1 1 f2 "")
       (COMMAND "OSNAP" "NONE")
( v- r: J; j3 J0 J2 E/ X* i$ T% j       (command "text" "m" p2 3.5 f2 a0 "")
" Q6 h" k7 e9 V6 c* Y& m; n       (command "redraw" "")
      )
      ((or (and (> f1 210) (< f1 360)) (= f1 0))
$ j. _. a- C6 r$ o/ q$ x0 Q- L! @       (setq f2 (- f1 90) f3 (- f1 270))
- j6 a, Z3 N9 [       (command "insert" "c1"  p0 1 1 f2 "")
       (COMMAND "OSNAP" "NONE""")
       (command "text" "m" p2 3.5 f3 a0 "")
4 C8 t1 ?( f5 ^/ u" o* W       (command "redraw" "")
      )
))
& K6 @( b- r- A. }1 a% ^/ k

唐昕晨

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

落日峰

都是高人的啊。

SXFZGQYX

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

張貴宏

感恩分享

凯思特

用不了