[求助]lsp和dcl文件的问题

aileiwu

我编了lsp和dcl文件，能加载，但运行时出问题。提示“找不到对话框 ALmaoyi 的定义”，

请朋友们把我看看问题出在哪里？我把这两个文件放在 D:\Program Files\AutoCAD 2006\Support

 

 

 

caoyin

对话框标题不对啊！！

(new_dialog "ALmaoyi" dcl_id)

中的

 "ALmaoyi" 在 DCL 中没有

把 gongyi 改成 ALmaoyi

aileiwu

谢谢！新手给大家搞笑话了。

zctao1966

哦，这样真的行吗。。。。

我明天去试下。。。。

song宋_74729

;<<<<<<合并DCL和lsp文件  >>>>>>

   (setq dcl_file (open (setq tmp-dcl-file-name (vl-filename-mktemp nil nil  ".DCL")) "w"))
              (progn
                 (foreach x
                   '(  

                     "ALmaoyi:dialog{ "  
                     "label=\"艾蕾\";  "  
                     ":boxed_row{  "  
                     "label=\"输入密度\"; "  
                     ":edit_box{  "  
                     "label=\"针（cm）\"; "  
                     "key=\"zm\";  "  
                     "fixed_width=true; "  
                     "edit_width=8; "  
                     "alignment=centered; "  
                     "}   "  
                     ":edit_box{"  
                     "label=\"     行（cm）\";"  
                     "key=\"hm\";"  
                     "fixed_width=true;"  
                     "edit_width=8;"  
                     "alignment=centered;"  
                     "}"  
                     "}"  
                     ":text{ "  
                     "label=\"针或行的距离\";"  
                     "alignment=centered;"  
                     "}"  
                     ":boxed_row{"  
                     "label=\"输入已知值\";"  
                     ":edit_box{"  
                     "label=\"行数\";"  
                     "key=\"hs\";"  
                     ""  
                     "edit_width=4;"  
                     "}"  
                     ":edit_box{"  
                     "label=\"     针数\";"  
                     "key=\"zs\";"  
                     "edit_width=4;"  
                     "}"  
                     ":edit_box{"  
                     "label=\"     次数\";"  
                     "key=\"cs\";"  
                     "edit_width=4;"  
                     "}"  
                     "}"  
                     ":toggle{  "  
                     "label=\"删除源线段\";  "  
                     "value=0;  "  
                     "}"  
                     ":boxed_row{"  
                     ":button{"  
                     "label=\"计算\";"  
                     "key=\"jisuan\";"  
                     "fixed_width=true;"  
                     "width=5;"  
                     "}"  
                     "ok_cancel;   "  
                     "}"  
                     "}"  
     ) (write-line x dcl_file) )
     (setq dcl_file (close dcl_file)))

(defun c:gy (/ dcl_id)
  (setq ent (entsel "\n选取线段"))
  (setq entlst (entget (car ent)))
  (setq pt1 (cdr (assoc 10 entlst)))
  (setq pt2 (cdr (assoc 11 entlst)))
  
  (setq dcl_id (load_dialog tmp-dcl-file-name))
  (if(not(new_dialog "ALmaoyi" dcl_id))(exit))
  (action_tile "jisuan" "(zichengxu)")      ;单击「开始」调用子程序
  (start_dialog)
  (unload_dialog dcl_id)
  (princ)
  )

(defun zichengxu()      ;菜单子程序
  (setq zmz (atof (get_tile "zm")))
  (setq hmz (atof (get_tile "hm")))
  ;(setq hsz (atof (get_tile "hs")))
  ;(setq zsz (atof (get_tile "zs")))
  ;(setq csz (atof (get_tile "cs")))
  
  (if (= (get_tile "zs") "")
    (setq csz 1.0)
    (setq csz (atof (rtos (/ (- (car pt2) (car pt1)) (abs (atof (get_tile "zs"))) (* zmz 0.1)) 2 0)))
    )
  
  (if (= (get_tile "zs") "")
    (setq zsz (atof (rtos (/ (- (car pt2) (car pt1)) csz (* zmz 0.1)) 2 0)))
    (setq zsz (atof (get_tile "zs")))
    )
  
  (setq hsz (atof (rtos (/ (- (cadr pt2) (cadr pt1)) csz (* hmz 0.1)) 2 0)))

  (set_tile "hs" (rtos hsz 2 0))
  (set_tile "zs" (rtos zsz 2 0))
  (set_tile "cs" (rtos csz 2 0))
)

DCL与LSP整合版