XD::InsertBlockWithoutAttributes

marting

1. ;;; 函数名称: XD::InsertBlockWithoutAttributes
   
2. ;;; 功能: 在指定点插入块，并临时禁用属性请求 (ATTREQ) 以避免用户输入属性值。
   
3. ;;; 参数:
   
4. ;;;   - BLK (字符串): 要插入的块名称。
   
5. ;;;   - PT (点坐标列表): 插入块的位置，例如 (list x y)。
   
6. ;;; 返回值: 块实体名
   
7. ;;;   - 无返回值，直接在当前图形中插入块。
   
8. (defun XD::InsertBlockWithoutAttributes (blk pt / oatt)
   
9.   ;; 记录当前的 attreq 设置
   
10.   (setq oatt (getvar "attreq"))
    
11. 
    
12.   ;; 禁用属性请求，避免弹出输入框
    
13.   (setvar "attreq" 0)
    
14. 
    
15.   ;; 执行插入块命令
    
16.   (command "-insert")
    
17.   (command blk) ;; 块名称
    
18.   (command "non") ;; 非正交模式插入
    
19.   (command pt) ;; 插入点
    
20. 
    
21.   ;; 等待命令完成
    
22.   (while (= 1 (getvar "cmdactive")) (command ""))
    
23. 
    
24.   ;; 还原原来的 attreq 设置
    
25.   (setvar "attreq" oatt)
    
26.   (entlast)
    
27. )
    

;;; 函数名称: XD::InsertBlockWithoutAttributes<br /> ;;; 功能: 在指定点插入块，并临时禁用属性请求 (ATTREQ) 以避免用户输入属性值。<br /> ;;; 参数:<br /> ;;;   - BLK (字符串): 要插入的块名称。<br /> ;;;   - PT (点坐标列表): 插入块的位置，例如 (list x y)。<br /> ;;; 返回值: 块实体名<br /> ;;;   - 无返回值，直接在当前图形中插入块。<br /> (defun XD::InsertBlockWithoutAttributes (blk pt / oatt) <br />   ;; 记录当前的 attreq 设置<br />   (setq oatt (getvar "attreq"))<br /> <br />   ;; 禁用属性请求，避免弹出输入框<br />   (setvar "attreq" 0)<br /> <br />   ;; 执行插入块命令<br />   (command "-insert")<br />   (command blk) ;; 块名称<br />   (command "non") ;; 非正交模式插入<br />   (command pt) ;; 插入点<br /> <br />   ;; 等待命令完成<br />   (while (= 1 (getvar "cmdactive")) (command ""))<br /> <br />   ;; 还原原来的 attreq 设置<br />   (setvar "attreq" oatt)<br />   (entlast)<br /> )<br />