从LSP调用DCL

sanderson · 发表于 2022-7-6 10:21:50

你好：

我想调用这个ync程序，让它加载dcl对话框。两个程序保存在同一文件夹中，并在路径中识别。

实际上，ync可能会被合并到我新定义的quit命令中。该命令可以使用特定的保存选项（AutoCAD Mechanical或Vanilla的早期版本）保存图形，也可以退出。

根据我的理解，如果我键入“ync”，下面的代码应该运行。然而，我得到了一个无效的命令错误。LISP代码在我们的mnl文件中，如果这是一个问题？

非常感谢您在此提供的任何理解。

ync lisp代码：
（defun c:ync（/dcl\u ync\u id）
（setq dcl\u ync\u id（加载对话框“ync.dcl”）
（如果（不是（新对话框“退出”dcl\U ync\U id））
（退出）

)
（action\u tile“Yes”“（setq cmd（$key）（done\u对话框）”）
（action\u tile“No”“（setq cmd（$key）（done\u对话框）”）
（action\u tile“Cancel”“（setq cmd（$key）（done\u对话框）”）
（start_对话框）
（unload\u对话框dcl\u ync\u id）
（命令cmd）
)

ync dcl代码：
//ync。dcl
//对话框，用于从AutoLISP中引用“是”、“否”和“取消”选项
//
ync：对话框{
label=“保存图形？”；
：text\u部分{
label=“图纸将保存到AutoCAD Mechanical 2006或AutoCAD 2004，具体取决于使用的轮廓…”；
}
：行{
：按钮{
key=“是”；
label=“是”；
助记符=“Y”；
固定宽度=true；
}
：按钮{
key=“否”；
标签=“否”；
助记符=“N”；
固定宽度=true；
}
：按钮{
key=“取消”；
label=“取消”；
助记符=“C”；
固定宽度=true；
}
}
}

The Buzzard · 发表于 2022-7-6 10:27:04

只是快速看一下。

（defun c:ync（/dcl\u ync\u id）
（setq dcl\u ync\u id（加载对话框“ync.dcl”）
（if（not（新对话框“ync”dcl\u ync\u id））
（退出）

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

代码中的其他一些错误

copy


(defun c:ync(/ dcl_ync_id)
 (setq dcl_ync_id (load_dialog "ync.dcl"))
 (if (not (new[color=red]_[/color]dialog "ync" dcl_ync_id))
   (exit))
 (action_tile "Yes"    "(setq cmd ($key)(done_dialog)" )
 (action_tile "No"     "(setq cmd ($key)(done_dialog)" )
 (action_tile "Cancel" "(setq cmd ($key)(done_dialog)" )
 (start_dialog)
 (unload_dialog dcl_ync_id)
 (command cmd)

The Buzzard · 发表于 2022-7-6 10:35:40

dcl文件中也有问题。我现在正在看。

sanderson · 发表于 2022-7-6 10:39:46

在这里的某个地方，输入上有一个格式错误的列表。你看到了吗？？

（defun c:ync（/dcl\u ync\u id）
（setq dcl\u ync\u id（加载对话框“ync.dcl”）
（if（not（new\u dialog“ync”dcl\u ync\u id））
（退出）

)
（action\u tile“Yes”“（setq cmd（$key）（done\u对话框）”）
（action\u tile“No”“（setq cmd（$key）（done\u对话框）”）
（action\u tile“Cancel”“（setq cmd（$key）（done\u对话框）”）
（start_对话框）
（unload\u对话框dcl\u ync\u id）
（命令cmd）
)

The Buzzard · 发表于 2022-7-6 10:42:43

你错过了一个括号看看我贴的代码。

copy


(defun c:ync(/ dcl_ync_id)
(setq dcl_ync_id (load_dialog "ync.dcl")[color=red])[/color]
(if (not (new_dialog "ync" dcl_ync_id))
(exit)
)
(action_tile "Yes" "(setq cmd ($key) (done_dialog)" )
(action_tile "No" "(setq cmd ($key) (done_dialog)" )
(action_tile "Cancel" "(setq cmd ($key) (done_dialog)" )
(start_dialog)
(unload_dialog dcl_ync_id)
(command cmd)
)

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

这是dcl，您需要根据自己的喜好进行调整。

copy


// ync.dcl
// Dialog box for yes, no, cancel options to be referenced from AutoLISP
// 
ync: dialog {
    label = "Save Drawing?";
    : text_part {
      label = "Drawing will be saved to AutoCAD Mechanical 2006 or AutoCAD 2004 depending on profile used... ";
    }
    : row {
     : button { label = "&Yes";  key = "Yes";    is_Yes = true; }
     : button { label = "&No";   key = "No";     is_No = true; }
     : button { label = "&Exit"; key = "cancel"; is_cancel = true;  }
    }
  }