对于斯特凡。
对不起,我没有仔细阅读,我现在明白它是关于什么。
我试图制作一个程序,以适应图纸1到图纸2各层的属性。
使用以下工具更容易获取和处理图层:
- [font=Times New Roman][size=3](vlax-for obj (vla-get-Layers (vla-get-ActiveDocument Acad-Obj))[/size][/font]
- [size=3][font=Times New Roman](if (and (= (vla-get-LayerOn obj) :vlax-true) (= (vla-get-Freeze obj) :vlax-false)) [/font][/size]
- [size=3][font=Times New Roman] (setq ll1 (cons obj ll1) lStrat (cons (vla-get-Name obj) lStrat)) ;_ end of setq[/font][/size]
- [size=3][font=Times New Roman]) ;_ end of if[/font][/size]
- [size=3][font=Times New Roman] ) ;_ end of vlax[/font][/size]
启动来自图纸1和图纸2的更改。
图纸2很难发送
- [font=Times New Roman][size=3](vla-SendCommand vgad (strcat "(command "_layoff" strat "")") )[/size][/font]
与活动文档中的命令类似
- [size=3][font=Times New Roman](command "_layoff" strat "")[/font][/size]
- [size=3][font=Times New Roman](vlax-for obj (vla-get-Layers oacd)[/font][/size]
- [size=3][font=Times New Roman] (if (member (vla-get-Name obj) lStrat)[/font][/size]
- [size=3][font=Times New Roman] (Prognos (vla-put-LayerOn obj: vlax-true) (vla-put-Freeze obj: vlax-false))[/font][/size]
- [size=3][font=Times New Roman] (Prognos (vla-put-LayerOn obj: vlax-false))[/font][/size]
- [size=3][font=Times New Roman] ) _ End of if[/font][/size]
- [size=3][font=Times New Roman] ) _ End of vlax[/font][/size]
但在未对图纸2进行任何干预的情况下,未发生任何可见变化:
在模型空间和图纸空间或其他空间之间设置或更改图层。
寻找避免手动设置的解决方案。
但在未对图纸2进行任何干预的情况下,未发生任何可见变化:
在模型空间和图纸空间或其他空间之间设置或更改图层。
寻找避免手动设置的解决方案
我想一定有这样的东西:
- [font=Arial][color=#333333](command "REGEN")[/color][/font]
或
使用了lisp函数entmod entupd。
vla更新了什么? |