关于块属性格式刷的问题

liushengri

看了masterlong大侠写的：块属性格式刷
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=80718 ，很强悍，现想把选取的单行文字刷到块属性中选取的属性值中去，要如何实现？
如下：把选取的单行文字112113114，或其它选取的其它单行文字刷到块属性中，使aaaaa变成112113114(或aaaaa变成其它的单行文字）。又或使bbbb变成112113114。总的一句话就是：把选中的块属性的属性值变成单行文字的属性值

liushengri

已解决了

Flynn_n

正好需要这个，是怎么解决的呢？

you_boss

这不是有手就行？
(defun c:th1 ()
  (setq
    a_date (vlax-ename->vla-object (car (nentsel "\n点击目标文字")))
  )
  (setq text_date (vla-get-TextString a_date))
  (SETQ PD 1)
  (WHILE (= PD 1 )
    (setq b_date (vlax-ename->vla-object
                   (car (nentsel "\n点击需要替换的文字(点击esc键退出)"))
                 )
    )
    (vla-put-TextString b_date text_date)
    (vla-update b_date)

  )