Hi,
I'm currently tidy up some drawings that had to be exported from Revit to AutoCAD. I dont have the original Revit model to redo the export, so i need to tidy up the AutoCAD drawings to the client CAD standard. So using lisp, i'm moving text at a particular height to a specific layer, hatch to hatch types to various hatching layers. One issue im having is i'm trying to capture lines (they are sides of a hexagonal callout that was used.) and there are hundreds of them per drawing and i wish to grab them using ssget and put them on a layer called callout. for some reason im not having any luck. each of these lines are 56.2500mm in length.
This is my code, but it is not selecting any lines. Am i missing something?
(defun c:SelectLinesByLength (/ SL1 ss)
(setq SL1 56.250) ; Change the length value as needed
(setq ss (ssget "_X" (list (cons 0 "LINE") (cons 40 SL1))))
(command "_change" SL1 "" "Properties" "layer" "Detail" "ltype" "bylayer" "")
(princ)
)
Any help on this would be greatly appreciated.
Regards
Diarmuid