Python & ActiveX/COM Autocad

[Алексей Кулик]

Я бы писал наподобие:

Код - Python [Выбрать]

1. for bdef aDoc.Blocks
2.   for ent bdef
3.     if ent.Layer == "Layer0"
4.       ent.Delete

Но по-хорошему тут надо добавить проверку на заблокированность / замороженность слоя - как минимум. Туда же - проход по вхождениям и определениям атрибутов, синхронизация атрибутов и т.д.
P.S. На питоне вообще не пишу.

[Marik]

Спасибо! А нет более быстрого способа?

[Алексей Кулик]

Только если запулить команду _.-laydel ИМХО
Но насколько это будет быстрее - вопрос.

[Aleks_199513]

Добрый день. Подскажите пожалуйста, как можно в автокаде найти или поставить point3d через python? Хочу применить этот метод, но не могу понять как подать туда point3d

[Алексей Кулик]

Point3D для Civil ИМХО немного другая история.

[Александр Ривилис]

Aleks_199513,
Point3d доступен только изнутри AutoCAD, а не через COM/ActiveX, как и вообще весь AutoCAD .NET API и Civil3D .NET API. Этот класс доступен в AcDbMgd.dll (Autodesk.AutoCAD.Geometry.Point3d)

[Nutson]

Через COM можно добавить.

Код - Visual Basic [Выбрать]

1. Sub testAddPointToFeatureLine()
2.     Dim obj As AcadObject
3.  
4.     ThisDrawing.Utility.GetEntity obj, pp
5.    
6.     Dim fl As AeccLandFeatureLine
7.     Set fl = obj
8.     flPoints = fl.GetPoints
9.    
10.     i = 0
11.     Dim util As Object
12.     Set util = ThisDrawing.Utility
13.     Call util.CreateTypedArray(newPoint, vbDouble, (flPoints (i) + flPoints (i + 3)) * 0.5, flPoints ((i + 1) + flPoints (i + 4)) * 0.5, 20)
14.  
15.     'Call fl.InsertFeaturePoint(newPoint, aeccLandFeatureLinePointPI) 'aeccLandFeatureLinePointPI = 1 отображается на плане квадратной ручкой
16.    Call fl.InsertFeaturePoint(newPoint, aeccLandFeatureLinePointElevation) 'aeccLandFeatureLinePointElevation = 2 отображается на плане круглой ручкой
17.  
18. End Sub
19.  
20.  

Так же есть метод  InsertFeaturePoints

[Aleks_199513]

Через COM можно добавить.

Код - Visual Basic [Выбрать]

1. Sub testAddPointToFeatureLine()
2.     Dim obj As AcadObject
3.  
4.     ThisDrawing.Utility.GetEntity obj, pp
5.    
6.     Dim fl As AeccLandFeatureLine
7.     Set fl = obj
8.     flPoints = fl.GetPoints
9.    
10.     i = 0
11.     Dim util As Object
12.     Set util = ThisDrawing.Utility
13.     Call util.CreateTypedArray(newPoint, vbDouble, (flPoints (i) + flPoints (i + 3)) * 0.5, flPoints ((i + 1) + flPoints (i + 4)) * 0.5, 20)
14.  
15.     'Call fl.InsertFeaturePoint(newPoint, aeccLandFeatureLinePointPI) 'aeccLandFeatureLinePointPI = 1 отображается на плане квадратной ручкой
16.    Call fl.InsertFeaturePoint(newPoint, aeccLandFeatureLinePointElevation) 'aeccLandFeatureLinePointElevation = 2 отображается на плане круглой ручкой
17.  
18. End Sub
19.  
20.  

Так же есть метод  InsertFeaturePoints

Спасибо

[Aleks_199513]

Aleks_199513,  Добрый день. Подскажите пожалуйста как через Python задать номер ярлыка мультивыноски? не могу найти метод..

[Александр Ривилис]

Aleks_199513,
Если я правильно понял о чем, то это делается через MLeader.TextString

[Aleks_199513]

Если я правильно понял о чем, то это делается через MLeader.TextString

не совсем, это работает, когда стиль мультивыноски текст, а когда блок, то не работает...

[Александр Ривилис]

Если я правильно понял о чем, то это делается через MLeader.TextString

не совсем, это работает, когда стиль мультивыноски текст, а когда блок, то не работает...

А если неправильно, то через MLeader.SetBlockAttributeValue

[Nutson]

На вба так, в питон наверное сами сможете переконвертировать

Код - Visual Basic [Выбрать]

1. Sub select_obj()
2.     Dim obj As AcadObject
3.     ThisDrawing.Utility.GetEntity obj, pp
4.     Dim mleader As AcadMLeader
5.     Set mleader = obj
6.  
7.     Dim blc As AcadBlock
8.     Dim blcEl As AcadEntity
9.    
10.    
11.     For Each blc In ThisDrawing.Blocks
12.         If blc.Name = mleader.ContentBlockName Then
13.             For Each blcEl In blc
14.                 If blcEl.ObjectName = "AcDbAttributeDefinition" Then
15.                     Call mleader.SetBlockAttributeValue(blcEl.ObjectID, "test")
16.                 End If
17.             Next
18.         End If
19.     Next
20. End Sub
21.  

[Aleks_199513]

А если неправильно, то через MLeader.SetBlockAttributeValue

А как сделать так, чтобы центр блока не улетал в 0,0?

[Nutson]

А если неправильно, то через MLeader.SetBlockAttributeValue

А как сделать так, чтобы центр блока не улетал в 0,0?

Не видя Ваш код - никак