AutoCAD下绘制直线对称中心线的方法

AutoCAD下绘制直线对称中心线的方法　　AutoCAD是目前国内应用最广范的CAD系统之一，AutoCAD 功能强大，是一个通用的CAD平台，但是如果不根据本专业的需要进行二次__，使用起来是很不

AutoCAD 下绘制直线对称中心线的方法 AutoCADCADAutoCAD 是目前国内应用最广范的系统之一，功能强大，是一个通用 CAD__ 的平台，但是如果不根据本专业的需要进行二次，使用起来是很不方便的。画对称 中心线是机械设计中经常遇到的一个问题。 AutoLISP__ 笔者用依据国家标准了两个程序，可以很方便地解决直线对称中心线的问 题。 LOAD 第一个程序适用于两条边是连续直线的情况。使用方法是：用命令装入 GLS.LSPC:GSL ，运行，依据屏幕提示，分别选择两边，自动绘制出中心线。 GSL.LSP: (defunmid(pt1pt2) 计算两点之中点的功能函数 (setqpt(__pcar'+pt1pt2)) (setqpt(__pcar'/pt'(222))) ) (defunc:gsl/mcl1clcl2eptpt1pt2pt3pt4a)(SETQM1) (WHILEM (SETQCL1(ENTSEL"\n")) 选择第一条直线 (cond ((notcl1)(prompt"\n")) 没有发现实体 ((/="LINE"(cdr(assoc0(setqe(entget(carcl1)))))) (prompt"\n") 所选不是直线 ) (t(prompt"”) 找到了第一条直线 (setqmnil) ；退出循环 ) ) ) (setqcl(ssget(nth0(cdrcl1)))) ；取得第一条直线的实体数据 (SETQM1) (WHILEM (SETQCL2(ENTSEL"\n")) 选择第二条直线 (ifcl2 (if(s__emb(carcl2)cl) (progn (princ"\n") 选择重复，重新选择 (setqcl2nil) ) ) ) (cond ((notcl2)(prompt"")) 没有发现实体或重复 ((="LINE"(cdr(assoc0(setqe(entget(carcl2)))))) ／