[教学]：Visual Lisp程序设计－技巧与范例(源代码)1

baby1528

Visual Lisp程序设计－技巧与范例(源代码)
第二章

T201.LSP
(Defun C:IBox ()
       (SetQ ip (GetPoint "\n左下角点: ")                                                                                         
             ix (Car ip) iy (Cadr ip)
                   iw (GetDist ip "\n宽度: ")
                   ih (GetDist ip "\n高度: ")
                   ir (GetDist ip "\n圆角半径: ")
       )                                                                                                                                                       (GetInt)
       (Command "rectang" "f" ir ip (List (+ ix iw) (+ iy ih)))
       (PrinC)
)


T202.LSP
(Defun Test (t1 t2) (/ t1 t2)) ；自定义函数
(Defun ATest (a1 a2)  ；Test 函数的包装
       (SetQ ft (VL-Catch-All-Apply 'Test (List a1 a2))) ；跟踪 Test 函数的错误
       (If (VL-Catch-All-Error-P ft)       ；如果有错误
               (VL-Catch-All-Error-Message ft)            ；返回出错提示
               ft                                      ；否则返回执行结果
       )
)
(Defun C:Test () ；Test 函数的引用程序
       (SetQ n1 (GetReal "\n数1: ")
                 n2 (GetReal "\n数2: ")
                 n3 (ATest n1 n2) ；直接使用 ATest 的返回值：结果或出错信息
       )
       (PrinC "\n结果=") (PrinC n3)
       (PrinC)
)

lyc-tr

我正在学习,谢谢

jshua

你所编制的上述代码是AutoLisp代码，不是VLisp代码