资源描述
一些程序1.用自定义函数方式编写一个程序，求方程ax2+bx+c=0的解。(defun froot (a b c /tp) ；函数名是froot (setq tp(- (* b b)(* 4 a c) ；b2-4ac (setq rt1(/ (+ b (sqrt tp)(* -2.0 a) (setq rt2(/ (- b (sqrt tp)(* -2.0 a) (setq x(list rt1 rt2)2.定义一个四舍五入的取整函数，要求：（1）其调用格式为：（CINT 数）；（2）当数是实型数时，则对小数部分进行四舍五入后再取整。(defun cint(x) (if(= x 0)(fix(+ x 0.5) (fix(- x 0.5) )3.定义一个函数，要求：（1）其调用格式为：（INT 数）；（2）它返回小于或等于数的最大整数。(defun int(x) (if(= x 0)(fix x) (fix(- x 0.5) )4.求线段中点坐标。 (defun c:zd_xy() (setq pt0(getpoint n端点1:) pt1(getpoint n端点2:) dst(/(distance pt0 pt1) 2) ang(angle pt0 pt1) zd_xy(polar pt0 ang dst) ) (print zd_xy)5.计算线段角度和长度(defun c:jd_cd() (setq pt0(getpoint n端点1:) pt1(getpoint n端点2:) dst(distance pt0 pt1) ang(angle pt0 pt1) ) (print dst) (print ang)6.编写计算三角高程的AutoLISP程序（h=Lsin+i-v）。；计算三角高程(defun c:sjgc()(hd) ；调用自定义函数hd (setq L(getreal”n斜边边长:”) (setq i(getreal”n仪器高:”) (setq v(getreal”n觇标高:”) (setq h1 (* L (sin ard) (setq h2 (- i v) (setq h (+ h1 h2)7.创建图层。(defun c:jtc () (setq tcm (getstring n输入图层名:) (setq n (getint n输入图层颜色代码:) (command layer m tcm c n )8.求三角形面积。(defun dl(pa pb pc) (setq af1(angle PA PB) (setq af2(angle PA PC) (setq af(abs(- af1 af2) (setq d1(distance pa pc) (setq d(* d1 (sin af) (defun c:sjxmj() (setq pa(getpointn输入第一个顶点:) (setq pb(getpointn输入第二个顶点:) (setq pc(getpointn输入第三个顶点:) (setq d(dl pa pb pc);调用自定义函数dl,求得底边(pa-pb)上的高d (setq l (distance pa pb);求得底边(pa-pb)长度l (setq s(* 0.5 l d);求得三角形面积s )9.;度化弧度自定义函数(defun hd(af) (setq hhd(/ (* af pi) 180)问答：1、 内部块和外部块的区别“wblock”命令和”block”命令的主要区别在于前者可以将对象输出成一个新的、独立的图形文件，并且这张新图会将图层、线型、样式以及其他特性如系统变量等设置作为当前图形的设置。(1)”block”的作用：定义内部块。即把经常用到的符号定义成块，通过插入命令调入，减少重复绘图工作，使用方便。(2)”wblock”的作用：定义外部块。即把经常用到的符号定义成块，并以”.dwg”的形式保存。(3)两者的区别：内部块只能在定义内部块的文件中调用，不能被其它文件调用。外部块是图形文件，可以插入到其它图形文件中。2、属性块定义控制点方法。(1)现绘制控制点符号，注意图形尺寸应符合规范要求。(2)执行”attdef”命令出现属性定义对话框。在“属性标记”中输入“控制点名”、在“属性提示”中输入“控制点名”；文字选项栏中，“对正”选“中下”、“文字样式”选“默认方式”；在“插入点”栏中用鼠标点选控制点名注记处；按“确定”；按方式定义高程属性。(3)用”wblock”命令定义属性块。调用属性块时用插入命令”insert”，按命令行提示输入控制点的点名和高程即可。编程：1、 按要求编写建立图层的程序2、 按要求编写调用表中数据例：(setq p(GPS1 3456.786 23415.674 34.567)(setq dh(car p) x(card p) y(nth 2 p) z(last p)3、 定制复合线型代码例如：;十字 ;竖线 ;圆*10,10，SZ *20,2，SX *25,4，YR 2,018,1,020,2,018,014,1,02C,0 014,0 10,(1,000),0*栏杆a,4.5,sx,xwj.shx,s=1,r=0,x=0,y=0,4.5,yr,xwj.shx,s=0.5,r=0,x=1,y=0,-1*篱笆a,8,sz,xwj.shx,s=0.5,r=0,x=1,y=0,-2*铁丝网a,8,sz,xwj.shx,s=0.5,r=45,x=1,y=0,-2 *围墙 a,5,dhfk,xwj.shx,s=.5,r=0,x=0,y=0,5xwj.shx文件的内容*10,2,DK024,0*20,4,YR10,(1,060),0*30,13,CA005,005,005,005,012,006,016,006,01a,006,01e,006,0*40,13,SZ005,005,005,005,010,006,014,006,018,006,01c,006,0
展开阅读全文