重写plot的问题

龙龙仔

http://discussion.autodesk.com/thread.jspa?messageID=4195793

(defun C:PLOTT (/)

  (initdia)

  (command "_.PLOT")

  (vla-eval (vlax-get-acad-object)

            (strcat "Sendkeys \"{ESC}\"")

  )

  (command "line" "non" "0,0" "non" "10,10" "")

  (princ)

)

 

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=18041

 

citykunan

现在又办法可以得到pagesetup后的打印比例和所用图幅，但是当只是plot后的好像还是不能得到，不知有没有办法

 

;;;得到打印(pagesetup)的图幅和比例
; !scalen  可以看到打印的比例
; !scaled  可以看到打印的比例
; !paperw  可以看到打印的图幅
; !paperh  可以看到打印的图幅
;;;

(defun c:aaa ( / acadApp ThisDwg   paperW paperH scaleN scaleD )
(setq acadApp (vlax-get-acad-object)
     ThisDwg (vla-get-activedocument acadApp)
     CurLayout (vla-get-activelayout ThisDwg)
)
(vla-refreshplotdeviceinfo CurLayout)
 
(vla-getpapersize CurLayout 'paperW 'paperH)

 (vla-getcustomscale CurLayout 'scaleN 'scaleD)
(princ (strcat "\n" (rtos paperW 2 4)))
(princ (strcat "\n" (rtos paperH 2 4)))
(princ (strcat "\n" (rtos scaleN 2 4)))
(princ (strcat "\n" (rtos scaleD 2 4)))
(princ)

)

龙龙仔

看不懂说什么?但你有勾选......

你

citykunan

请问龙班主，将变量存储至配置是哪一个系统变量啊？

imergang

我想问你一下，如果我想在弹出打印对话框前再做其他的事情（比如打印申请等自定义的命令）应该怎么做，我把vlr-CommandEnded换成了:vlr-commandWillStart，用（comman "命令"+参数）的形式就出;”错误: invalid AutoCAD command: nil“的错误，我应该怎么做才能执行上边的命令，谢谢！

suyaozhi

不懂，