文字内容替换用反应器来做自觉更方便

crazylsp

2. 
   
3. (DEFUN C:CC ()
   
4. 
   
5.     (vlr-command-reactor nil '(( :vlr-commandEnded .  gv ))) ;;构造 AutoCAD 命令反应器，对命令事件(结束命令事件)给出通知
   
6. )
   
7. ;;调用回调函数  reactor_object 调用回调函数的 VLR 对象; list 包含单个元素的表 [字符串表示命令名]
   
8. (defun  gv (reactor_object list / )
   
9.    (setq  obj    (vlax-get-acad-object)) ;;返回CAD系统组件
   
10.    (setq  docu   (vla-get-activedocument obj)) ;;返回CAD当前活动文档
    
11.    (setq  mspace (vla-get-modelspace docu)) ;;返回CAD模型空间
    
12.    (setq txtobj1 (vlax-ename->vla-object (entlast))) ;;返回最后一个 AutoLISP 类型的对象名转换为 VLA 对象
    
13.    (setq str0    (vla-get-TextString  txtobj1)) ;;返回最后一个VLA 对象的文字内容
    
14.    ;(setq pt      (vla-get-InsertionPoint txtobj1)) ;;返回最后一个VLA 对象的插入点位置
    
15.    ;(setq pt      (vlax-safearray->list (vlax-variant-value pt))) ;;插入点变体转化成AutoLISP 类型变量
    
16.   
    
17.    ;(setq pt      (list(car pt)(cadr pt)(caddr pt)))
    
18.    ;(setq pt1     (polar pt 2.355 2))
    
19.    ;(setq pt2     (polar pt 5.495 2))  
    
20.   
    
21.    ;(setq ss1    (vla-get-SelectionSets docu))
    
22.    ;(setq txtobj (vla-selectatpoint  (setq ss2(vla-add ss1 "ljs000" )) pt  nil nil))
    
23.    ;(setq txtobj (vla-select ss1 pt1 pt2  nil nil))
    
24.    ;(vla-RemoveItems ss1 "ljs000" )
    
25.    ;(vla-addItems ss2 txtobj )
    
26.    ;(setq en      (ssname (ssget  pt ) 0 ))  ;;选择插入点位置的AutoLISP 类型的对象
    
27.    ;(if (null en)
    
28.      ;(setq en      (ssname (ssget  pt1 ) 0 ))  
    
29.    ; )
    
30.     ;(if (null en)
    
31.      ;(setq en      (ssname (ssget  pt2 ) 0 ))  
    
32.     ;)
    
33. 
    
34.    ;(setq en      (ssname (ssget pt ) 0 ))
    
35.    (setq en      (car (entsel"\npick text") ))
    
36.    (setq txtobj  (vlax-ename->vla-object en)) ;;返回 AutoLISP 类型的对象名转换为 VLA 对象
    
37.    (vla-delete txtobj1) ;; 删除最后一个VLA 的文字对象
    
38.    (vla-put-TextString  txtobj  str0) ;;将文字内容赋予下方的文字VLA 对象
    
39. )
    

<br /> (DEFUN C:CC ()<br /> <br />     (vlr-command-reactor nil '(( :vlr-commandEnded .  gv ))) ;;构造 <a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a> 命令反应器，对命令事件(结束命令事件)给出通知<br /> )<br /> ;;调用回调函数  reactor_object 调用回调函数的 VLR 对象; list 包含单个元素的表 [字符串表示命令名]<br /> (defun  gv (reactor_object list / ) <br />    (setq  obj    (vlax-get-acad-object)) ;;返回CAD系统组件<br />    (setq  docu   (vla-get-activedocument obj)) ;;返回CAD当前活动文档<br />    (setq  mspace (vla-get-modelspace docu)) ;;返回CAD模型空间<br />    (setq txtobj1 (vlax-ename->vla-object (entlast))) ;;返回最后一个 AutoLISP 类型的对象名转换为 VLA 对象<br />    (setq str0    (vla-get-TextString  txtobj1)) ;;返回最后一个VLA 对象的文字内容<br />    ;(setq pt      (vla-get-InsertionPoint txtobj1)) ;;返回最后一个VLA 对象的插入点位置<br />    ;(setq pt      (vlax-safearray->list (vlax-variant-value pt))) ;;插入点变体转化成AutoLISP 类型变量<br />   <br />    ;(setq pt      (list(car pt)(cadr pt)(caddr pt)))<br />    ;(setq pt1     (polar pt 2.355 2)) <br />    ;(setq pt2     (polar pt 5.495 2))  <br />   <br />    ;(setq ss1    (vla-get-SelectionSets docu)) <br />    ;(setq txtobj (vla-selectatpoint  (setq ss2(vla-add ss1 "ljs000" )) pt  nil nil))<br />    ;(setq txtobj (vla-select ss1 pt1 pt2  nil nil))<br />    ;(vla-RemoveItems ss1 "ljs000" )<br />    ;(vla-addItems ss2 txtobj )<br />    ;(setq en      (ssname (ssget  pt ) 0 ))  ;;选择插入点位置的AutoLISP 类型的对象<br />    ;(if (null en) <br />      ;(setq en      (ssname (ssget  pt1 ) 0 ))  <br />    ; )<br />     ;(if (null en) <br />      ;(setq en      (ssname (ssget  pt2 ) 0 ))  <br />     ;)<br /> <br />    ;(setq en      (ssname (ssget pt ) 0 ))<br />    (setq en      (car (entsel"\npick text") ))<br />    (setq txtobj  (vlax-ename->vla-object en)) ;;返回 AutoLISP 类型的对象名转换为 VLA 对象<br />    (vla-delete txtobj1) ;; 删除最后一个VLA 的文字对象<br />    (vla-put-TextString  txtobj  str0) ;;将文字内容赋予下方的文字VLA 对象<br /> )<br />

【KAIXIN】

  不过反应器CAD似乎玩不起！

429014673

错误: 输入的列表有缺陷

chg

这个有没有时间延迟？如果没有延迟很容易产生误操作吧，其实循环选取也是可以接受的，不过楼主的思路很新颖。

crazylsp

谢谢。
有这个问题反应器要做得尽量简单，否则CAD带不动。
楼上改好了，不过都是按自己的想法， 目的是不要选错，又懒得输文字内容替换程序的命令。
有想改进功能的朋友自己可以修改。呵呵

完整武器

我不会用哦 点了文字就没有了