AutoLisp学习笔记1

最新推荐文章于 2024-07-15 16:40:29 发布

李建军

最新推荐文章于 2024-07-15 16:40:29 发布

阅读量490

点赞数

分类专栏： AutoLisp 文章标签：学习

本文链接：https://blog.csdn.net/hb_ljj/article/details/125352536

版权

AutoLisp 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

(alert "Hello and welcome to AutoLisp!");对话框

(defun c:testline ()
    ;定义一个函数 

    (setq a (getpoint "\n选择第一个点 : "))
    ;得到第一个点的坐标赋值给a
    (setq b (getpoint "\n选择第二个点 : "))
    ;得到第二个点的坐标赋值给b 
    (command "Line" a b "")
    ;连接两点画直线
        (princ)
          ; 清除 nil
)   ;函数定义结束

函数的定义(defun)

(defun [函数名] ([全局变量1] [全局变量2] .../ [局部变量1] [局部变量2]) [表达式1] [表达式2] ...)

(defun myfunc (x y) ...)                ;有两个全局变量
(defun myfunc (/ a b) ...)              ;有两个局部变量
(defun myfunc (x / temp) ...)           ;有一个全局变量，一个局部变量
(defun myfunc () ...)                   ;没有变量，即变量表是空表