liushengri 发表于 2014-10-1 04:41:23

关于块属性格式刷的问题

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

liushengri 发表于 2014-10-1 15:50:39

已解决了

Flynn_n 发表于 2019-6-8 13:07:18

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

you_boss 发表于 2021-8-12 18:53:07

这不是有手就行？
(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)

)
页: [1]
查看完整版本: 关于块属性格式刷的问题