modify entity...

[caduser]

(setq x 25.23)
(setq y 31.26)
(setq z 0.00)
(setq new (subst '(10 . 23.00 30.00 0.00)2nd 1st))
(entmod new)

what i need, how to change the value '(10 . value to given value (x y z)

 

[Rune Wold]

DXF code 10 is used for points, and points are not dotted pairs.

You don't provide enough information, so I'll have to guess...

Replace the SUBST line with:
(setq new (subst '(10 23.00 30.00 0.00) 2nd 1st))

I just removed the dot after '10'.

This would probably work also:
(setq new (subst (list 10 x y z) 2nd 1st))

As for your variable names, I would recommend using Hungarian notation.

 

[caduser]

yes u right dotted pairs don't have actualy

DXF code 10 is used for points, and points are not dotted pairs.

You don't provide enough information, so I'll have to guess...

Replace the SUBST line with:
(setq new (subst '(10 23.00 30.00 0.00) 2nd 1st))

I just removed the dot after '10'.

This would probably work also:
(setq new (subst (list 10 x y z) 2nd 1st))

As for your variable names, I would recommend using Hungarian notation.