在AutoCAD中基于LISP程序简易标注粗糙度.docVIP

在AutoCAD中基于AutoLISP程序简易标注粗糙度 陕西关中工具制造有限公司 （陕西凤翔 721400）张科岐 王建卫 对经常使用AutoCAD绘制二维机械图的用户来说，标注表面粗糙度是一件烦琐的事情。常用的方法是先画好粗糙度的符号，再将粗糙度值定义为属性，最后将符号和粗糙度定义为块。标注时插入这个块，按提示输入粗糙度值。(defun rad-deg(rad) (/ (* rad 180.0) pi) ) (defun Deg-Rad(Deg) (* pi (/ Deg 180.0)) ) (defun rgh() (setvar CMDECHO 1) (setq svar_old (getvar osmode )) (setq svar_new 0) (setvar osmode svar_new) (setq pos_pt (getpoint\n标注位置:)) (setq sym_dir (getpoint\n符号方向:)) (setq sym_hgt (getreal\n符号高度5:)) (setq txt (getstring\n数值大小3.2:)) (if (= txt ) (setq txt 3.2) ) (setq txt_hgt(getreal\n字符高度2.5:)) (if (= txt_hgt nil) (setq txt_hgt 2.5) ) (if (= sym_hgt nil) (setq sym_hgt 5.0) ) (setq sym_lgt (/ sym_hgt (cos (/ pi 6.0)))) (setq sym_angle (angle pos_pt sym_dir)) (setq sym_pt1 (polar pos_pt (+ (/ pi 3.0) sym_angle) (* 0.5 sym_lgt))) (setq sym_pt2 (polar pos_pt (+ (/ pi 3.0) sym_angle) sym_lgt)) (setq sym_pt3 (polar pos_pt (+ (/ (* 2 pi) 3.0) sym_angle) (* 0.5 sym_lgt))) (setq txt_pt1 (polar pos_pt (+ (/ (* 2 pi) 3.0) sym_angle) (/ (+ (* 0.5 (+ sym_hgt txt_hgt)) 1.0) (cos (/ pi 6.0)) ) ) ) (setq sym_ptx1 (car sym_pt3 )) (setq sym_ptx2 (car pos_pt )) (setq sym_ptx3 (car sym_pt1 )) (setq sym_pty1 (cadr sym_pt3)) (setq sym_pty2 (cadr pos_pt)) (setq sym_pty3 (cadr sym_pt1)) (setq sym_cen (list (/ (+ sym_ptx1 sym_ptx2 sym_ptx3) 3.0) (/ (+ sym_pty1 sym_pty2 sym_pty3) 3.0) ) ) (setq sym_rad (* (/ (sqrt 3.0) 6.0) sym_lgt 0.5) ) (setq txt_pt2 (polar pos_pt (+ (/ pi 3.0) sym_angle) (/ (+ (* 0.5 (+ sym_hgt txt_hgt)) 1.0) (cos (/ pi 6.0)) ) ) ) (setq txt_dist1 (distance txt_pt1 txt_pt2)) (setq txt_dist2 (* txt_hgt (strlen txt))) (setq txt_scale (/ (- txt_dist1 1.0) txt_dist2)) (setq txt_xpt1 (car txt_pt1)) (setq txt_ypt1 (cadr txt_pt1)) (setq txt_x