在一次不经意的事情中 接触了LISP语言
那时候
对LISP 语言什么也不了解
别人现成的LISP 程序
也不知道怎么去要
想必大家在刚刚接触计算机语言的时候
都不比我聪明到哪里去吧??

要想详细的了解LISP语言
搜索一下
会让你大饱眼福的
我只想说说我的看法
LISP语言是CAD众多的二次开发工具中的一种
而且安装CAD的时候顺带安装上了就
很适合那些经常运用CAD制图但是却没有太多的时间去专研LISP语言的门外汉

在日常绘图的时候
会经常的遇到一些同一类的问题
比如说从建筑那边拷贝过来建筑图
你的把不必要的标注删除
你一个一个删除吗？？
港开始的时候我是这样解决问题的
但是现在~~
我的意思是说
不要盲目的去遐想着要编这样功能的程序
那样功能的程序
而是要想着编那些在日常工作中经常用到的程序
那样的程序才能真正的让你的工作效率达到事半功倍的效果

想到要编 程序
千万不要激动
不要以为什么人都可以编程的
那那些搞编程的人喝西北风去吧~~
哈哈
我们能编程还得借助别人的功劳
我们要大致的了解人家的软件都有什么样的功能和作用
人家给我们提供了哪些现成的资料
就LISP语言
我个人觉得
首先得要掌握一些基本的变量
什么变量有什么样的功能
变成的过程当中，
经常涉及到定义变量
其次
要掌握一些经常用的一些函数
我在编程的时候
经常用到的函数是COMMAND 函数
当然我不是说COMMAND函数最重要
只是我经常用它去判断一些语句是否正确~~
还有
就是对CAD的命令要心中有数
什么样的命令以及对应的格式是什么样子

上传几个常用的资料
CAD系统变量

AutoLisp Vlisp 函数

CAD常用命令

1 怎样简单的修改别人的程序？？
比如你习惯了用FF命令画直线
但是你收集到的 LISP程序里面，
FF命令被定义成其他的动作
那么怎么进行简单的恶修改呢 ？？
例如：
(defun c:ff()
(princ "\n 请选择要旋转45度的直线")
(setq s1(ssget)
pt0 (getpoint "\n基点：")
)
(command "_ROTATE" s1 "" pt0 -45 )
(princ)
)

我们只需要将
(defun c:ff()
中的FF改为其他的字母组合就行了
比如
(defun c:fg()
但是记住了
千万不要引起其他的新冲突~~
这也是我在前面提到的
要熟悉CAD命令的这一条~~

2 怎样简单的修改别人的程序？？
谁的程序最多？
大家知道不？
当然是CAD本生的程序最多
那么我们是不是要尝试着修改CAD的程序呢 ？
下边的例子你看一看
例1: (DEFUN C:ZA() (COMMAND "ZOOM" "A")(princ))
(DEFUN C:ZC() (COMMAND "ZOOM" "C")(princ))
(DEFUN C:ZD() (COMMAND "ZOOM" "D")(princ))
(DEFUN C:ZE() (COMMAND "ZOOM" "E")(princ))
(DEFUN C:ZW() (COMMAND "ZOOM" "W")(princ))
(DEFUN C:ZP() (COMMAND "ZOOM" "P")(princ))
(DEFUN C:ZV() (COMMAND "ZOOM" "")(princ))

3 结合系统变量修改CAD命令
这要求你对CAD的系统变量要多少了解一点
至少你要有系统变量的资料
方便查询~~
(DEFUN C:TT ()
(setvar "OSMODE" 0)
(command "style" "hztxt" "txt,hztxt" "0" "0.7" "0" "" "" "")
(command "color" "bylayer")
(command "layer" "M" "Text" "c" "3" "Text" "")
(setvar "TEXTSIZE" 350)
(command "TEXT")
(prin1)
)
你知道哪些是系统变量不？
他们分别是什么意思？