关于LSP调用QSAVE

phoenixdjq

修改filedia变量试一下

另外,qsave是快速保存，你的文件没有名字，肯定要出提示的

如果没有文件名称，你可以这么写 (command "qsave" "文件名")

or

(command "qsave" "")

caoyin

用(getvar "dwgtitled")判断当前图形是否已命名

用 vla-save 可直接储存(无对话框弹出)

TANER

(defun qf_getFolder (msg / WinShell shFolder path catchit)
    (vl-load-com)
    (setq winshell (vlax-create-object "Shell.Application"))
    (setq
      shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1)
    )
    (setq
      catchit (vl-catch-all-apply
  '(lambda ()
     (setq shFolder (vlax-get-property shFolder 'self))
     (setq path (vlax-get-property shFolder 'path))
   )
       )
    )
    (if (vl-catch-all-error-p catchit)
      nil
      path
    )
  )

;用秋枫大吓的

雪山飞狐_lzh

用NetApi or ObjectArx做一个函数给Lisp调用，

clh521

保存时要出现一个对话框是吗？这样就可以了：

……

(initdia)
(command "qsave")

……