Vsual lisp 程序设计

citykunan · 发表于 2003-12-4 16:58:00

陈老师，为何你《Vsual lisp 程序设计--技巧和范例》书中的很多lisp程序没办法运行？

meflying · 发表于 2003-12-4 17:02:00

应该不会吧，我手上没有，不过这里很多人都有，都没人说过这个问题啊。
你举个例子看看，或许我能给你解答一下原因。。。陈老师现在不一定来这里。。。

janice · 发表于 2003-12-4 17:52:00

是的，我看了个也不能运行

lockmyeye · 发表于 2003-12-4 20:33:00

有没有装入(vl-load-com)?
扩展函数要先装它才可以运行的。

citykunan · 发表于 2003-12-9 10:55:00

也不知是什么原因？
(Defun C:T4915 ()
         (SetQ listl '(("A" 10)("B" 20)("C" 30)("D" 40)("E" 50)("F" 60)
                     ("G" 70)("H" 80)("I" 90)("J" 100)
                     )
　　　　　 )
         (New_Dialog "T4915" (Load_Dialog "4915"))
         (Start_List "listb")
         (ForEach v listl (Add_List (Car v)))
         (End_List)
         (Action_Tile "listb"
                     (StrCat "(SetQ n $Value)"
                              "(If (= 4 $Reason) (Done_Dialog 1))"
                     )
         )
         (If (= 1 (Start_Dialog))
            (CPrint (List "\n所选值是：" (Nth (Read n) listl)))
            (PrinC "\nCancel")
         )
         (PrinC)
)
对话框程序如下：
T4915 : dialog
      { label = "Test 6-2";
      : list_box { key = "listb"; height = 6; }
      ok_cancel;
      }

meflying · 发表于 2003-12-9 11:06:00

这里有一个cprint函数，我估计应该不是笔误，因为如果笔误，则为print，返回结果是：
("\n所选值是：" ("D" 40))
这种效果应该不是想要的。
所以我觉得这可能是他自定义的函数，你在书中找找看，有没有cprint函数的定义，有就必须加载它才可以的。。。

龙龙仔 · 发表于 2003-12-9 11:38:00

要是你有小心看書的話,書中有要求你程序運行前要加載tools.lsp & 使用某個mnu(書在家裡可能有誤)
;|
Tools.LSP 是一個與 AutoCAD 配套的工具集，
與之配套的支持文件有：Tools.DCL Tools.SLB Tools.DWG，
這個程序集是一個工具集、也是一個應用開發實例程序集，其中的程序設計方法可能比程
序本身的功能更有意思，給你介紹一些可能有用的應用開發技巧，才是作者的主要目的。
各個函數的功能見最後的 C:Tools 函數中的變量 FL 中的內容。
請注意：這個程序應當在AutoCAD 2000/2000i/2002 中，
要用 1024x768 256色或更高的顯示分辨率設置才能正常運行，否則會出現錯誤或顯示效果很差。
                                          陳伯雄
|;
;; ---------------------------------------------------------------------------