求救 LISP 圖塊

ZZXXQQ

2. (defun c:KK ()   
   
3.   (setvar "cmdecho" 0)  ;指令執行過程不響應
   
4.   (princ "\n圖面文字插入圖塊")
   
5.   (while (and (setq s1 (entsel "\n选择文字:"))
   
6.          (setq  ent (entget(car s1)))
   
7.          (= (cdr(assoc 0 ent)) "TEXT"))
   
8.    (setq fnm (strcat "D:/AA/" (cdr(assoc 1 ent)) ".DWG"))
   
9.    (if (findfile fnm)
   
10.     (while (setq p1 (getpoint  "\n插入點: "))
    
11.      (command "insert" fnm p1 "" "" "")
    
12.     )
    
13.    )
    
14.   )
    
15.   (princ)
    
16. )
    

(defun c:KK ()   <br />   (setvar "cmdecho" 0)  ;指令執行過程不響應<br />   (princ "\n圖面文字插入圖塊")<br />   (while (and (setq s1 (entsel "\n选择文字:"))<br />          (setq  ent (entget(car s1)))<br />          (= (cdr(assoc 0 ent)) "TEXT"))<br />    (setq fnm (strcat "D:/AA/" (cdr(assoc 1 ent)) ".DWG"))<br />    (if (findfile fnm)<br />     (while (setq p1 (getpoint  "\n插入點: "))<br />      (command "insert" fnm p1 "" "" "")<br />     )<br />    )<br />   )<br />   (princ)<br /> )<br />

ZZXXQQ

程式改了，再试试

zhd81617

no function definition: SETQENT