Topic: user input in S::Startup

[BazzaCAD]

Can you have a (command) or (getpoint) in S::Startup?
If not is there a workaround?

[FengK]

you mean like this?

(defun S::STARTUP (/ pt)
  (setq pt (getpoint "\nPick a point: "))
  (prompt (strcat (vl-princ-to-string pt) "\n"))
  (command)
  (princ)
)
seems to be working.

[BazzaCAD]

Ya I guess it kind of works. I have:

Code: [Select]

(setq pt (getpoint "\nPick a point: "))
(setq pt2 (getcorner pt "Specify other corner point: "))
(command "RECTANGLE" pt pt2)
And I get:

Pick a point: *Cancel*

Pick a point:

Autodesk DWG.  This file is a TrustedDWG last saved by an Autodesk application
or Autodesk licensed application.

Command: Specify other corner point: RECTANGLE
Specify first corner point or [Chamfer/Elevation/Fillet/Thickness/Width]:
Specify other corner point or [Area/Dimensions/Rotation]:
Command:
Command:

Anyone know how to get read of this *Cancel* & Autodesk DWG..... ?