[教学]：得到wipeout参数在命名对象词典的设置位置和用entmod修改方法的过程...

XDSoft

1. //修改WIPEOUT frame 为OFF
Command: wipeout
Select first point or [Frame/New from Polyline] <New>: f
Select an option [OFF/ON] <ON>: off
Regenerating model.


2. //得到命名对象词典对象
Command: (setq e (xdrx_object_get "dict"))
<图元名: 40075cd0>

3. //查看对象定义，发现命名对象词典下有个acad_wipeout_vars的子词典。
Command: (entget e)
((-1 . <图元名: 40075cd0>) (0 . "DICTIONARY") (330 . <图元名: 0>) (5 . "1A")
(100 . "AcDbDictionary") (280 . 0) (281 . 1) (3 . "ACAD_GROUP") (350 . <图元名:
40075cc0>) (3 . "ACAD_LAYOUT") (350 . <图元名: 40075d68>) (3 .
"ACAD_MLINESTYLE") (350 . <图元名: 40075cc8>) (3 . "ACAD_PLOTSETTINGS") (350 .
<图元名: 40075d70>) (3 . "ACAD_PLOTSTYLENAME") (350 . <图元名: 40075d58>) (3 .
"ACAD_WIPEOUT_VARS") (350 . <图元名: 40075da0>))


4。得到命名对象词典下的acad_wipeout_vars子词典对象
Command: (setq e (xdrx_object_get "dict" "acad_wipeout_vars"))
<图元名: 40075da0>

5。得到对象的数据定义，组码70即为FRAME的设置
Command: (setq ed (entget e))
((-1 . <图元名: 40075da0>) (0 . "WIPEOUTVARIABLES") (5 . "64") (102 .
"{ACAD_REACTORS") (330 . <图元名: 40075cd0>) (102 . "}") (330 . <图元名:
40075cd0>) (100 . "AcDbWipeoutVariables") (70 . 0))

6。修改entget数据定义，将组码70改为1

Command: (setq ed (subst '(70 . 1) (assoc 70 ed) ed))
((-1 . <图元名: 40075da0>) (0 . "WIPEOUTVARIABLES") (5 . "64") (102 .
"{ACAD_REACTORS") (330 . <图元名: 40075cd0>) (102 . "}") (330 . <图元名:
40075cd0>) (100 . "AcDbWipeoutVariables") (70 . 1))

7。;;更新数据
Command: (entmod ed)
((-1 . <图元名: 40075da0>) (0 . "WIPEOUTVARIABLES") (5 . "64") (102 .
"{ACAD_REACTORS") (330 . <图元名: 40075cd0>) (102 . "}") (330 . <图元名:
40075cd0>) (100 . "AcDbWipeoutVariables") (70 . 1))

8。查看结果，现在FRAM为ON了，证明修改生效了。
Command: wipeout
Select first point or [Frame/New from Polyline] <New>: f
Select an option [OFF/ON] <ON>: *Cancel*

stupidorclever

请问可以用.net实现修改吗？