找不到dia的定义

TunzaGibbo · 发表于 2022-7-5 15:15:53

有人能帮我解决这个问题吗？
我在Autocad搜索路径中有lisp文件和dcl文件。我在同一个文件夹中有许多其他lisp和dcl文件，它们都很好用。
这个很顽固。我就是想不出来。
lisp文件称为“weld1.lsp”，dcl文件称为“Welds1.dcl”

copy

weld1 : dialog {
     label = "WELD NOTES 1 " ;
     : row {
     label = "WELD SIZE";
     : row {                    
         : edit_box {
           key = "dws";
           label = "WELD SIZE";
           edit_width = 6; 
           alignment = left ;                      
         }
     }
    } 
 ok_cancel ;       
}

Tharwat · 发表于 2022-7-5 15:27:50

你好

在AutoCAD的命令行中复制以下内容，并告诉我返回的结果。

copy

(findfile "Welds1.dcl")

dlanorh · 发表于 2022-7-5 15:29:17

dcl文件没有任何问题

检查lisp文件是否正在加载“Welds1.dcl”和加载对话框“weld1”。我通常将我的对话框与dcl文件调用相同，否则很容易出错，似乎什么也没有发生。如果没有看到与加载和设置对话框相关的lisp代码，我无法诊断代码是否有问题。我总是使用以下命令
其中dcl\U名称是*。dcl文件

TunzaGibbo · 发表于 2022-7-5 15:33:59

copy

Command: (findfile "Welds1.dcl")
"C:\\Users\\ynotsbbig\\#advance\\delta tools\\Welds1.dcl"

这是lisp：

copy

(defun C:weld1 (d1 ddiag dcl_id p1)       
  (defun setVars()
     (setq d1 (distof (get_tile "dws"))))           
     (setq dcl_id (load_dialog "Welds1.dcl"))
  (if (not (new_dialog "Welds1" dcl_id))
     (exit)
  )      
     (action_tile "accept" " (setVars)(done_dialog 1)")
     (action_tile "cancel" "(done_dialog 0)")  
     (setq ddiag (start_dialog))
  (if (= ddiag 1)
       (setq p1 (getpoint "\nPick a point "))     
       (command "_line" p1 (polar p1 (deltadtr 0) dws))
  )          
    (unload_dialog dcl_id)
 (princ)
)

rlx · 发表于 2022-7-5 15:41:55

copy

 (new_dialog [color=red][b]"Welds1"[/b][/color] dcl_id)

->

copy

 (new_dialog [color=red][b]"weld1"[/b][/color] dcl_id)

deltadtr->defun？

极函数中的dws是d1？

dlanorh · 发表于 2022-7-5 15:49:57

根据rlx或

copy

[color=red]Welds1[/color] : dialog {
      label = "WELD NOTES 1 " ;
     : row {
     label = "WELD SIZE";
     : row {                    
         : edit_box {
           key = "dws";
           label = "WELD SIZE";
           edit_width = 6; 
           alignment = left ;                      
         }
     }
    } 
 ok_cancel ;       
}

TunzaGibbo · 发表于 2022-7-5 15:54:55

我现在将lisp和dcl文件重命名为“weld1”
我还在挣扎。

这是lisp：

copy


(defun C:weld1 (d1 ddiag dcl_id p1)       
  (defun setVars()
     (setq d1 (distof (get_tile "dws"))))           
     (setq dcl_id (load_dialog "weld1.dcl"))
  (if (not (new_dialog "weld1" dcl_id))
     (exit)
  )      
     (action_tile "accept" " (setVars)(done_dialog 1)")
     (action_tile "cancel" "(done_dialog 0)")  
     (setq ddiag (start_dialog))
  (if (= ddiag 1)
       (setq p1 (getpoint "\nPick a point "))     
       (command "_line" p1 (polar p1 (deltadtr 0) d1))
  )          
    (unload_dialog dcl_id)
 (princ)
)

这是dcl：

copy

weld1 : dialog {
     label = "WELD NOTES 1 " ;
     : row {
     label = "WELD SIZE";
     : row {                    
         : edit_box {
           key = "dws";
           label = "WELD SIZE";
           edit_width = 6; 
           alignment = left ;                      
         }
     }
    } 
 ok_cancel ;       
}

rlx · 发表于 2022-7-5 15:59:10

copy


(defun C:weld1 ( / dcl-fn dcl-fp dcl-id ddiag d1 p1)
 (mk_dia)
 (if (and (setq dcl-id (load_dialog dcl-fn)) (new_dialog "weld1" dcl-id))
   (progn
     (vl-file-delete dcl-fn)
     (action_tile "accept" "(setq d1 (distof (get_tile "dws")))(done_dialog 1)")
     (action_tile "cancel" "(done_dialog 0)")
     (setq ddiag (start_dialog))
     (unload_dialog dcl-id)
     (cond
((= ddiag 1)
 (setq p1 (getpoint "\nPick a point "))
 (command "_line" p1 (polar p1 (deltadtr 0) d1))); deltadtr = ? , dws = d1?
     )
   )
 )
 (princ)
)
(defun deltadtr (i) (if i i 0))
(defun mk_dia ()
 (if (and (setq dcl-fn (vl-filename-mktemp ".dcl")) (setq dcl-fp (open dcl-fn "w")))
   (mapcar '(lambda (x)(write-line x dcl-fp))
    '("weld1:dialog{label="WELD NOTES 1";:row{label="WELD SIZE";:row {"
      ":edit_box{key="dws";label="WELD SIZE";edit_width=6;alignment=left;}}}ok_cancel;}")))
 (if dcl-fp (close dcl-fp))(gc)
)
;(C:weld1)

TunzaGibbo · 发表于 2022-7-5 16:06:36

谢谢RLX。
很明显，在lisp上，你比我聪明得多。你送我的那个真的很好用。
这么说来，有没有可能看看我更简单的版本，因为我写了很多其他dcl和LISP，它们的风格都差不多。
我能理解我的风格，因为我熟悉它。
顺便说一句，“deltadtr”是一个局部lisp，我用它表示度到弧度。它工作得很好。

谢谢

rlx · 发表于 2022-7-5 16:15:42

copy


(defun c:weld1 ( /  ddiag dcl_id p1 d1)       
 (defun deltadtr (a) (* pi (/ a 180.0)))
 (setq dcl_id (load_dialog (findfile "weld1.dcl")))
 (if (not (new_dialog "weld1" dcl_id))(exit))
 (action_tile "dws" "(setq d1 (distof (get_tile "dws")))")
 (action_tile "accept" "(done_dialog 1)")
 (action_tile "cancel" "(done_dialog 0)")  
 (setq ddiag (start_dialog))
 (unload_dialog dcl_id)
 (if (= ddiag 1)
   (progn
     (setq p1 (getpoint "\nPick a point "))
     (command-s "_line" p1 (polar p1 (deltadtr 0) d1))
   )
 )
 (princ)
)

思考command-s是否可以（应该）实现技巧和操作

copy

[编程交流] 找不到dia的定义

发表回复

精选推荐