LispVariable更新

woodman78 · 发表于 2022-7-6 10:14:44

我正在为rev框创建一个lisp，并在字段中使用LispVariables将rev数据存储在图形中。在我们的用户信息框之前，我使用下拉列表完成了这项工作，效果很好。我一启动它，它就会从图形中读取变量并更新对话框。我在其中使用了编辑框，但每次运行时它们不会更新到图形中的值。
有谁能帮忙吗？
还有一种方法可以基于第一个包含除“---”以外的任何内容的编辑框来控制块的可见性状态吗？

copy

 
Rev_box : dialog {    //dialog name
     label = "Drawing Revisions" ;  //give it a label
//////////////////////////////////////////////////////////////////////////////////////////// 
       :row {    //define boxed row
//********************************************************* 
      : edit_box {    //define edit box
        key = "ccc_rev1" ;   //give it a name
        label = "Rev" ;   //give it a label
        edit_limit = 2 ;   //6 characters only
        edit_width = 2 ;   //6 characters only
       }
//*********************************************************  
      : edit_box {    //define edit box
        key = "ccc_by1" ;   //give it a name
        label = "By" ;   //give it a label
        edit_limit = 3 ;   //6 characters only
        edit_width = 3 ;   //6 characters only
        }
//********************************************************* 
      : edit_box {    //define edit box
        key = "ccc_date1" ;   //give it a name
        label = "Date" ;   //give it a label
        edit_limit = 10 ;   //6 characters only
        edit_width = 9 ;   //6 characters only
        }
//********************************************************* 
      : edit_box {    //define edit box
        key = "ccc_des1" ;   //give it a name
        label = "Description" ;   //give it a label
        edit_limit = 58 ;   //6 characters only
        edit_width = 42 ;   //6 characters only
        }
//*********************************************************
       :toggle {    //define toggle
       key = "ccc_tog1";    //give it a name
       label = "Line 1";   //give it a label
       }     //end toggle
//*********************************************************  
       }     //end boxed row
ok_cancel ;    //predifined OK/Cancel
    
    }      //end dialog

copy

 
(defun C:rev_box ()     ;define function
 (setq dcl_id (load_dialog "rev_box.dcl"))  ;load dialog
 (if (not (new_dialog "rev_box" dcl_id)   ;test for dialog
     )
   (exit)      ;exit if no dialog
 );if
     (action_tile
   "cancel"      ;if cancel button pressed
   "(done_dialog) (setq userclick nil)"  ;close dialog, set flag
   );action_tile
  (action_tile
   "accept"      ;if O.K. pressed
   " (done_dialog)(setq userclick T))"   ;close dialog, set flag
 );action tile
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(action_tile "ccc_rev1" "(setq ccc_rev_1 $value)")
(action_tile "ccc_by1" "(setq ccc_by_1 $value)")
(action_tile "ccc_date1" "(setq ccc_date_1 $value)")
(action_tile "ccc_des1" "(setq ccc_des_1 $value)")
 (start_dialog)     ;start dialog
  (unload_dialog dcl_id)    ;unload
(princ)
(command "regenall")
);defun C:samp
(princ)

woodman78 · 发表于 2022-7-6 10:23:38

我试图强制平铺句柄接受CAD中变量的值。我用过这个：

copy

 
(defun C:rev_box ()     ;define function
 (setq dcl_id (load_dialog "rev_box.dcl"))  ;load dialog
 (if (not (new_dialog "rev_box" dcl_id)   ;test for dialog
     )
   (exit)      ;exit if no dialog
[color=red] (setq ccc_rev1 ccc_rev_1) 
[/color]  );if
     (action_tile
   "cancel"      ;if cancel button pressed
   "(done_dialog) (setq userclick nil)"  ;close dialog, set flag
   );action_tile
  (action_tile
   "accept"      ;if O.K. pressed
   " (done_dialog)(setq userclick T))"   ;close dialog, set flag
 );action tile
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(action_tile "ccc_rev1" "(setq ccc_rev_1 $value)")
(action_tile "ccc_by1" "(setq ccc_by_1 $value)")
(action_tile "ccc_date1" "(setq ccc_date_1 $value)")
(action_tile "ccc_des1" "(setq ccc_des_1 $value)")
 (start_dialog)     ;start dialog
  (unload_dialog dcl_id)    ;unload
(princ)
(command "regenall")
);defun C:samp
(princ)

这能做到吗？还是我在逆风吹口哨？

woodman78 · 发表于 2022-7-6 10:25:16

所以我发现了我的一些错误。

应如下所示：

copy

 
(defun C:rev_box ()     ;define function
 (setq dcl_id (load_dialog "rev_box.dcl"))  ;load dialog
 (if (not (new_dialog "rev_box" dcl_id)   ;test for dialog
     )
   (exit)      ;exit if no dialog
 );if
[color=red](set_tile "ccc_rev1" ccc_rev_1)[/color] 
     (action_tile
   "cancel"      ;if cancel button pressed
   "(done_dialog) (setq userclick nil)"  ;close dialog, set flag
   );action_tile
  (action_tile
   "accept"      ;if O.K. pressed
   " (done_dialog)(setq userclick T))"   ;close dialog, set flag
 );action tile
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(action_tile "ccc_rev1" "(setq ccc_rev_1 $value)")
(action_tile "ccc_by1" "(setq ccc_by_1 $value)")
(action_tile "ccc_date1" "(setq ccc_date_1 $value)")
(action_tile "ccc_des1" "(setq ccc_des_1 $value)")
 (start_dialog)     ;start dialog
  (unload_dialog dcl_id)    ;unload
(princ)
(command "regenall")
);defun C:samp
(princ)

这在图形中可以正常工作，但当我保存它时，请关闭它，然后返回。当我运行它时，会出现以下错误：
; 错误：错误的参数类型：stringp nil

安东有什么想法吗？

Lt Dan's l · 发表于 2022-7-6 10:30:32

在lisp中尝试setq ccc\u rev\u 1。

尝试以下操作：

copy

 
(defun C:rev_box (/ dcl_id ccc_rev1) 
[color=darkred][b](setq ccc_rev1 ???)[/b][/color]
;;and so on...

ps
编辑帖子，这样其他用户就不必阅读您的所有帖子来提供他们的输入。

woodman78 · 发表于 2022-7-6 10:36:55

谢谢丹中尉的腿，但那没用。问题似乎是，当我在对话框中输入值时，这些值在CAD中被创建为LispVariables，并且我用这些变量设置了字段。如果保存图形并重新打开，字段仍然包含位于最右侧字段对话框顶部的变量，但它们不再在变量列表中。有什么办法吗？有没有办法让CAD保存图形中的字段？

woodman78 · 发表于 2022-7-6 10:41:32

是否有某种方法可以让CAD在lisp完成后存储字段，这样当我再次打开图形时，这些字段仍然存在，并传递到DCL并显示在正确的编辑框中。

BIGAL · 发表于 2022-7-6 10:43:52

之前已经讨论过在dwg搜索中存储数据以获取扩展实体。还可以看看useri1-5 userr1-5 users1-5。

The Buzzard · 发表于 2022-7-6 10:49:36

伍德曼78，

这是可行的。还请注意，我去掉了所有那些无用的评论，并对瓷砖进行了更改。这是您的问题（set\u tile“ccc\u rev1”ccc\u rev\u 1）。
还将此Rev\u框更改为此Rev\u框。

对话

copy


[color=red]rev_box[/color] : dialog { label = "Drawing Revisions";
         : row  {
           : edit_box { label = "Rev";         key = "ccc_rev1";  edit_limit = 2;  edit_width = 2;  }
           : edit_box { label = "By" ;         key = "ccc_by1" ;  edit_limit = 3;  edit_width = 3;  }
           : edit_box { label = "Date";        key = "ccc_date1"; edit_limit = 10; edit_width = 9;  }
           : edit_box { label = "Description"; key = "ccc_des1";  edit_limit = 58; edit_width = 42; }
           : toggle   { label = "Line 1";      key = "ccc_tog1";  }
         }
[color=red]          : button { label = "&Ok";   key = "accept"; width = 18; fixed_width = true; alignment = centered; is_default = true; }  [/color]
[color=red]          : button { label = "&Exit"; key = "cancel"; width = 18; fixed_width = true; alignment = centered; is_cancel = true;  }[/color]
[color=red]        }[/color]

Lisp程序

copy


(defun C:rev_box ()
 [color=red](or ccc_rev_1 (setq ccc_rev_1 "1"))[/color]
 (setq dcl_id (load_dialog "rev_box.dcl"))
 (if (not (new_dialog "rev_box" dcl_id))
   (exit))
 (set_tile [color=red]"ccc_rev1"[/color] ccc_rev_1) 
 (action_tile "ccc_rev1"  "(setq ccc_rev_1  $value)")
 (action_tile "ccc_by1"   "(setq ccc_by_1   $value)")
 (action_tile "ccc_date1" "(setq ccc_date_1 $value)")
 (action_tile "ccc_des1"  "(setq ccc_des_1  $value)")
 (action_tile "cancel"    "(done_dialog)(setq userclick nil)")
 (action_tile "accept"    "(done_dialog)(setq userclick T))")
 (start_dialog)
 (unload_dialog dcl_id)
[color=red] (if userclick[/color]
[color=red]  (progn[/color]
[color=red]    (command "._regenall")))[/color]
[color=red](princ))[/color]

The Buzzard · 发表于 2022-7-6 10:55:48

请参见此处：http://www.afralisp.net/archive/lispa/lisp50.htm

The Buzzard · 发表于 2022-7-6 10:59:30

下面的代码称为RBOX，它设置了所有平铺并填充了默认数据。注意，它们被设置为全局变量。试图为你节省一些时间。
这仅适用于当前绘图任务。有关每次打开图形时从上次绘图任务中保存的数据，请参见上面文章中的链接。

RBOX。dcl

copy


RBOX : dialog { label = "Drawing Revisions";
      : row  {
        : edit_box { label = "Rev";         key = "ccc_rev1";  edit_limit = 2;  edit_width = 2;  }
        : edit_box { label = "By" ;         key = "ccc_by1" ;  edit_limit = 3;  edit_width = 3;  }
        : edit_box { label = "Date";        key = "ccc_date1"; edit_limit = 10; edit_width = 9;  }
        : edit_box { label = "Description"; key = "ccc_des1";  edit_limit = 58; edit_width = 42; }
        : toggle   { label = "Line 1";      key = "ccc_tog1";  }
      }
      : button { label = "&Ok";   key = "accept"; width = 18; fixed_width = true; alignment = centered; is_default = true; }  
      : button { label = "&Exit"; key = "cancel"; width = 18; fixed_width = true; alignment = centered; is_cancel = true;  }
    }

RBOX。lsp

copy


(defun C:RBOX ()
 (or RBOX:ccc_rev_1  (setq RBOX:ccc_rev_1  "1"))
 (or RBOX:ccc_by_1   (setq RBOX:ccc_by_1   "WM"))
 (or RBOX:ccc_date_1 (setq RBOX:ccc_date_1 "10/22/10"))
 (or RBOX:ccc_des_1  (setq RBOX:ccc_des_1  "ISSUED FOR CONSTRUCTION"))
 (or RBOX:ccc_tog_1  (setq RBOX:ccc_tog_1  "1"))
 (setq dcl_id (load_dialog "RBOX.dcl"))
 (if (not (new_dialog "RBOX" dcl_id))
   (exit))
 (set_tile "ccc_rev1"  RBOX:ccc_rev_1)
 (set_tile "ccc_by1"   RBOX:ccc_by_1)
 (set_tile "ccc_date1" RBOX:ccc_date_1)
 (set_tile "ccc_des1"  RBOX:ccc_des_1)
 (set_tile "ccc_tog1"  RBOX:ccc_tog_1)
 (action_tile "ccc_rev1"  "(setq RBOX:ccc_rev_1  $value)")
 (action_tile "ccc_by1"   "(setq RBOX:ccc_by_1   $value)")
 (action_tile "ccc_date1" "(setq RBOX:ccc_date_1 $value)")
 (action_tile "ccc_des1"  "(setq RBOX:ccc_des_1  $value)")
 (action_tile "ccc_tog1"  "(setq RBOX:ccc_tog_1     $value)")
 (action_tile "cancel"    "(done_dialog)(setq userclick nil)")
 (action_tile "accept"    "(done_dialog)(setq userclick T))")
 (start_dialog)
 (unload_dialog dcl_id)
 (if userclick
   (progn
     (command "._regenall")))
 (princ))

[编程交流] LispVariable更新

发表回复

精选推荐