第四讲使用VisualLISP编制参数化绘图程序.pptVIP

第四讲 使用Visual LISP编制参数化绘图程序 4.1 机械CAD图形环境的设置 机械CAD图形环境包括图层、线型、比例、颜色、文字样式、 标注样式、图幅和标题栏等。使用Visual LISP可以通过程 序自动设置、调用。例如： 1）程序中设置图层、颜色、线型、线宽 图层除了默认的0层外，通常根据需要还要设置1、2、3等 多层，每层上分别赋予不同的颜色、线型或线宽。代码如下： (command “layer” “n” 1 “c” 7 1 “L” “continuous” 1 “lw” 0.4 1 “”) (command “layer” “n” 1 “n” 2 “n” 3 “c” 1 3 “c” 6 2 “c” 5 1 “”) (command “layer” “l” “center” 3 “l” “dashed” 2 “”) (command “layer” “s” 1 “”) (command “layer” “m” 2 “c” 1 2 “L” “center” 2 “”) (command “ltscale” 10) 2）程序中设置文字样式 工程图形文字样式通常推荐采用 “gbeitc.shx”、 “gbenor.shx”和“仿宋_GB2312”这三种样式， 程序中设置这些样式可编写代码如下： (command “style” “st1” “gbeitc.shx” “” 0.707 “” “” “”) (command “style” “st2” “gbenor.shx” 3.5 0.9 “” “” “”) (command “style” “st3” “仿宋_GB2312” 3.5 0.8 “” “” “”) 3）程序中设置标注样式 在AutoCAD中提供了默认的标注样式，譬如箭头尺寸、尺寸界线、文字样式和字高等等。但根据GB/T4458.8-2003《机械制图尺寸注法》中规定，这些默认值是不符合要求的，因此需要在制图时重新设定。除了手动设置外，在程序中也可以自动设置。Auto CAD系统内提供的设置参数如下： ( 1）文字方位控制参数： dimtoh(off), dimtih(off), dimtad(1) 分别控制文字的方位在延伸线外或内均与尺寸线一致 ( 3）标注样式设置实例 (command “dim” “dimtoh” “off” “dimtih” “off” “dimtad” “1” “exit”) 注：如果默认值相同，上述设置可取消。 (command “dim” “dimasz” 3.5 “dimexo” 1 “dimexe” 3 “dimtxt” 3.5 “exit”) (command “dim” “dimtxsty” “st1” “exit”) （注：文字样式”st1”必须存在，否则将出错） 4）环境设置程序实例 (defun c:hjsz () (command layer n 1 n 2 n 3 c 1 1 c 6 2 c 5 3 l center 1 ) (command ltscale 10) (command style st1 gbeitc.shx,gbcbig.shx 3.5 0.8 ) (command style st2 gbenor.shx,gbcbig.shx 3.5 0.8 ) (command style st3 仿宋_GB2312 4 0.8 ) (command dim dimtih off dimtoh off dimtad 2 dimtxt 3.5 dimasz 3.5 dimexe 3 dimexo 1 dimtxsty st1 exit) );end 4.2 参数化绘图实例程序 实例1：绘制一个同心的圆多边形，要求以多边形边数n、圆半径r、多边形内接圆或外切圆方式flag为变参数绘制图形。 程序调用：（ydbx 6 40 “I”) 绘出图形如a) 程序调用：（ydbx 8 40 “c”) 绘出图形如b) 实例2.根据输入的上底、下底长和高度绘制 等腰梯形. (defun dytx (sd xd gd) (setq bp (getpoint \nEnter base point:)) (command ucs o bp) (setq p1 (list (* 0.5 (- xd sd)) gd) p2 (polar p1 0 sd) p3 (list xd 0))