《编程实例清华cad二次开发lisp》由会员分享，可在线阅读，更多相关《编程实例清华cad二次开发lisp（105页珍藏版）》请在金锄头文库上搜索。
1、E-一八吹8农编程实例编程作图和交互作图一样,也需要设置作图的环境,例如图纸的范围、绘图的单位、目标捕捉的类型、图层、颜色、线型、线宽、字样等,如果缺少对作图环境的设置,只能是利用加载程序时AutoCAD提供的默认环境。设置一个合适的作图环境不仅可以提高作图的精度和效率,有时还会影响刹所绘制的因纸是否符合企业的规范和满足生产的需要。用程序实现设置作图环境的功能可以通过command函数调用相关的命令,或者通过setvar函数改变相应系统变量的当前值或当前状态。有些功能只能通过上述一种途径实现,有些功能可以通过上述两种途径实现。例如设置A3图纸的作图范图(1)通过command函数设置图纸的范图
2、28(command“1imits“0,0“420,2977)或者(command“1imits“(00),(420297)或者(command“1imits(list0_0)“CList420297)这时pl、p2分别是作图范围的左下和右上角点,上式可改写为:(command“1imitsp1p2)量1immin和1immax分别对应于图纸的左下和右上角点,只需用setvar函数设置它们以新的值即可。(setvar“1immin“(00)或者(setvar“1immin“(list00)或者(setvar“1immin“0,0“)或者(setvar“1immin“p1)设置图纸的右上角点的表
3、达式如下:(setvar“1immax“(420297)或者(setvar“1immax(list420297)或者(setvar“1immax“420,297“)或者(setvar“1immax“D2)例如将绘图的长度单位设置为十进制、3位小数,角度单位设置为十进制的度(“)十进制、2位小数、X轴正方向为0“、逗时针方向为正。(1)通过command函数设置绘图的长度和角度单位(command“units“23120“N)command的参数说明如下:units:AutoCAD设置绘图单位的命令;2:长度单位为十进制;3位小数;角度单位为十进制的度;2位小数;X轻正方向为02;:非顺时针,即
4、逆时针为正。医口bo心65ueiAiiAAsIIdiizE通过setvar函数设置设置绘冬的长反和角度单位(setvar“1lunits“2);长度单位为十进制(setvar“1luprec“3);长度单位3位小数(setvar“aunits7“1);-符度单位为十进制的度(setvar“auprec“2);角度单位为长2位小数(setvar“angbase“0.0);X轴正方向为0(setvar“angdir“0);逗时针方向为正一二p交互操作时,目标捕捉类型的选项是字符串,它以编码的形式记录在系统变量smode内,代码的具体含义是:0:NONe(不标捕捉任何类型的对象1:“ENDpoint
5、线段和圆弧的端点2:MIDpoint(线段和圆弧的中点4:CENter圃、榈圆和圆弧的中心点一不丨JENDpointMIDpointCENter8:NODe(结点,用pomt命令生成的点16:QUAdrant(圆和圆弧的象限点32:INTersection(线段和圆弧的交点,O小C3如QUAdrantINTersection64:senmn(图姚或字符串的插入点)128:PERpendicular垂足E“孔INSertionPERpendicular256:TANgent(切点512:NEArest(对象上的最近点1024:QUIck(快速捕捉2048:APParentIntersection
6、在观察方向上相交的点4096:EXTension延长线上的点8192:PARallel(与所选对象平行的点)习-E8八兰TANgentAPParentIntersectionEXTensionPARallelD通过commana函数(command“osnap“endpoint,midpoint,center“);捕捉端点、中点和中心(command“osnap“none“);不捕捉任何类型(2)通过setvar函数设置目标捕捉的类型(setvar“osmode“7);7是捕捉端点、中点和中心的代码之和(setvar“osmade“0);不捐猩任何娄型将osmode设置为0(不捕捉任何类型是通常的设置。假定osmode的当前值为L,将捕捉直线或圆弧的端点。在这种情况下,如果指定的是p点,而p点处刚好有一条直线,那么实际获取的是该直线距p点较近的那个端点,而不是p点本身。所以应该用setvar函数将osmode设置为0。
