Lisp-解冻冻结层
大家好，我在这个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层）））
)
)
)
) （命令“REGENALL”）怎么样-David 有没有办法使用assoc 70和subst（cons…）解冻视口层。。。？
据我所知不是这样。VPlayer数据作为扩展数据存储在视口实体中，您无法对视口进行entmod-大卫 由于我无法安装虚拟专用层，我尝试了类似的方法，但没有成功？？任何建议。。。再次感谢
（if（setq ename（tblobjname“layer”layname））
（程序
（setq layent（entget ename））
（如果（和（=（getvar“tilemode”）0）（/=（getvar“cvport”）1））
（程序
（命令“vplayer”“thaw”layent“”）
)
（普林斯）
)
)
) 也许这对你有用
(command "vplayer" "thaw" (cdr (assoc 2 layent)) "" "")
你必须给vplayer一个名字。
替换：
(command "vplayer" "thaw" layent "" "")
使用：
(command "vplayer" "thaw" layname "" "")
页:
[1]