[求助]：谁帮我实现这个功能，谢谢

yaker_77

问题一：
假设选择了包含3个内容的共10个文本，
我想创建三个图层，分别以三种文本的名称命名
然后将所有该内容文本设为该图层

问题二：
以上图层设好后，读取一个文本，然后选择一些图形文件将其设为该文本所在的图层

麻烦高手了，谢谢！

zml84

2. 
   
3. ;;;功能：将text对象放置到以自身内容为图层名称的图层上
   
4. (defun C:TT (/ SS I ENT STR)
   
5.     (if (setq SS (ssget '((0 . "TEXT"))))
   
6.         (progn
   
7.             (setq I 0)
   
8.             (repeat (sslength SS)
   
9.                 (setq ENT (entget (ssname SS I))
   
10.                       STR (cdr (assoc 1 ENT))
    
11.                 )
    
12.                 (setq ENT (subst (cons 8 STR) (assoc 8 ENT) ENT))
    
13.                 (entmod ENT)
    
14.                 (setq I (1+ I))
    
15.             )
    
16.         )
    
17.     )
    
18.     (progn)
    
19. )
    

<br /> ;;;功能：将text对象放置到以自身内容为图层名称的图层上<br /> (defun C:TT (/ SS I ENT STR)<br />     (if (setq SS (ssget '((0 . "TEXT"))))<br />         (progn<br />             (setq I 0)<br />             (repeat (sslength SS)<br />                 (setq ENT (entget (ssname SS I))<br />                       STR (cdr (assoc 1 ENT))<br />                 )<br />                 (setq ENT (subst (cons 8 STR) (assoc 8 ENT) ENT))<br />                 (entmod ENT)<br />                 (setq I (1+ I))<br />             )<br />         )<br />     )<br />     (progn)<br /> )<br />

yaker_77

只能对单行文字，多行文本行吗？谢谢了

我用自然语言描述一下吧：

第二个问题

提示选择文本
--读取该文本的图层
----提示选择图元
----将选择的图元设为该图层
提示选择下一个文本

zml84

已经写到这份上了。。
自己动手或许，会好些。因为控制自己比控制别人会更顺一些。

yaker_77

不好意思，本人刚刚接触LISP，还看不懂

二楼的代码，单行文本非常好用，
我把里面是TEXT改成MTEXT或DTEXT都不能用于多行文字
还要麻烦高手出个手帮我一下，谢谢

第二个问题，我真不知道如何让系统提示我选择图元

xboywind

学习学习

hbshyjch

路过学习一下

nessus

仅学习一下，不过好像没必要吧。