Lisp-解冻冻结层

xspacex · 发表于 2022-7-6 12:20:07

大家好，

我在这个Lisp程序，我正在整理一些帮助。下面的代码基本上会解冻一个特定的冻结层，但是，解冻后它不会自动重新生成-重新生成的原因是，所有对象、线。。。这是冻结在这个特定的层，现在将出现-虽然我尝试命令regen在lisp中，它没有工作，所以我正在寻找建议？

使用下面相同的方法，我想知道如何解冻视口中冻结的层？

干杯

（if（setq ename（tblobjname“layer”layname））
（程序
（setq layent（entget ename））

（如果（=（cdr（assoc 70 layent））1）
（程序
（setq层（subst（cons 70 0）（assoc 70层）层）
（entmod图层）
（entupd（cdr（assoc-1层）））
)
)
)
)

David Bethel · 发表于 2022-7-6 12:36:59

（命令“REGENALL”）怎么样-David

xspacex · 发表于 2022-7-6 12:46:03

有没有办法使用assoc 70和subst（cons…）解冻视口层。。。？

David Bethel · 发表于 2022-7-6 12:56:06

据我所知不是这样。VPlayer数据作为扩展数据存储在视口实体中，您无法对视口进行entmod-大卫

xspacex · 发表于 2022-7-6 13:02:09

由于我无法安装虚拟专用层，我尝试了类似的方法，但没有成功？？任何建议。。。再次感谢

（if（setq ename（tblobjname“layer”layname））
（程序
（setq layent（entget ename））

（如果（和（=（getvar“tilemode”）0）（/=（getvar“cvport”）1））
（程序
（命令“vplayer”“thaw”layent“”）
)
（普林斯）
)
)
)

lpseifert · 发表于 2022-7-6 13:19:29

也许这对你有用

copy


(command "vplayer" "thaw" (cdr (assoc 2 layent)) "" "")

alanjt · 发表于 2022-7-6 13:21:16

你必须给vplayer一个名字。

替换：

copy

 (command "vplayer" "thaw" layent "" "")

使用：

copy

 (command "vplayer" "thaw" [color=Red]layname[/color] "" "")

[编程交流] Lisp-解冻冻结层

发表回复

精选推荐