Trouble with SSADD

[rprovencio]

I seem to be having trouble adding mySSAdd to myObjs. Is there something wrong with what I'm doing here???



(setq myP1 (getpoint "\nPick first corner:"))
(setq myP2 (getcorner myP1 "\nPick opposite corner:"))
(command "._rectang" myP1 myP2)
(setq myObjs (ssget "_L"))
(princ "\nSelect island:")
(setq mySSAdd (ssget "_:S"))
(ssadd mySSAdd myObjs)
(command "-hatch" "p" "ANSI31" myHatchScale 0 "s" myObjs "" "")
(setq myPrev myMethod)


Thanks in advance.

Robert

[fixo]

Try this one instead


(defun C:SSD(/ Myhatchscale Myobjs Myp1 Myp2 Myssadd)
(setq myHatchScale 20.0);<--dummy value
(setq myP1 (getpoint "\nPick first corner:"))
(setq myP2 (getcorner myP1 "\nPick opposite corner:"))
(command "._rectang" myP1 myP2)
(setq myObjs (ssget "_L"))
(princ "\nSelect island:")
(setq mySSAdd (ssget "_:S"))
(ssadd (ssname mySSAdd 0) myObjs)
(command "-hatch" "p" "ANSI31" myHatchScale 0 "s" myObjs "" "")
;;; (setq myPrev myMethod);<-- unused in this context
(princ)
)


~'J'~

[rprovencio]

Thanks to both.

I used Fixo's fix.....o and it worked great. I thought maybe I needed an entity name, I just wasn't sure how to get it. The help file for SSADD was a little lacking.

[fixo]

Just a hint:
always look at the Help file
Cheers :)

~'J'~