Topic: Set default for getpoint

[ronjonp]

I am inserting our title blocks with lisp and was wondering how to make the insertion point default to 0,0 if the user hits enter. Does it have something to do with initgat?

Code: [Select]

 (initget 1)
  (setq pt (getpoint "\nPick Titleblock Location: "))
  (command ".-layer"
  "m"
  "m-sheet"
  ""
  ".-INSERT"
  "Aei8.5x11=Aei8.5x11.dwg"
  pt
  "1"
  "1"
  "0"
  )

Thanks,

Ron

[CAB]

Remove the (initget 1)
and use
(setq pt (getpoint "\nPick Titleblock Location: "))
(if (null pt) (setq pt '(0 0 0)))

Does not trap bad numeric entry from user.

[Mark]

Code: [Select]


(setq pt (getpoint "\nInsertion Point:<0,0,0> "))
;; if you hit <enter> at this prompt 'getpoint' returns 'nil'

(not (setq pt (getpoint "\nInsertion Point:<0,0,0> ")))
;; this returns 'T' if the user hits <enter>

;; so our test is to see of the user hit <enter> or picked a point
(if (not (setq pt (getpoint "\nInsertion Point:<0,0,0> ")))
  (prompt "\nUser hit <enter>")
  ;else
  (prompt "\nUser picked a point")
  )


[ronjonp]

Thanks guys....I'll learn this lisp stuff someday

[daron]

Do you need to use getpoint if you already know where you want your blocks placed?

(command ".-insert" "blockname" '(0.0 0.0) "1" """")

Something like that.

[ronjonp]

Do you need to use getpoint if you already know where you want your blocks placed?

I wanted to let the user be able to select a point......but most of the time the insertion will be 0,0.

Ron

[taner]

Do you need to use getpoint if you already know where you want your blocks placed?

I wanted to let the user be able to select a point......but most of the time the insertion will be 0,0.

Ron

http://paracadd.com/lisp.htm#external   

upoint.lsp