HI all
I´m working this Lisp and to be honest I´m new to all this..
LISP:
Code:
(Defun c:SGM (/ s ss sn i)
(foreach lay (layoutlist)
(setvar 'ctab lay)
(if (setq s (ssadd)
ss (ssget "_x" '((0 . "ARC,LINE,LWPOLYLINE") (8 . "GRUPPEOMRÅDE")))
)
(progn
(repeat (setq i (sslength ss))
(setq sn (ssname ss (setq i (1- i))))
(if (not (eq (cdr (assoc 100 (reverse (entget sn))))
"AcDb3dPolyline"
)
)
(ssadd sn s)
)
)
(if (> (sslength s) 0)
(command "_.pedit" "_m" s "" "w" 1.4 "")
)
(princ "\n .... ")
)
); end foreach
(princ "\n Couldn't find any 2D polyline !!")
)
(princ)
)
What it should do is: For each layout go to layer "Gruppeområde" select all lines, arcs ,polylines, 3d polylines and set width to 1.4.
Any that can see what i do wrong?
I get the error :"invalid window specification"