重写plot的问题

citykunan

我想重新定义cad的plot命令，将其成为plot+line（只是举个例子）的命令。

2. ;
3. (defun S::STARTUP ()
4. (setvar "cmdecho" 0)
5. (command "undefine" "plot");;取消plot命令
6. (defun c:plot (/ )
7.    
8.    
9.    (command "redefine" "plot");;回复plot命令
10.   ;(command "plot"  )   
11.   (command "line" "0,0" "10,10" "")
12.    
13.   (command "undefine" "plot");;取消plot命令
14.    
15. )
17. )

; (defun S::STARTUP () (setvar "cmdecho" 0) (command "undefine" "plot");;取消plot命令 (defun c:plot (/ )            (command "redefine" "plot");;回复plot命令   ;(command "plot"  )      (command "line" "0,0" "10,10" "")       (command "undefine" "plot");;取消plot命令     ) )

可是我将  ;(command "plot"  )  这一句的分号去掉，我发现还是不能以对话框的方式运行plot命令。有没有什么办法可以将cad的plot命令重写成先运行对话框的plot命令，紧接着再画一条线呢？谢谢
用undefine和redefine可以使cad的内部命令失去作用，有没有什么命令可以将cad的内部命令重新命名啊？比如将plot变成plott，如果可以问题也可以解决

alin

2. ;; This routine is amended from a similar one found
3. ;;; on web (www.cad-manager.com)
4. ;;; Note: Load the code ONCE then start plotting.
5. ;;; Remember to remove all reactors when finish: (Clear_All_Reactors)
6. (vl-load-com)
7. (defun DoThisAfterCommand (Caller CmdSet)
8.   (if (= (car Cmdset) "PLOT")
9.     (entmake '((0 . "LINE")(10 0 0 0)(11 10 10 0)))
10.   )
11.   (princ)
12. )
13. (setq MyReactor1
14.        (vlr-command-reactor
15.   nil
16.   '(
17.     (:vlr-CommandEnded . DoThisAfterCommand)
18.    )
19.        )
20. )
21. (defun Clear_My_Reactors ()
22.   (if (and MyReactor1 (vlr-added-p MyReactor1))
23.     (vlr-remove MyReactor1)
24.   )
25. )
26. (defun Clear_All_Reactors (/ TMP)
27.   (vlr-remove-all :vlr-Command-reactor)
28. )

;; This routine is amended from a similar one found ;;; on web (www.cad-manager.com) ;;; Note: Load the code ONCE then start plotting. ;;; Remember to remove all reactors when finish: (Clear_All_Reactors) (vl-load-com) (defun DoThisAfterCommand (Caller CmdSet)   (if (= (car Cmdset) "PLOT")     (entmake '((0 . "LINE")(10 0 0 0)(11 10 10 0)))   )   (princ) ) (setq MyReactor1        (vlr-command-reactor   nil   '(     (:vlr-CommandEnded . DoThisAfterCommand)    )        ) ) (defun Clear_My_Reactors ()   (if (and MyReactor1 (vlr-added-p MyReactor1))     (vlr-remove MyReactor1)   ) ) (defun Clear_All_Reactors (/ TMP)   (vlr-remove-all :vlr-Command-reactor) )

citykunan

多谢alin,再请教一个问题。在plot对话框显示时，我选择window窗选打印，能不能将我窗选的这两点坐标值获取，同时获得打印机的名称和打印的数量呢？：）

alin

Check out Window Xmax, XMin, YMax and YMin from

HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R16.0\ACAD-202:409\Profiles\YOUR_PROFILE_NAME\Previous plot settings\Layout

citykunan

alin版主给的是网址吗？还是注册码地址？怎么察看啊？

alin

That's a string specifying a Windows registry key.

Use function vl-registry-read can retrieve its value, but not sure if it works properly immediate after the plot command.

citykunan

Thanks. I will try it.

citykunan

Dear,

I try it. But unfortunately, the value of Window Xmax, XMin, YMax and YMin only be updated after close AutoCAD. Actually, what I want to do is get some plot informaton just as printer name, print area, quantity... after plot. Then we can know the print cost for different department and control it. Is it possible? Thanks again.

citykunan

我顶

citykunan

我再顶啊，诸位大侠有没有什么办法啊？？？thanks,thanks,thanks...