Author Topic: Regions to Lwpolylines  (Read 2773 times)

0 Members and 1 Guest are viewing this topic.

V-Man

  • Bull Frog
  • Posts: 343
  • I exist therefore I am! Finally Retired!
Regions to Lwpolylines
« on: July 06, 2007, 12:48:52 PM »

How Do you go about turning loads of Regions into Lwpolylines?
AutoCAD 9 - 2023, AutoCADMap 2008 - 2010, Revit 2012 - 2022, Autocad Civil 3D 2023

Jeff_M

  • King Gator
  • Posts: 4087
  • C3D user & customizer
Re: Regions to Lwpolylines
« Reply #1 on: July 06, 2007, 01:06:18 PM »
Like this....
Code: [Select]
(defun c:Reg2Poly (/ ss)
  (if (setq ss (ssget '((0 . "REGION"))))
    (progn
      (setvar "qaflags" 1)
      (command ".explode" ss "")
      (setvar "qaflags" 0)
      (if (= 1 (getvar "peditaccept"))
(command ".pedit" "m" "p" "" "j" "" "")
(command ".pedit" "m" "p" "" "y" "j" "" "")
)
      )
    )
  (princ)
  )

V-Man

  • Bull Frog
  • Posts: 343
  • I exist therefore I am! Finally Retired!
Re: Regions to Lwpolylines
« Reply #2 on: July 06, 2007, 02:51:58 PM »

Thanks much. Your my hero!  :-)
AutoCAD 9 - 2023, AutoCADMap 2008 - 2010, Revit 2012 - 2022, Autocad Civil 3D 2023