[求助]：请编一个文本间复制的程序

sailorjt · 发表于 2006-10-12 09:30:14

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

设想是这样的：首先选择文本A，再选择文本B，回车后使文本A的内容自动复制到文本B。
这个在工作中蛮常用的。
我自己编时，选择搞不清楚，选择集内的前后怎么区分？
有高手最好能将代码都写出来，谢谢。

qjcpj · 发表于 2006-10-13 19:37:25

我用vlisp编过一个，如果需要，我可上传。

sailorjt · 发表于 2006-10-15 10:54:27

谢谢，请上传一下。

qjcpj · 发表于 2006-10-16 01:00:06

加载后使用键入dim_wz_edit启动；另代码中还含“将数据拷贝至黑板名称空间变量REPLACE_WZ中”及“取黑板名称空间变量REPLACE_WZ更新所选文字或标注尺寸”两个模块。

(defun load_vlsp_start ()
(vl-load-com)
(setq acadObject (vlax-get-acad-object))
(setq acadDocument (vla-get-ActiveDocument acadObject))
(setq mSpace (vla-get-ModelSpace acadDocument))
)
(defun cxcshsz ()
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(graphscr)
)
(defun rtod (rang)
(* rang (/ 180 pi))
)
;取源实体(标注实体)replace_wz
(defun q_bzst_replace_wz ()
(setq selc_TextPrefix (vlax-get-property selc_dim_object 'TextPrefix))
(setq selc_TextSuffix (vlax-get-property selc_dim_object 'TextSuffix))
(cond
((and (= selc_bz_name "AcDbRadialDimension")
(= selc_TextPrefix "")
)
(setq selc_TextPrefix "R")
)
((and (= selc_bz_name "AcDbDiametricDimension")
(= selc_TextPrefix "")
)
(setq selc_TextPrefix "%%c")
)
((= selc_bz_name "AcDb2LineAngularDimension")
(setq selc_TextSuffix "%%d")
)
)
(setq rz_edit (vlax-get-property selc_dim_object 'TextOverride))
(if (= selc_bz_name "AcDb2LineAngularDimension")
(progn
(setq rz_measure (vlax-get-property selc_dim_object 'Measurement))
(setq rz_measure (rtod rz_measure))
(setq rz_measure (rtos rz_measure 2 4))
)
(progn
(setq rz_measure (rtos (vlax-get-property selc_dim_object 'Measurement) 2 4))
)
)
(if (/= rz_edit "")
(setq replace_wz rz_edit)
(progn
(cond
((and (/= selc_TextPrefix "")
(/= selc_TextSuffix "")
)
(setq replace_wz (strcat selc_TextPrefix (strcat rz_measure selc_TextSuffix)))
)
((and (/= selc_TextPrefix "")
(= selc_TextSuffix "")
)
(setq replace_wz (strcat selc_TextPrefix rz_measure))
)
((and (= selc_TextPrefix "")
(/= selc_TextSuffix "")
)
(setq replace_wz (strcat rz_measure selc_TextSuffix))
)
((and (= selc_TextPrefix "")
(= selc_TextSuffix "")
)
(setq replace_wz rz_measure)
)
)
)
)
)
(defun c:wz_copy (/ text_str selc_ys acadObject
acadDocument mSpace selc_dim_object
selc_bz_name replace_wz selc_TextPrefix
selc_TextSuffix rz_edit rz_measure
)
(cxcshsz)
(setq text_str (getstring "\n拷贝模式[选择对象(Y)/输入尺寸(N)]<选择对象>:"))
(if(/= (strcase text_str) "N")
(progn
(setq selc_ys (car (entsel "\n请选取文字或标注实体: ")))
(if (/= selc_ys nil)
(progn
(load_vlsp_start)
(setq selc_dim_object (vlax-ename->vla-object selc_ys))
(vla-update selc_dim_object)
(setq selc_bz_name (vlax-get-property selc_dim_object 'ObjectName))
(if (or (= selc_bz_name "AcDbText")(= selc_bz_name "AcDbMText"))
(setq replace_wz (vlax-get-property selc_dim_object 'TextString))
)
(cond
((or (= selc_bz_name "AcDbText")
(= selc_bz_name "AcDbMText")
)
(setq replace_wz (vlax-get-property selc_dim_object 'TextString))
(vl-bb-set 'replace_wz replace_wz)
(alert (strcat "\n已将数据"" replace_wz ""拷贝至黑板名称空间变量REPLACE_WZ中！"))
)
((or (= selc_bz_name "AcDbRotatedDimension")
(= selc_bz_name "AcDbAlignedDimension")
(= selc_bz_name "AcDbOrdinateDimension")
(= selc_bz_name "AcDb2LineAngularDimension")
(= selc_bz_name "AcDbRadialDimension")
(= selc_bz_name "AcDbDiametricDimension")
)
(q_bzst_replace_wz)
(vl-bb-set 'replace_wz replace_wz)
(alert (strcat "\n已将数据"" replace_wz ""拷贝至黑板名称空间变量REPLACE_WZ中！"))
)
(t (alert "\n本模块不能处理所选实体！"))
)
(if (= (vlax-object-released-p selc_dim_object) nil)
(vlax-release-object selc_dim_object)
)
)
(progn
(alert "\n 未选中文字或标注实体！")
)
)
)
(progn
(setq replace_wz (getstring "\n输入文字:"))
(if (/= replace_wz nil)
(progn
(vl-bb-set 'replace_wz replace_wz)
(alert (strcat "\n已将数据"" replace_wz ""拷贝至黑板名称空间变量REPLACE_WZ中！"))
)
(progn
(if (= (vl-bb-ref 'replace_wz) nil)
(alert "\n未输入文字，且黑板名称空间变量REPLACE_WZ为空！")
(alert (strcat "\n未输入文字，默认黑板名称空间变量REPLACE_WZ为"" replace_wz ""！"))
)
)
)
)
)
(princ)
)
(defun c:wz_edit (/ acadObject acadDocument mSpace
replace_wz selc_ys2 selc_dim_object2
selc_bz_name2
)
(setq replace_wz (vl-bb-ref 'replace_wz))
(if (= replace_wz nil)
(progn
(alert "\n 源实体数据不存在！")
)
(progn
(load "replace")
(cxcshsz)
(setq selc_ys2 (car (entsel "\n请选取文字或标注实体: ")))
(if (/= selc_ys2 nil)
(progn
(load_vlsp_start)
(setq selc_dim_object2 (vlax-ename->vla-object selc_ys2))
(vla-update selc_dim_object2)
(setq selc_bz_name2 (vlax-get-property selc_dim_object2 'ObjectName))
(if (or (= selc_bz_name2 "AcDbText")
(= selc_bz_name2 "AcDbMText")
(= selc_bz_name2 "AcDbRotatedDimension")
(= selc_bz_name2 "AcDbAlignedDimension")
(= selc_bz_name2 "AcDbOrdinateDimension")
(= selc_bz_name2 "AcDb2LineAngularDimension")
(= selc_bz_name2 "AcDbRadialDimension")
(= selc_bz_name2 "AcDbDiametricDimension")
)
(progn
(if (or (= selc_bz_name2 "AcDbText")
(= selc_bz_name2 "AcDbMText")
)
(vla-put-TextString selc_dim_object2 replace_wz)
(vla-put-TextOverride selc_dim_object2 replace_wz)
)
(vla-update selc_dim_object2)
(princ "\n所选数据已成功更新！")
)
(alert "\n本模块不能处理所选实体！")
)
(if (= (vlax-object-released-p selc_dim_object2) nil)
(vlax-release-object selc_dim_object2)
)
)
(alert "\n 未选中文字或标注实体！")
)
)
)
(princ)
)
(defun c:dim_wz_edit (/ selc_ys acadObject
acadDocument mSpace
selc_dim_object selc_bz_name
replace_wz selc_TextPrefix
selc_TextSuffix rz_edit
rz_measure selc_ys2
selc_dim_object2 selc_bz_name2
)
(load "replace")
(cxcshsz)
(setq selc_ys (car (entsel "\n选取源实体: ")))
(if (/= selc_ys nil)
(progn
(load_vlsp_start)
(setq selc_dim_object (vlax-ename->vla-object selc_ys))
(vla-update selc_dim_object)
(redraw selc_ys 3)
(setq selc_bz_name (vlax-get-property selc_dim_object 'ObjectName))
(if (or (= selc_bz_name "AcDbText")(= selc_bz_name "AcDbMText"))
(setq replace_wz (vlax-get-property selc_dim_object 'TextString))
)
(cond
((or (= selc_bz_name "AcDbText")
(= selc_bz_name "AcDbMText")
)
(setq replace_wz (vlax-get-property selc_dim_object 'TextString))
(vl-bb-set 'replace_wz replace_wz)
)
((or (= selc_bz_name "AcDbRotatedDimension")
(= selc_bz_name "AcDbAlignedDimension")
(= selc_bz_name "AcDbOrdinateDimension")
(= selc_bz_name "AcDb2LineAngularDimension")
(= selc_bz_name "AcDbRadialDimension")
(= selc_bz_name "AcDbDiametricDimension")
)
(q_bzst_replace_wz)
)
(t (alert "\n本模块不能处理源实体！"))
)
(if (= (vlax-object-released-p selc_dim_object) nil)
(vlax-release-object selc_dim_object)
)
(if (/= replace_wz nil)
(progn
(setq selc_ys2 (car (entsel "\n选取目标实体: ")))
(if (/= selc_ys2 nil)
(progn
(setq selc_dim_object2 (vlax-ename->vla-object selc_ys2))
(vla-update selc_dim_object2)
(setq selc_bz_name2 (vlax-get-property selc_dim_object2 'ObjectName))
(if (or (= selc_bz_name2 "AcDbText")
(= selc_bz_name2 "AcDbMText")
(= selc_bz_name2 "AcDbRotatedDimension")
(= selc_bz_name2 "AcDbAlignedDimension")
(= selc_bz_name2 "AcDbOrdinateDimension")
(= selc_bz_name2 "AcDb2LineAngularDimension")
(= selc_bz_name2 "AcDbRadialDimension")
(= selc_bz_name2 "AcDbDiametricDimension")
)
(progn
(if (or (= selc_bz_name2 "AcDbText")
(= selc_bz_name2 "AcDbMText")
)
(vla-put-TextString selc_dim_object2 replace_wz)
(vla-put-TextOverride selc_dim_object2 replace_wz)
)
(vla-update selc_dim_object2)
)
(alert "\n本模块不能处理目标实体！")
)
(if (= (vlax-object-released-p selc_dim_object2) nil)
(vlax-release-object selc_dim_object2)
)
)
(alert "\n 未选中目标实体！")
)
)
)
)
(progn
(alert "\n 未选中源实体！")
)
)
(if (/= selc_ys nil)(redraw selc_ys 4))
(princ)
)

(defun load_vlsp_start () 
        (vl-load-com) 
        (setq acadObject (vlax-get-acad-object)) 
        (setq acadDocument (vla-get-ActiveDocument acadObject)) 
        (setq mSpace (vla-get-ModelSpace acadDocument))                
) 
 
(defun cxcshsz () 
  (setvar "cmdecho" 0) 
  (setvar "blipmode" 0) 
  (graphscr) 
) 
 
(defun rtod (rang) 
  (* rang (/ 180 pi)) 
) 
 
;取源实体(标注实体)replace_wz 
(defun q_bzst_replace_wz () 
        (setq        selc_TextPrefix (vlax-get-property selc_dim_object 'TextPrefix)) 
        (setq        selc_TextSuffix (vlax-get-property selc_dim_object 'TextSuffix)) 
        (cond 
                ((and (= selc_bz_name "AcDbRadialDimension")                          
                                         (= selc_TextPrefix "") 
                 ) 
                 (setq selc_TextPrefix "R") 
                ) 
                ((and (= selc_bz_name "AcDbDiametricDimension") 
                                        (= selc_TextPrefix "") 
                 ) 
                 (setq selc_TextPrefix "%%c") 
                ) 
                ((= selc_bz_name "AcDb2LineAngularDimension") 
                 (setq selc_TextSuffix "%%d") 
                ) 
        ) 
        (setq        rz_edit (vlax-get-property selc_dim_object 'TextOverride)) 
        (if (= selc_bz_name "AcDb2LineAngularDimension") 
                (progn 
                        (setq        rz_measure (vlax-get-property selc_dim_object 'Measurement)) 
                        (setq rz_measure (rtod rz_measure)) 
                        (setq        rz_measure (rtos rz_measure 2 4)) 
                ) 
                (progn 
                        (setq        rz_measure (rtos (vlax-get-property selc_dim_object 'Measurement) 2 4)) 
                ) 
        )        
        (if (/= rz_edit "") 
                (setq replace_wz rz_edit) 
                (progn 
                        (cond 
                                ((and (/= selc_TextPrefix "") 
                                                        (/= selc_TextSuffix "") 
                                                        ) 
                                 (setq replace_wz (strcat selc_TextPrefix (strcat rz_measure selc_TextSuffix))) 
                                ) 
                                ((and (/= selc_TextPrefix "") 
                                                        (= selc_TextSuffix "") 
                                                        ) 
                                 (setq replace_wz (strcat selc_TextPrefix rz_measure)) 
                                ) 
                                ((and (= selc_TextPrefix "") 
                                                        (/= selc_TextSuffix "") 
                                                        ) 
                                 (setq replace_wz (strcat rz_measure selc_TextSuffix)) 
                                ) 
                                ((and (= selc_TextPrefix "") 
                                                        (= selc_TextSuffix "") 
                                                        ) 
                                 (setq replace_wz rz_measure) 
                                ) 
                        ) 
                ) 
        ) 
) 
 
(defun c:wz_copy (/        text_str                                 selc_ys                                        acadObject 
                                                                                acadDocument                 mSpace                                                selc_dim_object 
                                                                                selc_bz_name                 replace_wz                                selc_TextPrefix 
                                                                                selc_TextSuffix         rz_edit                                        rz_measure 
                                                                         ) 
        (cxcshsz) 
        (setq text_str (getstring "\n拷贝模式[选择对象(Y)/输入尺寸(N)]<选择对象>:")) 
        (if(/= (strcase text_str) "N") 
                (progn                        
                        (setq selc_ys (car (entsel "\n请选取文字或标注实体: "))) 
                  (if (/= selc_ys nil) 
                          (progn 
                                        (load_vlsp_start)                
                                        (setq selc_dim_object (vlax-ename->vla-object selc_ys)) 
                                        (vla-update selc_dim_object)   
                                        (setq        selc_bz_name (vlax-get-property selc_dim_object 'ObjectName)) 
                                        (if (or (= selc_bz_name "AcDbText")(= selc_bz_name "AcDbMText")) 
                                                (setq replace_wz (vlax-get-property selc_dim_object 'TextString)) 
                                        ) 
                                        (cond 
                                                ((or (= selc_bz_name "AcDbText") 
                                                                 (= selc_bz_name "AcDbMText") 
                                                 ) 
                                                 (setq replace_wz (vlax-get-property selc_dim_object 'TextString)) 
                                                 (vl-bb-set 'replace_wz replace_wz) 
                                                 (alert (strcat "\n已将数据"" replace_wz ""拷贝至黑板名称空间变量REPLACE_WZ中！")) 
                                                ) 
                                                ((or (= selc_bz_name "AcDbRotatedDimension") 
                                                                 (= selc_bz_name "AcDbAlignedDimension") 
                                                                 (= selc_bz_name "AcDbOrdinateDimension") 
                                                                 (= selc_bz_name "AcDb2LineAngularDimension") 
                                                                 (= selc_bz_name "AcDbRadialDimension") 
                                                                 (= selc_bz_name "AcDbDiametricDimension") 
                                                 ) 
                                                 (q_bzst_replace_wz) 
                                                 (vl-bb-set 'replace_wz replace_wz) 
                                                 (alert (strcat "\n已将数据"" replace_wz ""拷贝至黑板名称空间变量REPLACE_WZ中！")) 
                                                ) 
                                                (t (alert "\n本模块不能处理所选实体！")) 
                                        ) 
                                        (if (= (vlax-object-released-p selc_dim_object) nil) 
                                                (vlax-release-object selc_dim_object) 
                                        ) 
                                ) 
                                (progn 
                                        (alert "\n 未选中文字或标注实体！") 
                                ) 
                        ) 
                ) 
                (progn 
                        (setq replace_wz (getstring "\n输入文字:")) 
                        (if (/= replace_wz nil) 
                                (progn 
                                        (vl-bb-set 'replace_wz replace_wz) 
                                        (alert (strcat "\n已将数据"" replace_wz ""拷贝至黑板名称空间变量REPLACE_WZ中！")) 
                                ) 
                                (progn 
                                        (if (= (vl-bb-ref 'replace_wz) nil) 
                                                (alert "\n未输入文字，且黑板名称空间变量REPLACE_WZ为空！") 
                                                (alert (strcat "\n未输入文字，默认黑板名称空间变量REPLACE_WZ为"" replace_wz ""！")) 
                                        ) 
                                ) 
                        ) 
                ) 
        ) 
        (princ) 
) 
 
(defun c:wz_edit (/        acadObject                         acadDocument                        mSpace 
                                                                        replace_wz                         selc_ys2                                        selc_dim_object2 
                                                                        selc_bz_name2 
                                                                 ) 
        (setq replace_wz (vl-bb-ref 'replace_wz)) 
        (if (= replace_wz nil) 
          (progn 
                        (alert "\n 源实体数据不存在！") 
                ) 
                (progn 
                        (load "replace") 
                        (cxcshsz) 
                        (setq selc_ys2 (car (entsel "\n请选取文字或标注实体: "))) 
                        (if (/= selc_ys2 nil) 
                                (progn 
                                        (load_vlsp_start)        
                                        (setq selc_dim_object2 (vlax-ename->vla-object selc_ys2)) 
                                        (vla-update selc_dim_object2) 
                                        (setq        selc_bz_name2 (vlax-get-property selc_dim_object2 'ObjectName)) 
                                        (if (or (= selc_bz_name2 "AcDbText") 
                                                                         (= selc_bz_name2 "AcDbMText") 
                                                                        (= selc_bz_name2 "AcDbRotatedDimension") 
                                                                        (= selc_bz_name2 "AcDbAlignedDimension") 
                                                                        (= selc_bz_name2 "AcDbOrdinateDimension") 
                                                                        (= selc_bz_name2 "AcDb2LineAngularDimension") 
                                                                        (= selc_bz_name2 "AcDbRadialDimension") 
                                                                        (= selc_bz_name2 "AcDbDiametricDimension") 
                                                         ) 
                                                (progn 
                                                        (if (or (= selc_bz_name2 "AcDbText") 
                                                                                         (= selc_bz_name2 "AcDbMText") 
                                                                                        ) 
                                                                (vla-put-TextString selc_dim_object2 replace_wz) 
                                                                (vla-put-TextOverride selc_dim_object2 replace_wz) 
                                                        ) 
                                                        (vla-update selc_dim_object2) 
                                                        (princ "\n所选数据已成功更新！") 
                                                ) 
                                                (alert "\n本模块不能处理所选实体！") 
                                        ) 
                                        (if (= (vlax-object-released-p selc_dim_object2) nil) 
                                                (vlax-release-object selc_dim_object2) 
                                        ) 
                                ) 
                                (alert "\n 未选中文字或标注实体！") 
                        ) 
                ) 
        ) 
        (princ) 
) 
        
(defun c:dim_wz_edit (/        selc_ys                                                acadObject 
                                                                                                acadDocument                        mSpace 
                                                                                                selc_dim_object                selc_bz_name 
                                                                                                replace_wz                                selc_TextPrefix 
                                                                                                selc_TextSuffix                rz_edit 
                                                                                                rz_measure                                selc_ys2 
                                                                                                selc_dim_object2        selc_bz_name2 
                                                                                         ) 
        (load "replace") 
        (cxcshsz) 
        (setq selc_ys (car (entsel "\n选取源实体: "))) 
  (if (/= selc_ys nil) 
          (progn 
                        (load_vlsp_start)                
                        (setq selc_dim_object (vlax-ename->vla-object selc_ys)) 
                        (vla-update selc_dim_object) 
                        (redraw selc_ys 3) 
                        (setq        selc_bz_name (vlax-get-property selc_dim_object 'ObjectName)) 
                        (if (or (= selc_bz_name "AcDbText")(= selc_bz_name "AcDbMText")) 
                                (setq replace_wz (vlax-get-property selc_dim_object 'TextString)) 
                        ) 
                        (cond 
                                ((or (= selc_bz_name "AcDbText") 
                                                 (= selc_bz_name "AcDbMText") 
                                 ) 
                                 (setq replace_wz (vlax-get-property selc_dim_object 'TextString)) 
                                 (vl-bb-set 'replace_wz replace_wz) 
                                ) 
                                ((or (= selc_bz_name "AcDbRotatedDimension") 
                                                 (= selc_bz_name "AcDbAlignedDimension") 
                                                 (= selc_bz_name "AcDbOrdinateDimension") 
                                                 (= selc_bz_name "AcDb2LineAngularDimension") 
                                                 (= selc_bz_name "AcDbRadialDimension") 
                                                 (= selc_bz_name "AcDbDiametricDimension") 
                                 ) 
                                 (q_bzst_replace_wz) 
                                ) 
                                (t (alert "\n本模块不能处理源实体！")) 
                        ) 
                        (if (= (vlax-object-released-p selc_dim_object) nil) 
                                (vlax-release-object selc_dim_object) 
                        ) 
                        (if (/= replace_wz nil) 
                                (progn 
                                        (setq selc_ys2 (car (entsel "\n选取目标实体: "))) 
                                        (if (/= selc_ys2 nil) 
                                          (progn                                                
                                                        (setq selc_dim_object2 (vlax-ename->vla-object selc_ys2)) 
                                                        (vla-update selc_dim_object2) 
                                                        (setq        selc_bz_name2 (vlax-get-property selc_dim_object2 'ObjectName)) 
                                                        (if (or (= selc_bz_name2 "AcDbText") 
                                                                                         (= selc_bz_name2 "AcDbMText") 
                                                                                        (= selc_bz_name2 "AcDbRotatedDimension") 
                                                                                        (= selc_bz_name2 "AcDbAlignedDimension") 
                                                                                        (= selc_bz_name2 "AcDbOrdinateDimension") 
                                                                                        (= selc_bz_name2 "AcDb2LineAngularDimension") 
                                                                                        (= selc_bz_name2 "AcDbRadialDimension") 
                                                                                        (= selc_bz_name2 "AcDbDiametricDimension") 
                                                                         ) 
                                                                (progn 
                                                                        (if (or (= selc_bz_name2 "AcDbText") 
                                                                                                         (= selc_bz_name2 "AcDbMText") 
                                                                                                        ) 
                                                                                (vla-put-TextString selc_dim_object2 replace_wz) 
                                                                                (vla-put-TextOverride selc_dim_object2 replace_wz) 
                                                                        ) 
                                                                        (vla-update selc_dim_object2) 
                                                                ) 
                                                                (alert "\n本模块不能处理目标实体！") 
                                                        ) 
                                                        (if (= (vlax-object-released-p selc_dim_object2) nil) 
                                                                (vlax-release-object selc_dim_object2) 
                                                        ) 
                                                ) 
                                                (alert "\n  未选中目标实体！") 
                                        ) 
                                ) 
                        ) 
                ) 
                (progn 
                        (alert "\n   未选中源实体！") 
                ) 
        ) 
        (if (/= selc_ys nil)(redraw selc_ys 4)) 
        (princ) 
)

sailorjt · 发表于 2006-10-16 11:21:02

谢谢。
好长啊，我原先的设想太简单了。
我的设想是：选择每一个文字，并将他的内容拷贝至剪贴板；选择第二个文字，将剪贴板上的内容粘贴至第二个文字内，确定。
按这样来编，是不是能简单呢。

qjcpj · 发表于 2006-10-16 13:32:33

就是你的设想啊，程序长是因为包含三个模块，你不需要的话将其它两个删除，程序自然就变短了。

w94072012 · 发表于 2006-10-20 17:18:32

lisp编程程序好长

gdzhou · 发表于 2006-10-28 15:19:49

[php]
用这个代码好看些。。VB的代码怎么设置我不知道
直接贴起的不好看^_^
Sub replace1()
Dim s As String
Dim ent As AcadObject
Dim pt(2) As Double
On Error Resume Next
resel1: '选择第一个对象'
ThisDrawing.Utility.GetEntity ent, pt, "第一个文字：" & vbCrLf
If IsNull(ent) Then
If MsgBox("未选择，是否重新选择？", vbYesNo) = vbYes Then
 GoTo resel1:
Else
 GoTo exitsub:
End If
Else
If UCase(ent.ObjectName) <> "ACDBTEXT" Then
 If MsgBox("所选对象不符合要求，重新选择？", vbYesNo) = vbYes Then
 GoTo resel1
 Else
 GoTo exitsub:
 End If
End If
s = ent.TextString '取得第一个文本的内容'
ThisDrawing.Utility.Prompt "第一个文本的内容为:<" & s & ">" & vbCrLf
Set ent = Nothing
resel2: '选择第二个对象'
ThisDrawing.Utility.GetEntity ent, pt, "第二个文字：" & vbCrLf
If IsNull(ent) Then
 If MsgBox("未选择，是否重新选择？", vbYesNo) = vbYes Then
 GoTo resel2:
 Else
 GoTo exitsub:
 End If
Else
 If UCase(ent.ObjectName) <> "ACDBTEXT" Then
 If MsgBox("所选对象不符合要求，重新选择？", vbYesNo) = vbYes Then
 GoTo resel2
 Else
 GoTo exitsub:
 End If
 End If
 ThisDrawing.Utility.Prompt "第二个文字的内容为<" & ent.TextString & ">" & vbCrLf
ThisDrawing.Utility.Prompt "<" & ent.TextString & ">被更改为<" & s & ">" & vbCrLf

ent.TextString = s
ent.Update
End If
End If
exitsub:
Set ent = Nothing
s = ""
End Sub
[/php]

sailorjt · 发表于 2006-10-29 14:38:27

谢谢各位的热心帮助。

账号		自动登录	找回密码
密码			立即注册

[求助]：请编一个文本间复制的程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子