VBA Script for linetype generation

[Anonymous]

Could someone help me out with getting this vba converted into a lisp file.
I'ts the only vba file I have, so I'd like to just get it converted over to
make things easier.

Public Sub PlineGen()
Dim obj As AcadObject
For Each obj In ThisDrawing.ModelSpace
If TypeOf obj Is AcadLWPolyline Then
Dim poly As AcadLWPolyline
Set poly = obj
poly.LinetypeGeneration = True
End If
Next
End Sub

Thanks!


--
Brent Daley
CAD Manager
RD Engineering, Inc.
11920 Burt Street, Suite 180
Omaha, NE 68154

Phone: 402.505.4355
Cell: 402.981.3713
Fax: 402.505.4432
Email: bdaley@rdengineering-inc.com
Website: http://www.rdengineering-inc.com

[Anonymous]

"Brent Daley" wrote in message
news:4935079@discussion.autodesk.com...
Could someone help me out with getting this vba converted into a lisp file.
I'ts the only vba file I have, so I'd like to just get it converted over to
make things easier.

Public Sub PlineGen()
Dim obj As AcadObject
For Each obj In ThisDrawing.ModelSpace
If TypeOf obj Is AcadLWPolyline Then
Dim poly As AcadLWPolyline
Set poly = obj
poly.LinetypeGeneration = True
End If
Next
End Sub

------------------------------------------------------


One way:

(if
(setq sset (ssget "X" '((0 . "LWPOLYLINE"))))
(command "._pedit" "_m" sset "" "_L" "_ON" "")
)