[其他]：理正修改的几个cad命令(打开，或关闭)

aeo

关闭("copyclip""cutclip""pasteclip""matchprop""copybase""pasteorig")的修改

2. 
   
3. (defun c:-lzlz()
   
4. (command "undo""group")
   
5.   (command ".painter" ^C)
   
6.   (foreach x '("copyclip""cutclip""pasteclip""matchprop""copybase""pasteorig")
   
7.      (set(read(strcat"c:" x)) nil)
   
8.      (command ".redefine" x)
   
9.    )(command "undo""end")
   
10. (princ)
    
11. )
    

<br /> (defun c:-lzlz()<br /> (command "undo""group")<br />   (command ".painter" ^C)<br />   (foreach x '("copyclip""cutclip""pasteclip""matchprop""copybase""pasteorig")<br />      (set(read(strcat"c:" x)) nil)<br />      (command ".redefine" x)<br />    )(command "undo""end")<br /> (princ)<br /> )<br />

打开("copyclip""cutclip""pasteclip""matchprop""copybase""pasteorig") 的修改

2. 
   
3. (defun c:lzlz()
   
4.    (command "undo""group")
   
5.      (if is_passed
   
6.     (progn
   
7.       (command ".undefine" "copyclip" ".undefine" "cutclip" ".undefine" "pasteclip"
   
8.                ".painter" ^C ".undefine" "matchprop" ".undefine" "copybase" ".undefine"
   
9.                "pasteorig"
   
10.     )
    
11.        (load (strcat _prefix  "yujiazai"))
    
12.     )
    
13.     (_modent_)
    
14.   )(command "undo""end")(princ)
    
15. )
    

<br /> (defun c:lzlz()<br />    (command "undo""group")<br />      (if is_passed<br />     (progn <br />       (command ".undefine" "copyclip" ".undefine" "cutclip" ".undefine" "pasteclip"<br />                ".painter" ^C ".undefine" "matchprop" ".undefine" "copybase" ".undefine"<br />                "pasteorig"<br />     )<br />        (load (strcat _prefix  "yujiazai"))<br />     )<br />     (_modent_)<br />   )(command "undo""end")(princ)<br /> )<br />

zfhqj

哦，谢谢指点

neo

个人认为，理正的一些命令很好用，但是没有必要修改CAD的命令。

Archblues

请问这些命令都是干吗的？