norchy 发表于 2005-12-16 11:30:00

请教怎样输出某一个图层为一个新的dwg文件

<P>是用LayerStateManager的export可以吗？</P>
<P>具体的命令应该怎么写？</P>
<P>谢谢！</P>

zhuxuhong 发表于 2005-12-16 11:57:00

<STRONG>[分享]将一个图层上所有的对象另存为另一个图形</STRONG>
<DIV style="PADDING-RIGHT: 0px; MARGIN-TOP: 10px; FONT-SIZE: 9pt; OVERFLOW-X: hidden; WIDTH: 97%; WORD-BREAK: break-all; TEXT-INDENT: 24px; LINE-HEIGHT: normal; HEIGHT: 200px; WORD-WRAP: break-word" onload="this.style.overflowX='auto';">
<P>Wblock a layer into a new DWG named by the original DWG and layer name.</P>
<P>Code Sample&nbsp;&nbsp; Public Function WBlockLay(strLayerName As String) 'For more than one LayerName in strLayName 'strLayName = "LayName1,Layname2,LayName3" Dim objlayer As AcadLayer Dim objSelSet As AcadSelectionSet Dim intType(0) As Integer Dim varData(0) As Variant Dim BlockedDWG As String On Error GoTo errControl</P>
<P>Set objSelSet = ThisDrawing.SelectionSets.Add("WBLOCKSET")</P>
<P>intType(0) = 8 varData(0) = strLayerName objSelSet.Select acSelectionSetAll, filtertype:=intType, filterdata:=varData 'You Need to add a backslash BlockedDWG = ThisDrawing.Path &amp; </P></DIV>

norchy 发表于 2005-12-16 14:35:00

<P>呵呵，搞掂啦！</P>
<P>非常感谢！！</P>
<P>&nbsp;</P>

jackgan 发表于 2016-11-3 14:54:54

程序还不完全，运行不了
页: [1]
查看完整版本: 请教怎样输出某一个图层为一个新的dwg文件