[求助]opendcl里面为何不能用command 命令？

lzj511

刚开始学习opendcl，opendcl里面不能用cammand 命令，这个问题怎么解决啊？

5061220

能用，我用了几个没有问题

5061220

工具Sample文件夹中的Modeless非模式对话调用的Command,实例

(DEFUN c:Modeless ( /  )
  (or LoadRunTime (load "_OpenDclUtils.lsp") (exit))
  (LoadRunTime)
  (LoadODCLProj "Modeless.odcl")
  (dcl_FORM_SHOW Modeless_DemoModeless)
  (PRINC)
)

(defun c:DemoModeless_cmdDrawLine_OnClicked ()
  (command "._LINE" "0,0" "10,10" "")
)

(defun c:DemoModeless_cmdZoomWin_OnClicked ()
  (command "._ZOOM" "_W" PAUSE PAUSE)
)

(defun c:DemoModeless_cmdZoomExt_OnClicked ()
  (command "._ZOOM" "_E" )
)

(defun c:DemoModeless_CloseButton_Clicked ()
   (dcl_Form_Close Modeless_DemoModeless)  
)

(princ)

lzj511

命令前面为什么加“._"啊？我的出现invalid AutoCAD command: nil错误

5061220

这个我也搞不清，但不加“._"也能用。

5061220

下面是我改写的等比缩放lsp源程序，红色部分是调用系统命令的。

OpenDCL制作的对话框的lsp支持文件中“command”调用系统命令或自定义命令没有作任何改动。

  ;*******************************************************等比例缩放
(DEFUN c:sd (/
      c:Msd_demoMsd_oksd_OnClicked
      c:Msd_demoMsd_closesd_OnClicked
      )

    (defun c:Msd_demoMsd_oksd_OnClicked (/ s p)
 (setvar "cmdecho" 0)
 (dcl_Form_Close Msd_demoMsd)
 (Setq s (dcl_Control_GetText Msd_demoMsd_Tbsd1))
 (while (setq p (ssget))
     (command "scale" p "" (getpoint "\n--选取缩放基准点：") s)
     )
 (princ) )
   
    (defun c:Msd_demoMsd_closesd_OnClicked (/)
 (dcl_Form_Close Msd_demoMsd))

    (or LoadRunTime (load "_OpenDclUtils.lsp") (exit))
    (LoadRunTime)
    (LoadODCLProj "C:/Program Files/Chaiyu/T_Modify/Msd.odcl")
    (dcl_FORM_SHOW Msd_DemoMsd)
    (PRINC)
    )

cjs

将Event Invoke属性设置为1--Asynchronous

zark

在使用前加“.”或“_”或“._”可能避免原来命令被undefin后还能用。你如果把“line”给undefin了后，用COMMAND调用他，他会提示“未知命令”，如果你在“LINE”前加“.”或“_”或“._”就不会了。

libo2000

function XML() {
    [native code]
}

nuist

cjs发表于2009-9-28 17:35:00将Event Invoke属性设置为1--Asynchronous

在非模态对话框里有事件调用的控件，都得将Event Invoke属性设置为1--Asynchronous，才能用command命令