I am wondering why this doesn't work:
Code:
(setq el (entget (car (entsel)))) ;select the circle
(setq el (subst '(210 0 0 1) (assoc 210 el) el))
(entmod el)
This does work.
It changes the circle normal from (-1.22461e-016 -4.44089e-016 -1.0) -which is very very closed to (0 0 -1)- to (0 0 1).
But the center point -10 DXF code- (-10.0 5.0 -3.44505e-015) isn't changed.
You can try this :
- In the WCS, draw a circle center on (10 5) radius 5.3
- Select the circle and put the cursor on the circle center grip
- On command prompt, you read 10.0,5.0,0.0
- Now, rotate the UCS 180° on Y axis (this UCS is similar to the 3d rotated circle OCS)
- Select the circle and put the cursor on the circle center grip
- On command prompt, you read -10.0,5.0,0.0 which is very very closed to -10.0,5.0,-3.44505e-015
- In this UCS, if you draw a circle which center is 10,5 it will have the same position as the one got with :
(setq el (subst '(210 0 0 1) (assoc 210 el) el))
(entmod el)
I hope this example illustrates better thee question than I can do in my poor English