likeac 发表于 2011-6-18 09:25:12

基于组件的三维CAD系统开发的关键技术研究(三)

  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 (< n rows);绘水平线表格
  (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 (< n cols);绘垂直表格线
  (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 (< n rows)
  (setq m 0)
  (while (< m cols)
  (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 (= c "0") (
页: [1]
查看完整版本: 基于组件的三维CAD系统开发的关键技术研究(三)

中国磨床技术论坛
论 坛 声 明 郑重声明:本论坛属技术交流,非盈利性论坛。本论坛言论纯属发表者个人意见,与“中国磨削技术论坛”立场无关。 涉及政治言论一律删除,请所有会员注意.论坛资源由会员从网上收集整理所得,版权属于原作者. 论坛所有资源是进行学习和科研测试之用,请在下载后24小时删除, 本站出于学习和科研的目的进行交流和讨论,如有侵犯原作者的版权, 请来信告知,我们将立即做出整改,并给予相应的答复,谢谢合作!

中国磨削网