调试程序清华CAD二次开发LISP

(2)工具栏 Visual LISP提供了 提供了Standard,View,Debug,Tools和Search五 提供了 , , , 和 五 个工具栏 .
① Standard工具栏 工具栏
建立一个新文件 存盘 剪切 粘贴 恢复 打开一个已有的文件 打印输出 复制 取消 完词功能
Tools工具栏 ② Tools工具栏
删除被选中的文本并将其移到Windows剪贴板 剪贴板 删除被选中的文本并将其移到 将选中的文本复制到剪贴板中 将剪贴板内容粘贴到光标位置 清空控制台窗口 在控制台窗口中查找指定文本 打开"检验" 打开"检验"对话框 打开"监视" 打开"监视"窗口 打开"自动匹配选项" 打开"自动匹配选项"窗口 打开"符号服务" 打开"符号服务"对话框 放弃最近的操作 重新执行上次放弃的操作 将所有输入传送到 AutoCAD 命令行以供求值 切换是否将控制台窗口的输出复制到日志文件
Hale Waihona Puke 2. 使用控制台窗口的历史记录
提示下, 在_$提示下,每按一次 提示下 每按一次Tab键,回溯前一次输入的字符串,作为当前输入. 键 回溯前一次输入的字符串,作为当前输入. 到了第一次输入的字符串时,再按Tab键,返回最后一次输入的字符串,周 到了第一次输入的字符串时,再按 键 返回最后一次输入的字符串, 而复始.每按一次Shift+Tab键时,将进行反向回溯. 键时, 而复始.每按一次 键时 将进行反向回溯.
控制台快捷菜单
4. 记录控制台窗口的活动
日志文件的文件类型为" 日志文件的文件类型为 " .log", , 它记录了控制台窗口的所有活动, 它记录了控制台窗口的所有活动 , 通 过浏览该文件可以回顾控制台窗口中 执行的命令. 执行的命令. 在控制台窗口通过下拉菜单 File→Toggle Console Log或快捷菜单 → 或快捷菜单 Toggle Console Log可以建立日志文件. 可以建立日志文件. 可以建立日志文件

这两行提示用户输入三角形的第二个顶点和第三个顶点，随后把 这些坐标赋予Ｐ2和Ｐ3。＼ｎ的作用是回车，因此输入提示显示在下 一行中。
第9行：（Command“line” P1 P2 P3“Ｃ”）
本行中，Command函数用来输入AutoCAD的line命令，然后从P1到 P2，P2到P3各画一条直线。“Ｃ”（表示“ｃｌｏｓｅ”选项）把最 后一点Ｐ3与第一点P1连接起来。所有的AutoCAD命令及选项在 AutoLISP程序中使用时都必须置于双引号内。变量P1、Ｐ2.
示例：
（setq Pt1（getpoint））
（setq Pt1（getPoint“选择第一点”))
有上面几个函数就可以开始编程了：
例1 编写一个程序，该程序将提示用户选择三角形的三个顶点，并通过 它们绘出如三角形。
本例中，程序的输入为三个点的坐标，期望的输出为一个三角形。用以 生成该三角形的处理过程为：由P1到P2、由P2到P3、到P3到P1各画一 条直线。弄清这三部分就会使编程过程更清晰。
该函数（／=）检查两个元素是否不相等。若不相等，条件为真，
函数返回Ｔ。同样，若指定的元素相等，条件为假，函数返回nil。
3.小于
格式（＜atom1 atom2…）
该函数（＜）检查第一个元素（atomｌ）是否小于第Ｈ个元素
（atomＺ）。若为真，函数返回Ｔ，否则返回nil。
4.小于等于
格式(＜= atom1 atom2...）
(defun ADNUM（/ａ
ｂ），定义了一个含有两个局部变量ａ和ｂ的函数ADNUM。局部 变量在程序的执行期间保留其值，而且只能在它所在的程序中使用。
(defun Ｃ：ADNUM（），在函数名前加上Ｃ：后，此函数就可以通 过在AutoCAD的Command：提示符后输入其函数名来执行。如果没有

;====================================================== (defun 7inputI ()(setvar "osmode" os)(PRINC "\n")(PRINC FNUM)(setq st (getstring "\nCan i help you OR End the process <Y/S/P/C>"))(if (or (= st "y") (= st "Y"))(progn(command "find")(setq st (getstring "\nCan i help you OR End the process <Y/S/P/C>")) ))(if (or (= st "S") (= st "s"))(progn(setq sca (getint "\nSpecify the scale of view: "))(setqst (getstring "\nCan i help you OR End the process <Y/P/C>"))))(if (or (= st "c") (= st "C"))(setq whinum 200));=======================(if (or (= st "p") (= st "P"))(progn(setq p0 (getpoint "\nSpecify the first point: ")p1 (getpoint "\nSpecify the second point: ")p2 (getpoint "\nSpecify the first point: ")p3 (getpoint "\nSpecify the second point: "))(if (> (* sca (distance p0 p1)) (* sca (distance p2 p3))) (progn(setq di (* sca (distance p0 p1)))(setq dii (* sca (distance p2 p3))))(progn(setq dii (* sca (distance p0 p1)))(setq di (* sca (distance p2 p3)))))(if (or (= unit 2) (and (= unit 4) (> di 24)))(setq inch (strcat " x " (rtos di unit prec) " LG.")))(if (and (= unit 4) (<= di 24))(setq inch (strcat " x " (rtos di 5 prec) "\"" " LG.")) )(if (or (= unit 2) (and (= unit 4) (> dii 24))) (setq inchi (strcat " x " (rtos dii unit prec))))(if (and (= unit 4) (<= dii 24))(setq inchi (strcat " x " (rtos dii 5 prec) "\"")))(setq inch (strcat inchi inch " FlatBar?"))(setvar "osmode" 1024)(command "text" pt1 "" fnum)(command "chprop" (entlast) "" "la" "Defpoints" "") (command "text" pt1a "" inch)(command "chprop" (entlast) "" "la" "Defpoints" "") ));=======================(if (= st "")(progn(setq p0 (getpoint "\nSpecify the first point: ") p1 (getpoint "\nSpecify the second point: "))(setq di (* sca (distance p0 p1)))(if (or (= unit 2) (and (= unit 4) (> di 24))) (setq inch (strcat " x " (rtos di unit prec) " LG.")) )(if (and (= unit 4) (<= di 24))(setq inch (strcat " x " (rtos di 5 prec) "\"" " LG.")) )(setvar "osmode" 1024)(command "text" pt1 "" fnum)(command "chprop" (entlast) "" "la" "Defpoints" "") (command "text" pt1a "" inch)(command "chprop" (entlast) "" "la" "Defpoints" "") (princ di)(princ "\n")(princ (rtos di unit prec))))(if (or (= st "e")(= st "E"))(progn(entdel (entlast))(entdel (entlast))(setq fnum (- fnum 2))(setq pt1 (polar pt1 (* pi 0.5) (* 2 thc))))));======================================================(defun c:7 (/ whinum sht unit prec th thc pdx pdy chkn chkna fnum pt0 pt1 pt1a chkd chknum scast p0 p1 p2 p3 dii di inch inchi os)(setvar "cmdecho" 0)(setq os (getvar "osmode"))(princ "\nCheck the length of material")(setq whinum 0)(setq sht (getstring "\nSpecify the name of sheet: "))(setq unit (getvar "lunits")prec (getvar "LUPREC"))(if (= unit 2)(progn (setq th 3)(setq thc 5)(setq pdx 215)(setq pdy 2)(setq prec 0))(progn (setq th 0.125)(setq thc 0.2756)(setq pdx 8.5)(setq pdy 0.0625)))(command "style" "STD70" "" th "" "" "" "" "")(setq chkn (ssget "x"(list '(0 . "TEXT")'(8 . "Defpoints")'(7 . "STD70");;; (cons 410 (strcat "SHT " sht)))))(setq chkna (ssget "x"(list '(0 . "TEXT")'(7 . "STD70");;; (cons 410 (strcat "SHT " sht)))))(if (= chkna nil)(progn (setq whinum 200)(princ "\nPlease change name of sheet (SHT X)"))(progn(if (= chkn nil)(progn(setvar "osmode" os)(setq fnum (atoi (strcat sht "01")))(setq pt0 (getpoint "\nSpecify the fix point:"))(setvar "osmode" 1024)(setq pt1 (polar (polar pt0 0 pdx) (/ pi 2) pdy))(setq pt1a (polar pt1 0 (* 6 pdy))))(progn(setq chkna (ssget "x"(list '(0 . "TEXT")'(8 . "Defpoints")'(7 . "STD70")(cons 1 (strcat sht "01"))(cons 410 (strcat "SHT " sht)))))(setq chkd (entget (ssname chkna 0)))(setq chknum (sslength chkn))(setq fnum (+ (atoi (strcat sht "01")) (/ chknum 2))) (setq pt0 (cdr (assoc 10 chkd)))(setvar "osmode" 1024)(setq pt1 (polar pt0 (* pi 1.5) (* (/ chknum 2) thc))) (setq pt1a (polar pt1 0 (* 6 pdy)))))(setq sca (getint "\nSpecify the scale of view: "))(while (< whinum 200)(7inputI)(setvar "osmode" 1024)(setq pt1 (polar pt1 (* pi 1.5) thc))(setq pt1a (polar pt1 0 (* 6 pdy)))(setq fnum (1+ fnum)))(princ "\nCheck Done")))(command "style" "STD85" "" th "" "" "" "" "") (setvar "osmode" os)(princ))Banquansuoyou,qingwuzhuanfa,xiexiehezuo。

12
7.2 AutoLisp语言常用函数
7.2.1 AutoLISP的数据类型
(1) 符号 符号用于存储数据，“符号”与“变量”含义相当，可互相 交换使用。 符号: 除了一些特殊字符（如（、）、. 、 ‘ 、 “、 ；）以 外的任何可打印字符; 符号的大小写是等效的。 不允许使用数字作为符号名的第一位。 合法符号：abc、$AD、a3； 非法的符号：（a）、3d、a.b、A；等
CAD软件的二次开发问题就成为了CAD技术推广应 用过程中所必须面对和解决的课题之一。
2
二次开发的定义： 就是把商品化、通用化的CAD系统用户化、本地
化的过程，即以优秀的CAD系统为基础平台，研制开 发符合国家标准、适合企业实际应用的用户化、专业 化、集成化软件。
AutoCAD软件包是目前最为流行的工程绘图软件，该软 件包因其构造、编辑图形能力强、开发性好、支持微机平 台等优点，在国内得到广泛的应用。但AutoCAD软件本身 是一种非参数化环境的软件，只能通过交互式绘图命令及 一些二次开发手段来进行设计制图。
(9)求整函数（fix <number>） 该函数返回小于或等于<number>的最大整数。
25
7.2.4 逻辑运算函数
（1）等于函数（= 原子1 原子2 原子3 …） 原子：数或字符串； 所有原子都相等，函数返回 T，否则返回 NIL； 例如：(if (= x y z) (fx1)) （2）不等于函数（/= 原子1 原子2 …） 所有原子都不相等，函数返回T，否则返回NIL； 例如：(if (/= x y z) (fx2 ))
9
7.1 AutoLisp语言的特性
AutoLisp与主流编程语言的比较：
AutoLisp与其他语言最大的区别是用表存放数据， 没有数组、结构等。