（完成）[编程申请]：自动插入图块的问题

lengliqun

CAD图中有个名称为“1”、“2”、“3”......“11”、“12”的图块，同时有1~12多个正整数，求LSP程序，选定所有正整数，自动在正整数1的中心插入图块“1”,在正整数2的中心插入图块“2”,在正整数3的中心插入图块“3”......在正整数12的中心插入图块“12”，有附件说明，可供调试。谢谢。

eachy

下次发帖说明使用的CAD版本，在R14使用的程序有时比较麻烦，也可能无法满足你的要求。

2. 
   
3. (defun c:tt (/ ss gettextmid ss ssl n elst p str oldos)
   
4.   (defun gettextmid (el / box cen p10)
   
5.     (setq box (textbox el)
   
6.           cen (mapcar '(lambda (x) (/ x 2.))
   
7.                       (apply 'mapcar (cons '+ box))
   
8.               )
   
9.           p10 (cdr (assoc 10 el))
   
10.     )
    
11.     (mapcar '+ p10 cen)
    
12.   )
    
13.   
    
14.   (if (setq ss (ssget '((1 . "#,##,##"))))
    
15.     (progn
    
16.       (command ".undo" "mark")
    
17.       (setq ssl        (sslength ss)
    
18.             n        -1
    
19.             oldos (getvar "osmode")
    
20.       )
    
21.       (setvar "osmode" 0)
    
22.       (repeat ssl
    
23.         (setq e           (ssname ss (setq n (1+ n)))
    
24.               elst (entget e)
    
25.               p           (gettextmid elst)
    
26.               str  (cdr (assoc 1 elst))
    
27.         )
    
28.         (command ".insert" str p "1" "1" "0")
    
29.       )
    
30.       (setvar "osmode" oldos)
    
31.       (command ".undo" "end")
    
32.     )
    
33.   )
    
34.   (princ)
    
35. )

<br /> (defun c:tt (/ ss gettextmid ss ssl n elst p str oldos)<br />   (defun gettextmid (el / box cen p10)<br />     (setq box (textbox el)<br />           cen (mapcar '(lambda (x) (/ x 2.))<br />                       (apply 'mapcar (cons '+ box))<br />               )<br />           p10 (cdr (assoc 10 el))<br />     )<br />     (mapcar '+ p10 cen)<br />   )<br />   <br />   (if (setq ss (ssget '((1 . "#,##,##"))))<br />     (progn<br />       (command ".undo" "mark")<br />       (setq ssl        (sslength ss)<br />             n        -1<br />             oldos (getvar "osmode")<br />       )<br />       (setvar "osmode" 0)<br />       (repeat ssl<br />         (setq e           (ssname ss (setq n (1+ n)))<br />               elst (entget e)<br />               p           (gettextmid elst)<br />               str  (cdr (assoc 1 elst))<br />         )<br />         (command ".insert" str p "1" "1" "0")<br />       )<br />       (setvar "osmode" oldos)<br />       (command ".undo" "end")<br />     )<br />   )<br />   (princ)<br /> )

lengliqun

知道了。
CAD2002测试可用，谢谢。