批量在指定文字的位置处插块，求帮忙啊，急用！！

wwchlncad

我是来学习的

渠辉

学习学习学习

zazhz123

ganxie感谢，可用，如果能改成点选图块名更好了

xyp1964

zazhz123 发表于 2025-1-26 15:26
ganxie感谢，可用，如果能改成点选图块名更好了

1. (defun c:tt ()
   
2.   "文字插入点插入图块"
   
3.   (if (and (princ "\n选择文字: ")
   
4.            (setq ss (ssget '((0 . "TEXT"))))
   
5.            (setq tk (cdr (assoc 2 (entget (car (entsel "\n选择图块: "))))))
   
6.       )
   
7.     (progn
   
8.       (setq i -1)
   
9.       (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.         (setq p0 (cdr (assoc 10 (entget s1))))
    
11.         (command "-INSERT" tk p0 1 1 0)
    
12.       )
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )

(defun c:tt ()<br />   "文字插入点插入图块"<br />   (if (and (princ "\n选择文字: ")<br />            (setq ss (ssget '((0 . "TEXT"))))<br />            (setq tk (cdr (assoc 2 (entget (car (entsel "\n选择图块: "))))))<br />       )<br />     (progn<br />       (setq i -1)<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br />         (setq p0 (cdr (assoc 10 (entget s1))))<br />         (command "-INSERT" tk p0 1 1 0)<br />       )<br />     )<br />   )<br />   (princ)<br /> )