(defun c:cp ()
(setvar "cmdecho" 0)
(setq cenpt
\x09 (getpoint "輸入圓心:")
\x09)
(setq rad
\x09 (getdist cenpt "輸入半徑:")
\x09)
(setq num
\x09 (getint "\n 輸入多邊形邊數(shù):")
\x09)
(command "polygon" num cenpt "i" rad)
(prin1)
)
我編的這個沒有指定半徑和多邊形的邊數(shù),你可以任意輸入,加載完以后,在cad命令中輸入cp,依次輸入圓心、半徑、邊數(shù),就可以出來多邊形了.你要是規(guī)定了半徑和邊數(shù)是100和6,那就用下面的,只要點個圓心就好了.
(defun c:cp ()
(setvar "cmdecho" 0)
(setq cenpt
\x09 (getpoint "輸入圓心:")
\x09)
(command "polygon" 6 cenpt "i" 100)
(prin1)
)