所以我偶然发现了这个启示（对我来说是一个启示）

Dommy2Hotty · 发表于 2004-2-9 23:55:36

我在这里发布了几次。事实上，我是Lisp的新手（1-2周），并且很好地掌握了它。我发布了一个用于创建高程线的lisp文件。非常简单。非常适合我。它要求两层楼的板高和一楼的地板结构，所有这些都是输入的。难道我不能创建一个对话框从中挑选它们吗？
所以我遇到了DCL，但不想深入研究。然后是VBA。非常简单。制作了我的对话框，我可以在其中选择预设按钮，并且可以毫无问题地将这些按钮输入到Lisp中。正在寻找如何将我的Lisp与VBA相结合，发现我无法做到这一点。有人能给我指出我现在需要去的方向吗？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

hendie · 发表于 2004-2-10 03:37:54

从VBA内部调用Lisp是可能的，但这并不太好，无论如何都要避免。我的建议是...因为您已经创建了对话框...你已经看到了VBA的一些优势..那么为什么不继续VBA的项目呢？
从好的方面来说，你可以学习另一种语言！而且变得越来越容易！
记得在遇到困难时问一声

Keith · 发表于 2004-2-10 06:36:34

说得好！
当然，一旦你学会了面向对象语言的语法，继续做更大更好的事情就变得相对容易了。
当您需要对AutoCAD对象进行更多的控制时，VBA非常有用，仍然有一些事情最好用lisp来完成，但这是很少的。欢迎来到VBA的奇妙世界...

Dommy2Hotty · 发表于 2004-2-10 19:12:25

好。。。好吧，我完成了它...在DCL中，就是这样。我会尽快尝试进入VBA，但我仍在学习Lisp。如果有人想看，我会发布它。是时候回家阅读更多关于这一切的信息了。

Keith · 发表于 2004-2-10 21:15:22

好吧，我不确定每个人都会有什么用，但是，我可以向你保证，你可能会得到一些关于你的编程方法的质量反馈。

Dommy2Hotty · 发表于 2004-2-11 01:39:56

我不认为有人会用得上它...除了批评...就这样...就是这么一件小事，却让我印象如此深刻！我的下一步是创建图层，如果它们不在绘图中的话。DCL文件:

copy


ELines : dialog {
        label = "Elevation Line Setup" ;
        : boxed_radio_row {
        label = "First Floor Ceiling Height" ;
        : radio_button {
          key = "opt1" ;
          label = "8 Foot" ;
          }
        : radio_button {
          key = "opt2" ;
          label = "9 Foot" ;
          value = "1" ;
          }
        : radio_button {
          key = "opt3" ;
          label = "10 Foot" ;
          }
}
        : boxed_radio_row {
        label = "Second Floor Ceiling Height" ;
        : radio_button {
          key = "opt4" ;
          label = "8 Foot" ;
          value = "1" ;
          }
        : radio_button {
          key = "opt5" ;
          label = "9 Foot" ;
          }
        : radio_button {
          key = "opt6" ;
          label = "10 Foot" ;
          }
}
        : boxed_radio_row {
        label = "First Floor Construction" ;
        : radio_button {
          key = "opt7" ;
          label = "2x10" ;
          value = "1" ;
        }
        : radio_button {
          key = "opt8" ;
          label = "2x12" ;
          }
}
        : boxed_radio_row {
        label = "Second Floor Construction" ;
        : radio_button {
          key = "opt9" ;
          label = "2x10" ;
          value = "1" ;
          }
        : radio_button {
          key = "opt10" ;
          label = "2x12" ;
          }
}
        ok_cancel ;
        : row {
        : paragraph {
        : text_part {
        label = "Designed and Created" ;
        }
        : text_part {
        label = "by Dominic Cesare" ;
        }
        }
        }
        }

LISP文件:

copy


(prompt "\nType Elines to run.....")                                ;informs user how to run lisp
(defun c:ELines ()                                                ;define function
  (setq echo (getvar "cmdecho"))                                ;gets echo value
  (setq HT1 "109")                                                ;set default HT1 value
  (setq HT2 "97")                                                ;set default HT2 value
  (setq FC1 "11.5")                                                ;set default FC1 value
  (setq FC2 "10")                                                ;set default FC2 value
  
  (setq dcl_id (load_dialog "ELines.dcl"))                        ;load dialog
  (if (not (new_dialog "ELines" dcl_id)                                ;test for dialog
           )                                                        ;not
    (exit)                                                        ;exit if no dialog
)
    (action_tile "opt1" "(setq HT1 "97")")                        ;store HT1 to 8'-1"
    (action_tile "opt2" "(setq HT1 "109")")                        ;store HT1 to 9'-1"
    (action_tile "opt3" "(setq HT1 "121")")                        ;store HT1 to 10'-1"
    (action_tile "opt4" "(setq HT2 "97")")                        ;store HT2 to 8'-1"
    (action_tile "opt5" "(setq HT2 "109")")                        ;store HT2 to 9'-1"
    (action_tile "opt6" "(setq HT2 "121")")                        ;store HT2 to 10'-1"
  
    (action_tile "opt7" "(setq FC1 "11.5")")                        ;store FC1 to 11 1/2"
    (action_tile "opt8" "(setq FC1 "13.5")")                        ;store FC1 to 1'-0 1/2"
    (action_tile "opt9" "(setq FC2 "10")")                        ;store FC2 to 10"
    (action_tile "opt10" "(setq FC2 "12")")                        ;store FC2 to 12"
    (action_tile
      "cancel"                                                        ;if cancel button is pressed
      "(done_dialog) (setq userclick nil)"                        ;close dialog, set flag
      )                                                                ;end action_tile
    (action_tile
      "accept"                                                        ;if O.K. is pressed
      "(done_dialog) (setq userclick T))"                        ;close dialog, set flag
        )
    (start_dialog)                                                ;start dialog
    (unload_dialog dcl_id)                                        ;unload
  (if userclick
    (progn
  
  (setq DN '(0 -100000000)
        UP '(0 100000000)
        )
;;; ***************  Creating Grade & Top of Foundation   ****************
(prompt "\nDraw Grade Line.....")
  (setvar "cmdecho" 0)
  
  (command "line" pause pause "")                                ;creating grade line
  (setq L1 (entlast))                                                ;setting grade line to L1
  (command "change" L1 "" "P" "LA" "WALL" "C" "WHITE" "")        ;changing grade line to layer wall, color white
  (command "offset" "8.0" L1 UP "")                                ;creating top of foundation line
  (setq FDN (entlast))                                                ;setting top of foundation line to FDN
  (command "change" FDN "" "P" "LA" "WALL" "C" "15" "")                ;changing top of foundation line to layer wall, color 15
;;; ***************  Creating First Floor Lines   ************************
  (command "offset" FC1 FDN UP "")                                ;creating first floorline
  (setq FLR1 (entlast))                                                ;setting first floorline to FLR1
  (command "change" FLR1 "" "P" "LA" "FLR" "C" "BYLAYER" "")        ;changing first floorline to layer FLR, color bylayer
  (command "offset" HT1 FLR1 UP "")                                ;creating first floor ceilingline
  (setq CLG1 (entlast))                                                ;setting first floor ceilingline to CLG1
  (command "change" CLG1 "" "P" "LA" "CLG" "")                        ;changing first floor ceilingline to layer CLG
  
;;; *************** Creating First Floor Fascia **************************
  (command "offset" "3.0" CLG1 DN "")                                ;creating top of first floor fascia
  (setq F1T (entlast))                                                ;setting top of first floor fascia to F1T
  (command "change" F1T "" "P" "LA" "WALL" "")                        ;changing top of first floor fascia to layer WALL
  (command "offset" "8.0" F1T DN "")                                ;creating bottom of first floor fascia
  (setq F1B (entlast))                                                ;setting bottom of first floor fascia to F1B
;;; *************** Creating Second Floor Lines **************************
  (command "offset" FC2 CLG1 UP "")                                ;creating second floorline
  (setq FLR2 (entlast))                                                ;setting second floorline to FLR2
  
  (command "change" FLR2 "" "P" "LA" "FLR" "")                        ;changing second floorline to layer FLR
  
  (command "offset" HT2 FLR2 UP "")                                ;creating second floor ceilingline
  
  (setq CLG2 (entlast))                                                ;setting second floor ceilingline to CLG2
  (command "change" CLG2 "" "P" "LA" "CLG" "")                        ;changing second floor ceilingline to layer CLG
;;; *************** Creating Second Floor Fascia **************************
  
(command "offset" "3.0" CLG2 DN "")                                ;creating top of second floor fascia
(setq F2T (entlast))                                                ;setting top of second floor fascia to F2T
(command "change" F2T "" "P" "LA" "WALL" "")                        ;changing top of second floor fascia to layer WALL
(command "offset" "8.0" F2T DN "")                                ;creating bottom of second floor fascia
(setq F2B (entlast))                                                ;setting top of second floor fascia to F2B
  (setvar "cmdecho" echo)
  )
    )
    (princ)
)
  (princ)