Topic: Another hatch lisp

[TJAM51]

The routine below only allows a single pick of lines.....I need some assistance in where it will do a crossing as well as a single pick....

Thanks


(defun c:h (/ sSet *error*)
(defun *error* (msg)
(setvar "cmdecho" 1)
); end *error*
(setvar "cmdecho" 0)
(princ "*** Select objects for Hatch & press [Enter] ")
(terpri)
(command "hatch" "" "" "")
(while (= 1 (getvar "cmdactive"))
(command pause)
); end while
(command "")
(princ)
)

[TJAM51]

I could use some help on this....

thanks

[CAB]

This will get you started.

Code: [Select]

(defun c:h (/ ss)
  (setvar "cmdecho" 0)
  (prompt "\n*** Select objects for Hatch & press [Enter] ")
  (if (and (setq ss (ssget))
           (> (sslength ss) 0))
    (command "hatch" "" "" "" ss "")
  )
  (princ)
)

[TJAM51]

When I load the routine I receive the following error message.....



error: malformed list on input

[MP]

Just missing a closing parenthesis after the local declarations, try this --

Code: [Select]

(defun c:h (/ ss)
    (setvar "cmdecho" 0)
    (prompt "\n*** Select objects for Hatch & press [Enter] ")
    (if (and
            (setq ss (ssget))
            (> (sslength ss) 0)
        )
        (command "hatch" "" "" "" ss "")
    )
    (princ)
)

[CAB]

Thanks MP, I added it to my post too.

[MP]

My pleasure.