编程实例清华CAD二次开发LISP.ppt

《编程实例清华CAD二次开发LISP.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第8章编程实例8.1设置作图环境编程作图和交互作图一样，也需要设置作图的环境，例如图纸的范围、绘图的单位、目标捕捉的类型、图层、颜色、线型、线宽、字样等，如果缺少对作图环境的设置，只能是利用加载程序时AutoCAD提供的默认环境。设置一个合适的作图环境不仅可以提高作图的精度和效率，有时还会影响到所绘制的图纸是否符合企业的规范和满足生产的需要。用程序实现设置作图环境的功能可以通过command函数调用相关的命令，或者通过setvar函数改变相应系统变量的当前值或当前状态。有些功能只能通过上述一种途径实现，有些功能可以通过上述两种途径实现。1.设置图纸的范围例如设置A3图纸的作图范

2、围（1）通过command函数设置图纸的范围(command"limits""0,0""420,297")或者(command"limits"'(00)'(420297))或者(command"limits"(list00)(list420297))这时p1、p2分别是作图范围的左下和右上角点，上式可改写为：(command"limits"p1p2)0,0420,297（2）通过setvar函数设置图纸的范围系统变量limmin和limmax分别对应于图纸的左下和右上角点，只需用setvar函数设置它们以新的值即可。(setvar"limmin"'(00))或者(setvar"

3、limmin"(list00))或者(setvar"limmin""0,0")或者(setvar"limmin"p1)设置图纸的右上角点的表达式如下：(setvar"limmax"'(420297))或者(setvar"limmax"(list420297))或者(setvar"limmax""420,297")或者(setvar"limmax"p2)2.设置绘图的长度和角度单位例如将绘图的长度单位设置为十进制、3位小数，角度单位设置为十进制的度（）十进制、2位小数、X轴正方向为0、逆时针方向为正。（1）通过command函数设置绘图的长度和角度单位(command"uni

4、ts"23120"N")command的参数说明如下：units：AutoCAD设置绘图单位的命令；2：长度单位为十进制；3：3位小数；1：角度单位为十进制的度；2：2位小数；0：X轴正方向为0；N：非顺时针，即逆时针为正。（2）通过setvar函数设置设置绘图的长度和角度单位(setvar"lunits"2)；长度单位为十进制(setvar"luprec"3)；长度单位3位小数(setvar"aunits"1)；角度单位为十进制的度(setvar"auprec"2)；角度单位为长2位小数(setvar"angbase"0.0)；X轴正方向为0(setvar"angdir"

5、0)；逆时针方向为正3.设置目标捕捉的类型交互操作时，目标捕捉类型的选项是字符串，它以编码的形式记录在系统变量osmode内，代码的具体含义是：0：NONe（不标捕捉任何类型的对象）1：ENDpoint（线段和圆弧的端点）2：MIDpoint（线段和圆弧的中点）4：CENter（圆、椭圆和圆弧的中心点）ENDpointMIDpointCENter8：NODe（结点，用point命令生成的点）16：QUAdrant（圆和圆弧的象限点）32：INTersection（线段和圆弧的交点）NODeQUAdrantINTersection64：INSertion（图块或字符串的插入点）1

6、28：PERpendicular（垂足）INSertionPERpendicular256：TANgent（切点）512：NEArest（对象上的最近点）1024：QUIck（快速捕捉）2048：APParentIntersection（在观察方向上相交的点）4096：EXTension（延长线上的点）8192：PARallel（与所选对象平行的点）TANgentAPParentIntersectionEXTensionPARallel（1）通过command函数设置设置目标捕捉的类型(command"osnap""endpoint,midpoint,center")；捕捉端点

7、、中点和中心(command"osnap""none")；不捕捉任何类型（2）通过setvar函数设置目标捕捉的类型(setvar"osmode"7)；7是捕捉端点、中点和中心的代码之和(setvar"osmode"0)；不捕捉任何类型将osmode设置为0（不捕捉任何类型）是通常的设置。假定osmode的当前值为1，将捕捉直线或圆弧的端点。在这种情况下，如果指定的是p点，而p点处刚好有一条直线，那么实际获取的是该直线距p点较近的那个端点，而不是p点本身。所以应该用setvar函数将osmo