Hi Alls,
From yesterday I not yet got solution to find my problem....
, my code can not fill at coloumn second for Y coordinates.
look at below
Command: _text
Current text style: "Standard" Text height: 2.0000
Specify start point of text or [Justify/Style]:
Specify height <2.0000>: 2
Specify rotation angle of text <0>:
Enter text: ; error: bad argument type: numberp: nil
Enter text: *Cancel*
(defun c:test (/ om cntx dl el1 len p1 p10 p11 p12 p13 p14
p15 p16 p2 p3 p4 p5 p6 p7 p8 p9 x cx cxl cy
cyl len lst p1 p17 p18 p19 p20 p21 strx stry)
(setq om (getvar "osmode"))
(if
(> om 0)
(setvar "osmode" 0)
) ; if
(create_table)
(create_text)
(setvar "osmode" om)
)
(defun create_table ()
(setq len 10)
(setq p1 '(0 0 0)) ;(getpoint "\nClick any location for table: "))
(setq p2 (polar p1 0 5))
(setq p3 (polar p2 0 20))
(setq p4 (polar p3 0 20))
(command "_line" p1 p4 "")
(setq el1 (entlast))
(command "_array" el1 "" "r" (+ len 1) "1" -5)
(setq dl (* len 5))
(setq p5 (polar p1 (* pi 1.5) dl))
(command "_line" p1 p5 "")
(setq p6 (polar p2 (* pi 1.5) dl))
(command "_line" p2 p6 "")
(setq p7 (polar p3 (* pi 1.5) dl))
(command "_line" p3 p7 "")
(setq p8 (polar p4 (* pi 1.5) dl))
(command "_line" p4 p8 "")
(setq p9 (polar p1 (* pi 1.5) 4.5))
(setq p10 (polar p9 0 1.5))
(command "_text" p10 2 "" "No")
(setq p11 (polar p10 0 5))
(command "_text" p11 2 "" "X Coor")
(setq p12 (polar p11 0 20))
(command "_text" p12 2 "" "Y Coor")
(setq p13 (polar p10 (* pi 1.5) 4.5))
(setq p14 (polar p13 0 10))
(command "_text" p14 2 "" "0.00")
(setq p15 (polar p14 0 20))
(command "_text" p15 2 "" "0.00")
(setq cntx 0)
(setq x 1)
(repeat
(- len 1)
(setq p16 (list (car p13)(+ (cadr p13) cntx)(caddr p13)))
(command "_text" p16 2 "" (itoa x) "")
(setq cntx (+ -5 cntx))
(setq x (1+ x))
)
(princ)
) ; defun
(defun create_text ()
(setq p1 '(0 0 0))
(setq lst '((58.0 0.00)(-17.50 0.00)(8.75 15.16)(8.75 -15.16)
(58.0 0.00)(-17.50 0.00)(8.75 15.16)(8.75 -15.16)))
(setq p17 (polar p1 (* pi 1.5) 14))
(setq p18 (polar p17 0 10))
(setq cx 0)
(setq cxl 0)
(setq len 10)
(repeat
(- len 1)
(setq p19 (list (car p18)(+ (cadr p18) cx)(caddr p18)))
(setq strx (car (nth cxl lst)))
(command "_text" p19 2 "" (rtos strx 2 2))
(setq cx (+ -5 cx))
(setq cxl (1+ cxl))
)
(setq cy 0)
(setq cyl 0)
(repeat
(- len 1)
(setq p20 (polar p19 0 20))
(setq p21 (list (car p20)(+ (cadr p20) cy)(caddr p20)))
(setq stry (cadr (nth cyl lst)))
(command "_text" p21 2 "" (rtos stry 2 2))
(setq cy (+ -5 cy))
(setq cyl (1+ cyl))
) ; repeat
(princ)
) ; defun