subst doesn't work

[KarolR]

i am a little novice to autolisp.

I am trying to write a routine that changes the precision of selected dimensions to 0. i have succeeded in changing the dotted pair of the number measured, and try to substitute that pair with the original one using the subst function.

nothing happens, and there is no error message.

Have any clues?

Thanks-Karol

[BlackBox]

Welcome to CADTutor!

 

If you're successfully employing SUBST function, consider the ENTMOD function. :wink:

[alanjt]

Welcome to CADTutor!

 

If you're successfully employing SUBST function, consider the ENTMOD function. :wink:

Thanks for the linky.

[BlackBox]

Thanks for the linky.

 

Anytime, dood. :wink:

 

I'm just bummed that they no longer include the ActiveX Reference (at least, I've not found it online) - Made a backup of acad_dev172.chm to copy forward into newer installs. LoL

[alanjt]

Anytime, dood. :wink:

 

I'm just bummed that they no longer include the ActiveX Reference (at least, I've not found it online) - Made a backup of acad_dev172.chm to copy forward into newer installs. LoL

Yeah, I still have this in my quick bookmarks: http://docs.autodesk.com/ACD/2011/ENU/filesDXF/WSfacf1429558a55de185c428100849a0ab7-5f35.htm

[BlackBox]

:wink: Linky saved. LoL

[alanjt]

:wink: Linky saved. LoL

[BlackBox]

....... ???

[alanjt]

....... ???

lol

Suddenly felt like posting something completely random. ImageAttachTourettes.

[BlackBox]

lol

Suddenly felt like posting something completely random. ImageAttachTourettes.

 

.... Uh, huh

 

 

[KarolR]

i have to use ENTMOD after i change the association list with SUBST, and, SUBST doesn't work

[Lee Mac]

'subst' does work; the error is in your coding.

 

Post the section of code that you are having trouble with.

[KarolR]

(defun C:TR ( / A B D NewValue OldValue Old New)

(setq A (ssget) B (sslength A))

(while (> B 0)

(setq B (B-1))

(setq D (entget (ssname A B)))

(setq Old (assoc '42 D))

(setq OldValue (cdr (assoc '42 D)))

(setq NewValue (fix OldValue))

(setq New (cons '42 50))

(subst New Old D)

(entmod D)

)

)

[alanjt]

You're not entmod'ing the subst'ed data.

Try:

  (entmod   (subst New Old D))

[BlackBox]

You're also not using

. 

[alanjt]

You're also not using

. 
 I'm going to start posting code with code tags, [i]just to make SLW210 happy[/i]. 

Edited January 19, 2012 by SLW210

[SLW210]

Persiflage removed and statement corrected.

[alanjt]

Persiflage removed and statement corrected.

Thanks O'Brien.

[BlackBox]

*Sigh*