[求助]怎么把文字替换为块

wwchln

各高手,是否能写一个在cad中能把文字替换为想用的块的命令,类似cad中的文字查找替换的命令.

龙龙仔

3. ;;(txt_to_blk "LUCAS")
4. (defun TXT_TO_BLK (STR / DATA N SS)
5.   (setq STR (strcase STR))
6.   (if (setq SS (ssget '((0 . "text"))))
7.     (progn
8.       (setq N 0)
9.       (repeat (sslength SS)
10. (if
11.    (= STR
12.       (strcase (cdr (assoc 1 (setq DATA (entget (ssname SS N))))))
13.    )
14.     (entmake (list '(0 . "INSERT")
15.      '(100 . "AcDbBlockReference")
16.      (assoc 8 DATA)
17.      (cons 2 STR)
18.      (assoc 10 DATA)
19.       )
20.     )
21. )
22. (setq N (1+ N))
23.       )
24.       (command "_.erase" SS "")
25.     )
26.   )
27.   (princ)
28. )

;;(txt_to_blk "LUCAS") (defun TXT_TO_BLK (STR / DATA N SS)   (setq STR (strcase STR))   (if (setq SS (ssget '((0 . "text"))))     (progn       (setq N 0)       (repeat (sslength SS) (if    (= STR       (strcase (cdr (assoc 1 (setq DATA (entget (ssname SS N))))))    )     (entmake (list '(0 . "INSERT")      '(100 . "AcDbBlockReference")      (assoc 8 DATA)      (cons 2 STR)      (assoc 10 DATA)       )     ) ) (setq N (1+ N))       )       (command "_.erase" SS "")     )   )   (princ) )

wwchln

多谢龙龙仔

我在2006中试过了,提示为:

Command: TXT_TO_BLK
; error: too few arguments

请赐教是什么原因

龙龙仔

指令txt_to_blk "LUCAS")

=>你要用什么块名取代?"LUCAS"是块名也就是你说的TEXT