topic Re: why this dynamo code not working for autocad? in .NET Forum

why this dynamo code not working for autocad?

thsa2501 — Thu, 27 Jul 2023 12:27:40 GMT

hii everyone,

i try to sort numbers for attribute blocks via polyline vertex but it does not work.

this code is from one of the youtube channel his name "Khasan Mamaev".

i attached dynamo code and drawing.

if not understand what am i trying to say, kindly watch https://youtu.be/K5pjPOcFl6A.

thanks, advance

best regards

hussain

it popup message it has no attribute for active document

Re: why this dynamo code not working for autocad?

hosneyalaa — Thu, 27 Jul 2023 14:07:55 GMT

try

# Blocks numerator # ©2017, Khasan Mamaev # www.dynamobim.ru if IN[0] != True: off = 1/0 tagARK = IN[1] scale = float(IN[2]) r = 250.0 * scale/100 rev = IN[3] import clr from operator import itemgetter import re import System clr.AddReference('ProtoGeometry') import Autodesk from Autodesk.DesignScript.Geometry import * DPoint = Autodesk.DesignScript.Geometry.Point app = System.Runtime.InteropServices.Marshal.GetActiveObject("Autocad.Application") AcDoc = app.ActiveDocument AcDoc.SendCommand("(SSGET\"_x\"'((-4 . \"<OR\")(0 . \"*TEXT,*Polyline\")(-4 . \"<AND\")(0 . \"INSERT\")(66 . 1)(-4 . \"AND>\")(-4 . \"OR>\"))) ") AcDoc.SendCommand("SELECT (SSGET\"_p\") ") sset = AcDoc.PickfirstSelectionSet def ptD(p): return DPoint.ByCoordinates(p[0],p[1],p[2]) def vertex(pl): pts = [] for i,k in enumerate(pl): if i%2 == 0: pts.append(DPoint.ByCoordinates(k, pl[i+1], 0.0)) return pts def cir(p,r): return Circle.ByCenterPointRadius(p,r) blocks = [] circs = [] RRR = [] for j in sset: if j.ObjectName == 'AcDbPolyline': poly = j #RRR.append(j) elif j.ObjectName == 'AcDbBlockReference': attr = j.GetAttributes() #RRR.append(j) for i in attr: #RRR.append( i.TagString ) if i.TagString != tagARK: p = ptD(j.InsertionPoint) blocks.append([j, cir(p,r)]) circs.append(cir(p,r)) elif i.TagString == tagARK: arknum = re.sub("\D", "", i.TextString) RRR.append( arknum ) ark = i acPoints = poly.Coordinates pline = PolyCurve.ByPoints(vertex(acPoints)) OUT = pline

Re: why this dynamo code not working for autocad?

thsa2501 — Fri, 28 Jul 2023 17:32:50 GMT

thanks for the message.it does not work for me.i attached image the message popup when i trying to run.kindly solve me.i am using autocad 2024 and dynamo sandbox.

kinldy make a video to understand this.

Re: why this dynamo code not working for autocad?

hosneyalaa — Fri, 28 Jul 2023 20:18:54 GMT

I think the error is because

Opening two Autocad files

It is preferable to use dynamo through civil 3 d If possible you have There are options Easier, better and faster

Or in this method you must have knowledge of using Object Model (ActiveX)

Re: why this dynamo code not working for autocad?

thsa2501 — Sat, 29 Jul 2023 02:29:49 GMT

hi,

ok i will try to using civil 3d,but i would like to know. how it works dynamo only in autocad for him.

Re: why this dynamo code not working for autocad?

hosneyalaa — Sun, 30 Jul 2023 12:25:18 GMT

TRY

@thsa2501

# Blocks numerator # ©2017, Khasan Mamaev # www.dynamobim.ru import clr from operator import itemgetter import re import System clr.AddReference('ProtoGeometry') import Autodesk from Autodesk.DesignScript.Geometry import * DPoint = Autodesk.DesignScript.Geometry.Point app = System.Runtime.InteropServices.Marshal.GetActiveObject("Autocad.Application") AcDoc = app.ActiveDocument AcDoc.SendCommand("(SSGET\"_x\"'((-4 . \"<OR\")(0 . \"*TEXT,*Polyline\")(-4 . \"<AND\")(0 . \"INSERT\")(66 . 1)(-4 . \"AND>\")(-4 . \"OR>\"))) ") AcDoc.SendCommand("SELECT (SSGET\"_p\") ") sset = AcDoc.PickfirstSelectionSet def ptD(p): return DPoint.ByCoordinates(p[0],p[1],p[2]) def vertex(pl): pts = [] for i,k in enumerate(pl): if i%2 == 0: pts.append(DPoint.ByCoordinates(k, pl[i+1], 0.0)) return pts def cir(p,r): return Circle.ByCenterPointRadius(p,r) blocks = [] circs = [] RRR = [] for j in sset: if j.ObjectName == 'AcDbPolyline': poly = j #RRR.append(j) acPoints = poly.Coordinates OUT = acPoints

# Blocks numerator # ©2017, Khasan Mamaev # www.dynamobim.ru import clr from operator import itemgetter import re import System clr.AddReference('ProtoGeometry') import Autodesk from Autodesk.DesignScript.Geometry import * DPoint = Autodesk.DesignScript.Geometry.Point app = System.Runtime.InteropServices.Marshal.GetActiveObject("Autocad.Application") AcDoc = app.ActiveDocument AcDoc.SendCommand("(SSGET\"_x\"'((-4 . \"<OR\")(0 . \"*TEXT,*Polyline\")(-4 . \"<AND\")(0 . \"INSERT\")(66 . 1)(-4 . \"AND>\")(-4 . \"OR>\"))) ") AcDoc.SendCommand("SELECT (SSGET\"_p\") ") sset = AcDoc.PickfirstSelectionSet tagARK = IN[0] blocks = [] circs = [] RRR = [] for j in sset: if j.ObjectName == 'AcDbPolyline': poly = j #RRR.append(j) elif j.ObjectName == 'AcDbBlockReference': attr = j.GetAttributes() #RRR.append(j) for i in attr: #RRR.append( i.TagString ) if i.TagString != tagARK: p = ptD(j.InsertionPoint) blocks.append([j, cir(p,r)]) circs.append(cir(p,r)) elif i.TagString == tagARK: arknum = re.sub("\D", "", i.TextString) RRR.append( arknum ) ark = i OUT = RRR