Lisp with error-handling

Macekkrecek · 发表于 2022-7-5 23:25:56

Dear Lisp-Proffessionals

i have this following little Code with which i try to convert a text's entity style into "Simplex" (just an example). The text is on the layer "Test". Now, when there is a textfield on the layer "Test", the lisp works perfectly fine, but as soon as there is no textfield it doesn't. this wouldn't be a problem, but since there are some other conversion-codes after this particular one the whole code isn't working..
here is the code:

(defun c:Convert  (/ entities len count ent ent_data ent_name new_style_name )

(setq entities (ssget "X" '(
      (-4 . "")
      (-4 . "")))
   len    (sslength entities)
   count 0
)
(while (
(setq  ent    (ssname entities count)
         ent_data (entget ent)
         ent_name (cdr (assoc 7 ent_data))
   )
      (setq new_style_name (cons 7 "SIMPLEX"))
(setq ent_data (subst new_style_name (assoc 7 ent_data) ent_data))
(entmod ent_data)
   (setq count (+ count 1))
) ; while
); defun

I guess what i need is some error-handling? So i thought to put in the two lines to stop the error:
; if
; progn entities

(defun c:Convert  (/ entities len count ent ent_data ent_name new_style_name )

(setq entities (ssget "X" '(
      (-4 . "")
      (-4 . "")))
   len    (sslength entities)
   count 0
)
(if entities
  (progn
(while (
(setq  ent    (ssname entities count)
         ent_data (entget ent)
         ent_name (cdr (assoc 7 ent_data))
   )
      (setq new_style_name (cons 7 "SIMPLEX"))
(setq ent_data (subst new_style_name (assoc 7 ent_data) ent_data))
(entmod ent_data)
   (setq count (+ count 1))
) ;while
) ;progn
  ) ; if
); defun

Even with that it wouldn't do the following conversions. I don't know much of errror-handling that is maybe why... Can please somebody tell me what i'm doing wrong?

Thank you!

Tharwat · 发表于 2022-7-5 23:54:56

Welcome to CADTutor .

Read this about code posting guidlines .

http://www.cadtutor.net/forum/showthread.php?9184-Code-posting-guidelines&p=51051&viewfull=1#post51051

David Bethel · 发表于 2022-7-5 23:56:29

Maybe:

copy

[b][color=BLACK]([/color][/b]defun c:convert [b][color=FUCHSIA]([/color][/b]/ ss i en ed[b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget [color=#2f4f4f]"X"[/color] '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"*TEXT"[/color][b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]8 . [color=#2f4f4f]"TEST"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]     [b][color=NAVY]([/color][/b]progn       [b][color=MAROON]([/color][/b]setq i 0[b][color=MAROON])[/color][/b]       [b][color=MAROON]([/color][/b]while [b][color=GREEN]([/color][/b]setq en [b][color=BLUE]([/color][/b]ssname ss i[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]              [b][color=GREEN]([/color][/b]setq ed [b][color=BLUE]([/color][/b]entget en[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]              [b][color=GREEN]([/color][/b]entmod [b][color=BLUE]([/color][/b]subst [b][color=RED]([/color][/b]cons 7 [color=#2f4f4f]"SIMPLEX"[/color][b][color=RED])[/color][/b] [b][color=RED]([/color][/b]assoc 7 ed[b][color=RED])[/color][/b] ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]              [b][color=GREEN]([/color][/b]setq i [b][color=BLUE]([/color][/b]1+ i[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

-David