轴承型号查询
轴承品牌
热卖轴承
当前位置:公司主页 》轴承知识 》基于组件的三维CAD系统开发的关键技术研究(三)
基于组件的三维CAD系统开发的关键技术研究(三)
作者:xingyang 时间:2010-12-02
轴承及轴承相关技术文章(轴承型号查询网提供) 关键字:轴承, 2 .3沿曲线标注 在设计中会遇到沿给定曲线进行标注问题,如平面布置图中的开挖线符号沿开挖轮廓的标注,剖面图中岩石符号沿轮廓线标注、点筋标注、沿任意曲线进行汉字标注等。此类问题主要应用AutoCAD的Measure或divide命令来解决。两个命令的主要差别是前者按指定的长度在曲线上标注,后者按给定的分段数等分曲线并在等分点处进行标注。要标注的轮廓曲线最好用pline线,要标注的符号预先做成图块,图块采用单位块,执行measure或divide命令,选取要标注的曲线,指定标注符号,分段长度或分段数即可完成标注,当发现标注的符号太密或太疏时,可以执行erase命令选择P进行删除,比例不合适或符号方向不正确,可以利用特性编辑器,选中所有标注符号,对标注符号的比例和旋转角度进行调整,直到满意为止。对于更高级的应用,可以编制LSP程序,实现符号和文字沿任意曲线标注。 2 .4表格生成 AutoCAD本身没有表格处理功能,设计图纸中工程量表、钢筋表等涉及到表格生成的问题可以采用以下方法处理: (1)直接把Word或Excel文件中的表格直接粘贴到CAD图形中,修改时只要双击图中的表格即可进入Word或Excel中进行编辑修改,修改完成后退出即可返回到AutoCAD中继续进行设计,该法优点是方便,快捷,易于掌握,可以充分利用Excel的强大计算功能。缺点是表格在AutoCAD中并不是一个普通图元,无法利用CAD功能对表格的字高、颜色和线宽进行编辑。 (2)编制LSP程序,依次输入表格标题、表格行数、表格列数、表格行高和列宽以及表格插入点等参数,可以自动生成表格,表格中已经按仿Excel形式填入了文字,可以用字处理软件对表格中文字进行编辑修改。 (defun C:mtab() (setq tb1 nil tb2 nil tb3 nil) (setq rows (getint "表格行数")) (setq cols (getint "表格列数")) (setq rowh (getreal "行高")) (setq colw (getreal "列宽")) (setq p1 (getpoint "/n表格左上角点位置:")) (command "pline" p1 "w" "0.5" "0.5" (setq p2 (list (+ (car p1) (* cols colw)) (cadr p1))) (setq p4 (list (car p2) (- (cadr p2) (* rows rowh)))) (setq p3 (list (car p1) (- (cadr p2) (* rows rowh)))) "C" ) (setq n 1) (while ( (command "pline" (list (car p1) (- (cadr p1) (* n rowh))) "w" "0" "0" (list (car p2) (- (cadr p2) (* rowh n))) "") (setq n (+ n 1)) ) (setq n 1) (while ( (command "pline" (list (+ (car p1) (* n colw)) (cadr p1)) "w" "0" "0" (list (+ (car p1) (* n colw)) (cadr p3)) "") (setq n (+ n 1)) ) (command "text" "m" (list (+ (car p1) (* 0.5 cols colw)) (+ (cadr p1) 5)) "3" "0" "TITLE" ) (setq n 0) (while ( (setq m 0) (while ( (cond (( ((>= m 26) (setq bzstr (strcat (chr (+ 64 (/ m 26))) (chr (+ 65 (- m (* 26 (/ m 26)))))))) ) (command "text" "m" (list (+ (car p1) (* 0.5 colw) (* m colw));表格内容标注 (- (cadr p1) (* 0.5 rowh) (* n rowh))) (getvar"TEXTSIZE") "0" (strcat bzstr (itoa (+ n 1)))) (setq m (+ m 1)) ) (setq n (+ n 1)) )) 2 .6高程小数位数处理 尺寸标注小数位数很容易调整,但诸如高程、表格中数字要调整则很困难,借助LSP程序的调整很方便,只要选取需要调整的数字,根据提示输入需要保留的小数位数,则程序自动对所有选种数字进行修改。 (defun entsgc() (setq n 0) (setq sh (sslength e1)) (while ( (if (= (fld 0 x) "TEXT") (progn (setq agc (fld 1 x)) (setq c (substr agc 1 1)) (if (or (= c "+") (= c "-") (and (>= c "0") ( (progn (if (or (= c "+") (= c "-")) (setq bgc (substr agc 2)) (setq bgc agc) ) (setq cgc (atof bgc)) (setq zh (rtos cgc 2 gcws)) (if (or (= c "+") (= c "-")) (setq zh (strcat c zh))) (setq x (subst (cons 1 zh) (assoc 1 x) x)) (entmod x) ) )) )) (setq n (+ n 1))) ) (defun c:yxws() (setq e1 (ssget)) (setvar "dimzin" 0) (setq gcws (getint "保留小数位数:")) (if e1 (entsgc) (print "/n not found")) (setq x nil) )