liuxinkai 发表于 2024-5-9 17:19:40

改文字内容

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

liuxinkai 发表于 2024-5-9 17:21:20

(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 发表于 2024-5-9 17:24:09

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



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

飞雪神光 发表于 2024-5-9 18:05:40

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

liuxinkai 发表于 2024-5-11 14:34:03

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

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

飞雪神光 发表于 2024-5-11 17:55:32

难道是没加这个？(vl-load-com)

liuxinkai 发表于 2024-5-14 15:41:52

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

是没加，但是我用的是CAD2018，可以不加。
页: [1]
查看完整版本: 改文字内容