[讨论]：是否可把它透明使用

yjtdkj

下面这个程序是一位兄弟编的局部重画命令，不知道能不能把它变为透明命令？

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. (defun c:rew(/ ENT I LENG SSET)
   
6.   (princ "\n请选择需要重画的对象")
   
7.         (setq sset (ssget)
   
8.         leng (sslength sset)
   
9.         )
   
10.         (setq i 0)
    
11.         (while (< i leng)
    
12.                 (setq ent (ssname sset i))   
    
13.                 (entmod (entget ent))
    
14.                 (setq i (+ i 1))
    
15.         )
    
16. )
    
17. 
    
18.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> (defun c:rew(/ ENT I LENG SSET)<br />   (princ "\n请选择需要重画的对象")<br />         (setq sset (ssget)<br />         leng (sslength sset)<br />         )<br />         (setq i 0)<br />         (while (< i leng)<br />                 (setq ent (ssname sset i))   <br />                 (entmod (entget ent))<br />                 (setq i (+ i 1))<br />         )<br /> )<br /> <br />   [/FONT]<br />

zxq0220

可以透明使用。只要键入'rew就行。

Underway

Command:
from point :   to Point :  from point :   to Point : 'new

Invalid point.
  to Point :

说明:
这是在 Lisp 程序执行期
呼叫 'new 的回应

AutoCAD内建的命令执行期如二楼所言