bad argument type: 2D/3D point: nil

[Was_Goss]

Hi!

 

I tried this in AutoCAD 2018:

 

 

(defun c:CCA ()

 (setq R 10)
 (setq H 10)
 
 (setq N 1)

 (command "circle"  p1  R)

 (while
 (setq p1 (getpoint "Centre:"))

 (command "circle"  p1  R)

 (command "Text" "j" "M" p1 H 0 N "" )
 (setq N (+N 1 ))
 
 )

 

but result:

bad argument type: 2D/3D point: nil

 

Can somebody help me? thanks a lot.

Edited April 9, 2018 by SLW210
Added Code Tags.

[Tharwat]

Hi,

 

The first variable p1 is equal to nil when you start up that routine so that's why it fails.

 

Just for your understanding;

 

(defun c:cca (/ r h n p1)
 (setq r 10
       h 10
       n 0
 )
 (while (setq p1 (getpoint "Centre:"))
   (command "circle" "_non" p1 r)
   (command "Text" "j" "M" "_non" p1 h 0 (setq n (1+ n)))
 )
 (princ)
)

[rlx]

; see tharwat :-)

sorry Tharwat , didn't see your response when I submitted...

[SLW210]

Please read the Code Posting Guidelines and have your Code to be included in Code Tags.[NOPARSE]

Your Code Here[/NOPARSE]

=

Your Code Here