社区 › AutoLISP/Visual LISP 编程技术 › 求救 LISP 圖塊

峰峰兒 发表于 2013-7-16 07:41:39

ZZXXQQ 发表于 2013-7-16 08:05:31

本帖最后由 ZZXXQQ 于 2013-7-18 20:39 编辑

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

峰峰兒 发表于 2013-7-17 11:21:33

峰峰兒 发表于 2013-7-18 09:57:42

ZZXXQQ 发表于 2013-7-18 20:40:58

程式改了，再试试

峰峰兒 发表于 2013-7-19 07:18:58

zhd81617 发表于 2013-11-25 12:58:34

no function definition: SETQENT

查看完整版本: 求救 LISP 圖塊