如何在LSP中调用CLOSE这个命令

革天明

希望大家不要忘了这个问题，有空可以想一想。

革天明

没有高手能解决这个小问题吗？我在PGP中自定义快捷键也能实现，可最好能在一个ＬＳＰ中实现所有功能而不用再配置PGP了

caoyin

如果不用sendcommand，可以这样：
(if (/= (getvar "dbmod") 0)
  (if (= (getvar "dwgtitled") 0)
    (princ "\n图形尚未第一次保存，且图形被修改。->QSAVE(指定路径)->CLOSE。")
    (princ "\n图形已经第一次保存，但图形被修改，->QSAVE(无需指定路径)->CLOSE。")
  )
  (if (= (getvar "dwgtitled") 0)
    (princ "\n图形尚未第一次保存，且图形未被修改。->CLOSE。")
    (princ "\n图形已经第一次保存，且图形未被修改，->CLOSE。")
  )
)

革天明

caoyin 发表于 2011-10-31 20:28
如果不用sendcommand，可以这样：
(if (/= (getvar "dbmod") 0)
  (if (= (getvar "dwgtitled") 0)

版主，我现在解决了！谢谢您了！~
(defun c:myclose ()
  (vl-load-com)
  (vla-eval (vlax-get-acad-object) "Sendkeys \"close\"")
  (vla-eval (vlax-get-acad-object) "Sendkeys \"{ENTER}\"")
)