modified "Polygon" command

[CISCO]

I am trying to come up with a modified "polygon" command.
What I need:
-always 12 sided
-always circumscribed about circle
-enter diameter instead of radius (std is to enter radius)

I am fairly new to lisps, and thanks for your help in advance.

This is what i have so far:

(defun cg12 () ;
(SETQ pgpt1 (getpoint "\Specify center of polygon: "))
(command "polygon" "12" pgpt1 "c")
(princ)
)

[rkmcswain]

Here is one way...

(defun c:g12 () 
  (vl-cmdf
    "._Polygon"
    "12"
    (getpoint "\Specify center of polygon: ")
    "_C"
    (* (getreal "\nEnter diameter: ") 0.5)
  )
(princ)
)

[Tharwat]

Here is another way and with the same result .

(defun c:g12 (/ dia cen)
  (if (and (setq dia (/ (getreal "\nDiameter of Polygon :") 2.0))
	   (setq cen (getpoint "\nCenter of Polygon :"))
	)
  (vl-cmdf "_.polygon" 12 cen "_c" dia))
  (princ)
  )

Tharwat

[CISCO]

Thanks. Both of them worked, its always good to see different ways of coming up with the same result. I appreciate the help.

[alanjt]

Here is another way and with the same result .

(defun c:g12 (/ dia cen)
  (if (and (setq dia (/ (getreal "\nDiameter of Polygon :") 2.0))
       (setq cen (getpoint "\nCenter of Polygon :"))
    )
  (vl-cmdf "_.polygon" 12 cen "_c" dia))
  (princ)
  )

Tharwat

Remove possible errors...

(defun c:g12 (/ p d)
  (if (and (setq p (getpoint "\nSpecify center of polygon: "))
           (not (initget 6))
           (setq d (getdist "\nSpecify diameter of polygon: "))
      )
    (command "_.polygon" 12 "_non" p "_c" (/ d 2.))
  )
  (princ)
)

[Tharwat]

Remove possible errors...

(defun c:g12 (/ p d)
  (if (and (setq p (getpoint "\nSpecify center of polygon: "))
           (not (initget 6))
           (setq d (getdist "\nSpecify diameter of polygon: "))
      )
    (command "_.polygon" 12 "_non" p "_c" (/ d 2.))
  )
  (princ)
)

ِAbsolutely right.

With my codes if user hit <enter> I mean without a value, it would give the following error.

; error: bad argument type: numberp: nil

But with your codes, it would exit calmly.

Thank you so much Alanjt.

Greatly appreciated.

Tharwat

[Tharwat]

Mr. Alanjt.

Would you please give us an example of making this small routine the same way that we insert a block with the command insert ?

For example:

First enter the dia.
Second insert the polygon the same way you insert a block.

I would like to get that kind of technique from you.

Thanks.

Tharwat

[alanjt]

Mr. Alanjt.

Would you please give us an example of making this small routine the same way that we insert a block with the command insert ?

For example:

First enter the dia.
Second insert the polygon the same way you insert a block.

I would like to get that kind of technique from you.

Thanks.

Tharwat

Just reverse your prompts...

(defun c:g12 (/ d p)
  (initget 6)
  (if (and (setq d (getdist "\nSpecify diameter of polygon: "))
           (setq p (getpoint "\nSpecify center of polygon: "))
      )
    (command "_.polygon" 12 "_non" p "_c" (/ d 2.))
  )
  (princ)
)

[Tharwat]

Thanks.

But that wasn't what I meant. something like using the function grread or so.

[alanjt]

Thanks.

But that wasn't what I meant. something like using the function grread or so.

I don't understand. You've specified the insertion point, size and number of segments. There's nothing else one could do. Are you wanting to use grread to place and/or set size of polygon?