工程CAD基础与应用 教学课件 ppt 作者 杨松林 于奕峰 主编10第十单元-1.pptVIP

第十单元 Autolisp编程（一）;你会操作吗？;１、Autolisp是何方神圣？;２、Autolisp程序语言特点分析;３、编写Autolisp程序的动机;４、如何学好Autolisp语言;５、Autolisp的关键;６、Autolisp基本结构和语法１;６、Autolisp基本结构和语法１;2) 表达式格式什么样;4) 运算顺序？;6) 编写环境怎样;６、Autolisp基本结构和语法２;1) 如何定义新命令;2) 如何加载程序;3) 常用变量类型;4) 如何赋值？;5) 如何查看变量值？;6) 何谓局部变量和全局变量;学习一个简单的lisp程序;(defun c:spszx ( / p0 ld p1 p2 p3 p4) ; 水平十字线程序 (setq p0 (getpoint 十字线交点:)) ; 用户输入一个点 (setq ld (getreal \n十字线长度:)) ;用户输入一个数 (setq ld (* 0.5 ld)) ;长度折半运算 (setq p1 (polar p0 pi ld)) ;由p0点算p1点 (setq p2 (polar p0 0 ld)) ;由p0点算p2点 (setq p3 (polar p0 (* 0.5 pi) ld)) ;由p0点算p3点 (setq p4 (polar p0 (* -0.5 pi) ld)) ;由p0点算p4点 (command line p1 p2 line p3 p4 ) ;执行直线命令 ) ；程序结束;学习一个双十字线程序;(defun c:sszx () (setq p0 (getpoint 双十字线第一交点:)) (setq p01 (getpoint p0 \n双十字线第二交点:)) (setq ld (* 0.25 (distance p0 p01))) (setq ang (angle p0 p01)) (setq p1 (polar p0 (+ ang pi) ld)) (setq p2 (polar p01 ang ld)) (setq p3 (polar p0 (+ ang (* 0.5 pi)) ld)) (setq p4 (polar p0 (- ang (* 0.5 pi)) ld)) (setq p5 (polar p01 (+ ang (* 0.5 pi)) ld)) (setq p6 (polar p01 (- ang (* 0.5 pi)) ld)) (command line p1 p2 line p3 p4 line p5 p6 ) );谢谢！