the lisp give me { error: bad argument type: numberp: nil}
can help me
thanks all.
(defun C:xx (/ A acDataRow acHeaderRow acMiddleCenter acTitleRow B C COLWIDTH CURSPACE DOC E HT N NN NUMCOLUMNS NUMROWS OBJTABLE PT PT1 PTCNTR PTS ROWHEIGHT Y )
(command "layer" "m" "AVG" "")
(command "color" "t" "253,176,23")
(command
"-osnap"
"endpoint,midpoint,center,node,quadrant,tangent,INTersection,PERpendicular"
)
(SETQ ht (GETreal "\Enter Text height : "))
(SETQ n 0)
(while
(setq pt (getpoint "\nSpecify a point :"))
;;; (SETQ SUMM (ATOF (CDR (ASSOC 1 (TYPE pt)))))
(setq pts (cons pt pts))
(SETQ n (1+ n))
(COMMAND "TEXT" pt ht "0" (rtos n))
(COMMAND "_point" pt "")
);while
(reverse pts)
(vl-load-com)
(setq ptCntr 1)
(setq pt1 (vlax-3d-point
(getpoint "\nPick point for top left hand of table: ")
)
)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq curspace (vla-get-modelspace doc))
(setq numrows (+ 2 n))
(setq numcolumns 4)
(setq rowheight 6)
(setq colwidth 25)
(setq objtable (vla-addtable
curspace pt1 numrows numcolumns rowheight colwidth)
)
(vla-settext objtable 0 0 "جدول الاحداثيات")
(vla-setcolumnwidth objtable 0 25)
(vla-setcolumnwidth objtable 1 25)
(vla-settext objtable 1 0 "رقم النقطة")
(vla-settext objtable 1 1 "x")
(vla-settext objtable 1 2 "y")
(vla-settext objtable 1 3 "z")
(vla-SetTextHeight
Objtable
(+ acDataRow acHeaderRow acTitleRow)
2.5
)
(vla-SetAlignment Objtable acDataRow acMiddleCenter)
(SETQ Y 2)
(SETQ nn 0)
(while
(progn
((<= nn n)
(SETQ e(nth (- n nn) pts))
(SETQ a (CAR e))
(SETQ B (CADR e))
(SETQ c (CADDR e))
(RTOS a 2 2)
(RTOS B 2 2)
(RTOS c 2 2)
(vla-settext objtable Y 0 (itoa ptCntr))
(vla-settext objtable Y 1 (rtos a 2 3))
(vla-settext objtable Y 2 (rtos b 2 3))
(vla-settext objtable Y 3 (rtos c 2 3))
(setq y (1+ Y ))
(setq ptCntr (+ ptCntr 1))
(setq nn (+ 1 nn))
)
))
)