（完成）[编程申请]：如何把文字从图纸中单独提取出来，到一个新图层中

fancoil

?

lsjjm

题意有点不清楚, 你是不是想改变文字的图层? 如果是这样, 请看:

2. 
   
3. (defun c:test ( / ss)
   
4.   (vl-load-com)
   
5.   (setq entlay (entsel "\nSelect object on layer to copy from: "))
   
6.   (setq objlay (vla-get-layer (vlax-ename->vla-object (car entlay))))
   
7.   (prompt "\nSelect Texts: ")
   
8.   (setq ss (ssget))
   
9.   (setq n 0)
   
10.   (while (< n (sslength ss))
    
11.     (vla-put-layer (vlax-ename->vla-object (ssname ss n)) objlay)
    
12.     (setq n (1+ n))
    
13.   )
    
14. )

<br /> (defun c:test ( / ss)<br />   (vl-load-com)<br />   (setq entlay (entsel "\nSelect object on layer to copy from: "))<br />   (setq objlay (vla-get-layer (vlax-ename->vla-object (car entlay))))<br />   (prompt "\nSelect Texts: ")<br />   (setq ss (ssget))<br />   (setq n 0)<br />   (while (< n (sslength ss))<br />     (vla-put-layer (vlax-ename->vla-object (ssname ss n)) objlay)<br />     (setq n (1+ n))<br />   )<br /> )

*秋*

啊,我也碰到过这个问题,可是楼上你的回答我看不懂.

lsjjm

看不懂什么?  这是论坛的"编程申请"专栏, 详细的程序码你可能不懂, 但加载运行这个程序就解决问题了?!

eachy

最初由 lsjjm 发布
[B]题意有点不清楚, 你是不是想改变文字的图层? 如果是这样, 请看:

2. 
   
3. (defun c:test ( / ss)
   
4.   (vl-load-com)
   
5.   (setq entlay (entsel "\nSelect object on layer to copy from: "))
   
6.   (setq objlay (vla-get-l...

<br /> (defun c:test ( / ss)<br />   (vl-load-com)<br />   (setq entlay (entsel "\nSelect object on layer to copy from: "))<br />   (setq objlay (vla-get-l...

[/B]

2. 
   
3. ;;来个API的。
   
4. (defun c:test (/ e ss lay)
   
5.   (setq e (xdrx_entsel "\n选择要修改图层文字: " '((0 . "text"))))
   
6.   (if e
   
7.     (progn
   
8.       (xdrx_setenttodb (car e))
   
9.       (setq lay (xdrx_getentdxf 8))
   
10.       (princ "\n选择拾取范围(回车全选)....")
    
11.       (if (not (setq ss (ssget (list (cons 8 lay)))))
    
12.         (setq ss (ssget "x" (list (cons 8 lay))))
    
13.       )
    
14.       (xdrx_setsstodb ss 0)
    
15.       (while (xdrx_getentdata 0)
    
16.         (xdrx_modent 8 lay)
    
17.       )
    
18.     )
    
19.   )
    
20. )

<br /> ;;来个API的。<br /> (defun c:test (/ e ss lay)<br />   (setq e (xdrx_entsel "\n选择要修改图层文字: " '((0 . "text"))))<br />   (if e<br />     (progn<br />       (xdrx_setenttodb (car e))<br />       (setq lay (xdrx_getentdxf 8))<br />       (princ "\n选择拾取范围(回车全选)....")<br />       (if (not (setq ss (ssget (list (cons 8 lay)))))<br />         (setq ss (ssget "x" (list (cons 8 lay))))<br />       )<br />       (xdrx_setsstodb ss 0)<br />       (while (xdrx_getentdata 0)<br />         (xdrx_modent 8 lay)<br />       )<br />     )<br />   )<br /> )

mah

看看行不行

陌生人

1。用快速选择功能选择文字文字
2。把已经选好的文字改图层到指定图层

姚菲菲

1.选中所有图元
2.点击工具栏上的特性
3.单击快速选择
4.　1）选择文字　2）运算符选择全部　3）包括在新选择集中
5.确定后，即选择了所有的文字（在第一步选择的范围内），然后再去选择图层。完毕

fancoil

谢谢，姚菲菲！！！

蓝色缘分

很简单，你把文字复制，到新图层粘贴就可以了