one way...
(DEFUN CHANGEZ()
(SETQ ENT(CAR(ENTSEL"\nPick"))
elst(entget ent)
extr(cdr(assoc 210 elst)) ; get the existing extrusion direction
)
;modify the z as needed
;just for example I made the z -1 since the line I selected started out with
1
(setq newextr(list (car extr)(cadr extr) -1))
;you would reverse that for your needs or whatever other adjustments you
wanted to do
;rewrite the entity list with new extrusion direction
(setq elst
(subst (cons 210 newextr)
(assoc 210 elst)
Elst
)
)
;update database
(entmod elst)
)
hth
Mark
"petd"
wrote in message news:f16e2e1.-1@WebX.maYIadrTaRb...
> Hi,
> I like to change the Z= propertie form lines and arcs (that are from a
exploded solids from
> a 3d solid) extrusion direction relative to UCS:
> X= 0.0000 Y= 0.0000 Z= -1.0000
>
> Propertie box: Geometry: Normal Z= -1.0000
>
> Explanation in the autocad help:
> Reports the X,Y,Z values of the normal direction vector relative to the
WCS
> This property specifies a vector, not a location in space
>
> The Z-value should be 1
>
> Peter D
>
>