改文字内容

liuxinkai

2. (progn

(progn

今天碰到一个奇怪的事情，如上述代码，为什么在程序运行中用(Vlax-Put-Property ent_obj 'TextString cadnr_hz)不能替换文字，单步执行缺能行。

liuxinkai

(progn
                      (setq cadnr_hz (strcat cadnr "/" houzhui "kW"))

                           (setq oldnr (assoc 1 ent_data))
                           (setq newnr (cons 1 cadnr_hz))
                           (setq ent_data (subst newnr oldnr ent_data))
                           (entmod ent_data)
                                
;;;                       (Vlax-Put-Property ent_obj 'TextString cadnr_hz);加后缀？？？？！！！！
                    )

liuxinkai

liuxinkai 发表于 2024-5-9 17:21
(progn
                      (setq cadnr_hz (strcat cadnr "/" houzhui "kW"))

用 (Vlax-Put-Property ent_obj 'TextString cadnr_hz)执行没反应，选定代码执行可以执行。改用vl换文字的方法（注释以上的四句话）在程序中能成功。

飞雪神光

前面五行 和 (Vlax-Put-Property ent_obj 'TextString cadnr_hz) 效果是一样的  留其中一种就行 这些代码都没问题  要是有问题就是别地地方有问题

liuxinkai

飞雪神光 发表于 2024-5-9 18:05
前面五行 和 (Vlax-Put-Property ent_obj 'TextString cadnr_hz) 效果是一样的  留其中一种就行 这些代码都 ...

对呀，所以很奇怪。选中这一行执行能修改，在程序中就不行了，必须改成前五行。见鬼了，不纠结了，谢谢。

飞雪神光

难道是没加这个？

1. (vl-load-com)

(vl-load-com)

liuxinkai

飞雪神光 发表于 2024-5-11 17:55
难道是没加这个？

是没加，但是我用的是CAD2018，可以不加。