[API应用]：XDRX_MODENT对块内实体操作。

eachy

用XdRx_ModEnt 配合Nentsel 函数可以方便的对块内实体进行修改，在加上XdRx_Regen 更新图中所有块。适用于对块的简单操作，特定情况下比重新定义块要方便。
以下是两个函数的说明：

2. 
   
3. [COLOR=BLUE]XdRx_ModEnt [/COLOR]
   
4. 
   
5. 功    能：修改实体用(entmod)
   
6. 
   
7. 调用格式：(xdrx_ModEnt <组码1> <修改后的值> [组码2] [修改后的值] ... [组码n] [修改后的值])
   
8. 
   
9. 说    明：组码和修改的值必须配对出现，可以提供多个配对。
   
10. 
    
11. 示    例：将选取的文字字高修改为400,图层修改为mytxt.
    
12.         xdrx_SetSsToDb,xdrx_GetEntData,xdrx_ModEnt配合使用示例。
    
13. 
    
14.         (if (setq ss(ssget '((0 . "text"))))
    
15.             (progn
    
16.                 (xdrx_SetSsToDb ss 0)
    
17.                 (while (setq e (xdrx_GetEntData 0))
    
18.                     (xdrx_ModEnt 40 400 8 "mytxt")
    
19.                 )
    
20.             )
    
21.         )
    

<br /> [COLOR=BLUE]XdRx_ModEnt [/COLOR]<br /> <br /> 功    能：修改实体用(entmod)<br /> <br /> 调用格式：(xdrx_ModEnt <组码1> <修改后的值> [组码2] [修改后的值] ... [组码n] [修改后的值])<br /> <br /> 说    明：组码和修改的值必须配对出现，可以提供多个配对。<br /> <br /> 示    例：将选取的文字字高修改为400,图层修改为mytxt.<br />         xdrx_SetSsToDb,xdrx_GetEntData,xdrx_ModEnt配合使用示例。<br /> <br />         (if (setq ss(ssget '((0 . "text"))))<br />             (progn<br />                 (xdrx_SetSsToDb ss 0)<br />                 (while (setq e (xdrx_GetEntData 0))<br />                     (xdrx_ModEnt 40 400 8 "mytxt")<br />                 )<br />             )<br />         ) <br />

2. 
   
3. [COLOR=BLUE] Nentsel [/COLOR]
   
4. 
   
5. 提示用户指定点来选择对象（图元），得到这个对象所指片段的对象名
   
6. (nentsel [msg])
   
7. 
   
8. nentsel 函数提示用户选择一个对象。除非用户专门指定，否则它将忽略当前的对象捕捉模式。
   
9. 为了给命令行提供更多的支持，
   
10. nentsel 函数支持以前用 initget 定义的关键字。
    
11. 
    
12. 参数
    
13. 
    
14. msg
    
15. 
    
16. 用作提示信息的字符串。如果省略该参数，则显示“选择对象”提示。
    
17. 
    
18. 返回值
    
19. 
    
20. 如果用户选择的不是复杂对象（如三维多段线或块），nentsel 函数返回的信息与 entsel 函数
    
21. 相同。然而，如果所选对象是三维多段线，nentsel 函数返回一个表，其中包含子图元（顶点）
    
22. 名和拾取点坐标。这与 entsel 函数返回的表类似，不同的是 nentsel 函数返回的是三维多段线
    
23. 的所选顶点名，而不是多段线的头部图元名。nentsel 函数总是返回选定多段线段的起始顶点，
    
24. 例如，拾取某多段线的第三段，返回的是该多段线的第三个顶点。nentsel 函数从不返回三维多
    
25. 段线的 SEQEND 图元。
    
26. 
    
27. 注意 在图形数据库中，优化多段线定义为简单图元。它不包含子图元。
    
28. 选择块参照中的属性时，nentsel 返回该属性的属性名和拾取点坐标。如果选取的是块参照的一
    
29. 个部件而不是属性，nentsel 返回一个包含四个元素的表。
    
30. 拾取了块中的对象而返回的表中，[COLOR=RED]第一个元素是被选中图元的图元名[/COLOR]，第二个元素是一个表，其
    
31. 中包含用户拾取该对象时指定点的坐标。
    
32. 第三个元素称为模型坐标系到世界坐标系的转换矩阵，它是一个包含四个子表的表，四个子表中
    
33. 的每一个都包含了一个坐标集。该矩阵可以用来将图元定义数据中的点从称为模型坐标系 (MCS)
    
34. 的内部坐标系转换为世界坐标系 (WCS)。MCS 的原点是包含所选图元的块的插入点，而 MCS 轴的
    
35. 方向则由创建该块时 UCS 的方向决定。
    
36. 
    
37. 注意 nentsel 是唯一一个使用这种类型矩阵的 AutoLISP 函数。nentselp 函数返回的矩阵与其
    
38. 他 AutoLISP 和 ObjectARX 函数使用的矩阵类似。
    
39. 第四个元素是一个表，它包含了选定对象所在块的图元名。若所选的对象内含在嵌套块中（即块
    
40. 中块），则该表会包括内含该对象的所有块的图元名。该表的排列顺序是从最内层的块开始，向
    
41. 外层推，直到遇到插入图形中的最外层块才结束。
    
42. 关于将 MCS 坐标转换为 WCS 坐标的信息，请参见Visual LISP 开发人员手册的用 AutoLISP 操
    
43. 纵 AutoCAD 对象一章中的图元上下文和坐标转换数据。
    
44. 
    
45. 样例
    
46. 
    
47. 使用线段来绘制一条三维多段线，然后加载并执行下列函数，选择直线的不同线段。取消拾取某
    
48. 条线段，然后重新拾取它，以此来观察子图元的处理。然后在一条优化多段线上重复上述操作，
    
49. 观察其中的区别。
    
50. 
    
51. (defun c:subent ()
    
52.   (while   
    
53.      (setq Ent (entsel "\nPick an entity: "))
    
54.      (print (strcat "Entity handle is: "
    
55.           (cdr (assoc 5 (entget (car Ent))))))
    
56.    )
    
57.    (while   
    
58.       (setq Ent (nentsel "\nPick an entity or subEntity: "))
    
59.       (print (strcat "Entity or subEntity handle is:  "
    
60.           (cdr (assoc 5 (entget (car Ent))))))
    
61.    )
    
62.   (prompt "\nDone.")
    
63.   (princ)
    
64. 
    
65. )

<br /> [COLOR=BLUE] Nentsel [/COLOR]<br /> <br /> 提示用户指定点来选择对象（图元），得到这个对象所指片段的对象名<br /> (nentsel [msg]) <br /> <br /> nentsel 函数提示用户选择一个对象。除非用户专门指定，否则它将忽略当前的对象捕捉模式。<br /> 为了给命令行提供更多的支持，<br /> nentsel 函数支持以前用 initget 定义的关键字。<br /> <br /> 参数<br /> <br /> msg <br /> <br /> 用作提示信息的字符串。如果省略该参数，则显示“选择对象”提示。<br /> <br /> 返回值<br /> <br /> 如果用户选择的不是复杂对象（如三维多段线或块），nentsel 函数返回的信息与 entsel 函数<br /> 相同。然而，如果所选对象是三维多段线，nentsel 函数返回一个表，其中包含子图元（顶点）<br /> 名和拾取点坐标。这与 entsel 函数返回的表类似，不同的是 nentsel 函数返回的是三维多段线<br /> 的所选顶点名，而不是多段线的头部图元名。nentsel 函数总是返回选定多段线段的起始顶点，<br /> 例如，拾取某多段线的第三段，返回的是该多段线的第三个顶点。nentsel 函数从不返回三维多<br /> 段线的 SEQEND 图元。<br /> <br /> 注意 在图形数据库中，优化多段线定义为简单图元。它不包含子图元。<br /> 选择块参照中的属性时，nentsel 返回该属性的属性名和拾取点坐标。如果选取的是块参照的一<br /> 个部件而不是属性，nentsel 返回一个包含四个元素的表。<br /> 拾取了块中的对象而返回的表中，[COLOR=RED]第一个元素是被选中图元的图元名[/COLOR]，第二个元素是一个表，其<br /> 中包含用户拾取该对象时指定点的坐标。<br /> 第三个元素称为模型坐标系到世界坐标系的转换矩阵，它是一个包含四个子表的表，四个子表中<br /> 的每一个都包含了一个坐标集。该矩阵可以用来将图元定义数据中的点从称为模型坐标系 (MCS) <br /> 的内部坐标系转换为世界坐标系 (WCS)。MCS 的原点是包含所选图元的块的插入点，而 MCS 轴的<br /> 方向则由创建该块时 UCS 的方向决定。<br /> <br /> 注意 nentsel 是唯一一个使用这种类型矩阵的 AutoLISP 函数。nentselp 函数返回的矩阵与其<br /> 他 AutoLISP 和 ObjectARX 函数使用的矩阵类似。<br /> 第四个元素是一个表，它包含了选定对象所在块的图元名。若所选的对象内含在嵌套块中（即块<br /> 中块），则该表会包括内含该对象的所有块的图元名。该表的排列顺序是从最内层的块开始，向<br /> 外层推，直到遇到插入图形中的最外层块才结束。<br /> 关于将 MCS 坐标转换为 WCS 坐标的信息，请参见Visual LISP 开发人员手册的用 AutoLISP 操<br /> 纵 AutoCAD 对象一章中的图元上下文和坐标转换数据。<br /> <br /> 样例<br /> <br /> 使用线段来绘制一条三维多段线，然后加载并执行下列函数，选择直线的不同线段。取消拾取某<br /> 条线段，然后重新拾取它，以此来观察子图元的处理。然后在一条优化多段线上重复上述操作，<br /> 观察其中的区别。<br /> <br /> (defun c:subent ()<br />   (while   <br />      (setq Ent (entsel "\nPick an entity: "))<br />      (print (strcat "Entity handle is: " <br />           (cdr (assoc 5 (entget (car Ent))))))<br />    )<br />    (while   <br />       (setq Ent (nentsel "\nPick an entity or subEntity: "))<br />       (print (strcat "Entity or subEntity handle is:  " <br />           (cdr (assoc 5 (entget (car Ent))))))<br />    )<br />   (prompt "\nDone.")<br />   (princ)<br /> <br /> )

例如修改块内某一文字：STR 为新字串
(setq e (nentsel "\n选择文字: "))
(xdrx_setenttodb e)
(modent 1 STR)