求高手编写LISP代码范围内文字合并问题

永不言弃

求高手编写LISP代码范围内文字合并问题，我想通过选择所有的文字，把A附近（一个小范围内）的2（洋红色的）合并成A2，谢谢！！

永不言弃

或者方框里面的文字全部合并也行

004

永不言弃 发表于 2013-9-25 18:00
或者方框里面的文字全部合并也行

解决问题用xyp1964工具箱，超快，超全，外加顶级高手群24小时挫折教育。

永不言弃

哪儿有啊，论坛里面好像没有

newbuser

2. (defun c:gg (/ ss i el e)
   
3.   (setq nr nil)
   
4.   (setq ss (ssget '((0 . "TEXT"))))
   
5.   (setq i 0)
   
6.   (repeat (sslength ss)
   
7.     (setq e (ssname ss i))
   
8.     (setq el (entget e))
   
9.     (setq nr (append nr (list (read (cdr (assoc 1 el))))))
   
10.     (setq i (1+ i)))
    
11.   (princ)
    
12.   )

(defun c:gg (/ ss i el e)<br />   (setq nr nil)<br />   (setq ss (ssget '((0 . "TEXT"))))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq e (ssname ss i))<br />     (setq el (entget e))<br />     (setq nr (append nr (list (read (cdr (assoc 1 el))))))<br />     (setq i (1+ i)))<br />   (princ)<br />   )

这个是text文字合并的，不知对您是否有所帮助

永不言弃

用了没反应

newbuser

在最后加上这一行试试 (print nr)

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

newbuser

2. (defun c:gg (/ ss i el e lst p nr)
   
3.   (setq nr "")
   
4.   (setq ss (ssget '((0 . "TEXT"))))
   
5.   (setq i 0)
   
6.   (repeat (sslength ss)
   
7.     (setq e (ssname ss i))
   
8.     (setq el (entget e))
   
9.     (setq nr (strcat nr (cdr (assoc 1 el))))
   
10.     (setq i (1+ i)))
    
11.   (setq lst (entget (ssname ss 0)))
    
12.   (setq p (assoc 10 lst))
    
13.   (entmake (list '(0 . "TEXT") (cons 1 nr) (cons 10 (cdr p)) (cons 40 5)))
    
14.   (princ)
    
15.   )

(defun c:gg (/ ss i el e lst p nr)<br />   (setq nr "")<br />   (setq ss (ssget '((0 . "TEXT"))))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq e (ssname ss i))<br />     (setq el (entget e))<br />     (setq nr (strcat nr (cdr (assoc 1 el))))<br />     (setq i (1+ i)))<br />   (setq lst (entget (ssname ss 0)))<br />   (setq p (assoc 10 lst))<br />   (entmake (list '(0 . "TEXT") (cons 1 nr) (cons 10 (cdr p)) (cons 40 5)))<br />   (princ)<br />   )

我又重新修改了一下，希望能达到您的满意

永不言弃

非常感谢，可以了