error: bad function: 1.60234

I've create a "entmake",after test it,them got trouble "error :bad function : 1.60234,I don't know what it wrong,can anybody help me,thanks
Best regards
Ade Suharna

(setq qp29 (polar (list 0 0)(dtr 6.31) 7.3729))
(setq qp29a 0.7668)
(setq qp29aa (polar qp29 0 qp29a))
(7.32823 0.810339)
0.7668
(8.09503 0.810339)
_$
_$ (entmake (list '(0 . "SPLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbSpline")
'(71 . 3)
(cons 10 (list (+ (car qp29aa) 0.0000)(+ (cadr qp29aa) 0.0000)))
(cons 10 (list (+ (car qp29aa) 0.0026)(+ (cadr qp29aa) -0.0271)))
(cons 10 (list (+ (car qp29aa) 0.0078)(+ (cadr qp29aa) -0.0811)))
(cons 10 (list (+ (car qp29aa) 0.0305)(+ (cadr qp29aa) -0.1606)))
(cons 10 (list (+ (car qp29aa) 0.0794)(+ (cadr qp29aa) -0.2270)))
(cons 10 (list (+ (car qp29aa) 0.1408)(+ (cadr qp29aa) -0.2819)))
(cons 10 (list (+ (car qp29aa) 0.2179)(+ (cadr qp29aa) -0.3118)))
(cons 10 (list (+ (car qp29aa) 0.2982)(+ (cadr qp29aa) -0.3267)))
(cons 10 (list (+ (car qp29aa) 0.3799)(+ (cadr qp29aa) -0.3301)))
(cons 10 (list (+ (car qp29aa) 0.4615)(+ (cadr qp29aa) -0.3250)))
(cons 10 (list (+ (car qp29aa) 0.5412)(+ (cadr qp29aa) -0.3060)))
(cons 10 (list (+ (car qp29aa) 0.6168)(+ (cadr qp29aa) -0.2769)))
(cons 10 (list (+ (car qp29aa) 0.6859)(+ (cadr qp29aa) -0.2280)))
(cons 10 (list (+ (car qp29aa) 0.7147)(+ (cadr qp29aa) -0.1501)))
(cons 10 (list (+ (car qp29aa) 0.7220)(+ (cadr qp29aa) -0.0657)))
(cons 10 (list (+ (car qp29aa) 0.6670)(+ (cadr qp29aa) 0.0027)))
(cons 10 (list (+ (car qp29aa) 0.5884)(+ (cadr qp29aa) 0.0353)))
(cons 10 (list (+ (car qp29aa) 0.5052)(+ (cadr qp29aa) 0.0568)))
(cons 10 (list (+ (car qp29aa) 0.4216)(+ (cadr qp29aa) 0.0841)))
(cons 10 (list (+ (car qp29aa) 0.3378)(+ (cadr qp29aa) 0.1053)))
(cons 10 (list (+ (car qp29aa) 0.2547)(+ (cadr qp29aa) 0.1291)))
(cons 10 (list (+ (car qp29aa) 0.1714)(+ (cadr qp29aa) 0.1523)))
(cons 10 (list (+ (car qp29aa) 0.0877)(+ (cadr qp29aa) 0.1742)))
(cons 10 (list (+ (car qp29aa) 0.0036)(+ (cadr qp29aa) 0.1942)))
(cons 10 (list (+ (car qp29aa) -0.0802)(+ (cadr qp29aa) 0.2152)))
(cons 10 (list (+ (car qp29aa) -0.1631)(+ (cadr qp29aa) 0.2401)))
(cons 10 (list (+ (car qp29aa) -0.2428)(+ (cadr qp29aa) 0.2740)))
(cons 10 (list (+ (car qp29aa) -0.3202)(+ (cadr qp29aa) 0.3124)))
(cons 10 (list (+ (car qp29aa) -0.3961)(+ (cadr qp29aa) 0.3539)))
(cons 10 (list (+ (car qp29aa) -0.4641)(+ (cadr qp29aa) 0.4084)))
(cons 10 (list (+ (car qp29aa) -0.5177)(+ (cadr qp29aa) 0.4768)))
(cons 10 (list (+ (car qp29aa) -0.5676)(+ (cadr qp29aa) 0.5478)))
(cons 10 (list (+ (car qp29aa) -0.6075)(+ (cadr qp29aa) 0.6254)))
(cons 10 (list (+ (car qp29aa) -0.6359)(+ (cadr qp29aa) 0.7077)))
(cons 10 (list (+ (car qp29aa) -0.6575((+ (cadr qp29aa) 0.7920)))
(cons 10 (list (+ (car qp29aa) -0.6673)(+ (cadr qp29aa) 0.8786)))
(cons 10 (list (+ (car qp29aa) -0.6680)(+ (cadr qp29aa) 0.9658)))
(cons 10 (list (+ (car qp29aa) -0.6543)(+ (cadr qp29aa) 1.0519)))
(cons 10 (list (+ (car qp29aa) -0.6309)(+ (cadr qp29aa) 1.1357)))
(cons 10 (list (+ (car qp29aa) -0.5994)(+ (cadr qp29aa) 1.2169)))
(cons 10 (list (+ (car qp29aa) -0.5584)(+ (cadr qp29aa) 1.2937)))
(cons 10 (list (+ (car qp29aa) -0.5101)(+ (cadr qp29aa) 1.3662)))
(cons 10 (list (+ (car qp29aa) -0.4511)(+ (cadr qp29aa) 1.4305)))
(cons 10 (list (+ (car qp29aa) -0.3831)(+ (cadr qp29aa) 1.4850)))
(cons 10 (list (+ (car qp29aa) -0.3100)(+ (cadr qp29aa) 1.5322)))
(cons 10 (list (+ (car qp29aa) -0.2321)(+ (cadr qp29aa) 1.5712)))
(cons 10 (list (+ (car qp29aa) -0.1503)(+ (cadr qp29aa) 1.6009)))
(cons 10 (list (+ (car qp29aa) -0.0669)(+ (cadr qp29aa) 1.6257)))
(cons 10 (list (+ (car qp29aa) 0.0176)(+ (cadr qp29aa) 1.6462)))
(cons 10 (list (+ (car qp29aa) 0.1039)(+ (cadr qp29aa) 1.6584)))
(cons 10 (list (+ (car qp29aa) 0.1909)(+ (cadr qp29aa) 1.6606)))
(cons 10 (list (+ (car qp29aa) 0.2778)(+ (cadr qp29aa) 1.6609)))
(cons 10 (list (+ (car qp29aa) 0.3648)(+ (cadr qp29aa) 1.6615)))
(cons 10 (list (+ (car qp29aa) 0.4517)(+ (cadr qp29aa) 1.6610)))
(cons 10 (list (+ (car qp29aa) 0.5386)(+ (cadr qp29aa) 1.6591)))
(cons 10 (list (+ (car qp29aa) 0.6254)(+ (cadr qp29aa) 1.6527)))
(cons 10 (list (+ (car qp29aa) 0.7111)(+ (cadr qp29aa) 1.6371)))
(cons 10 (list (+ (car qp29aa) 0.7947)(+ (cadr qp29aa) 1.6127)))
(cons 10 (list (+ (car qp29aa) 0.8766)(+ (cadr qp29aa) 1.5837)))
(cons 10 (list (+ (car qp29aa) 0.9558)(+ (cadr qp29aa) 1.5472)))
(cons 10 (list (+ (car qp29aa) 1.0282)(+ (cadr qp29aa) 1.4985)))
(cons 10 (list (+ (car qp29aa) 1.0955)(+ (cadr qp29aa) 1.4436)))
(cons 10 (list (+ (car qp29aa) 1.1601)(+ (cadr qp29aa) 1.3852)))
(cons 10 (list (+ (car qp29aa) 1.2159)(+ (cadr qp29aa) 1.3179)))
(cons 10 (list (+ (car qp29aa) 1.2587)(+ (cadr qp29aa) 1.2422)))
(cons 10 (list (+ (car qp29aa) 1.3013)(+ (cadr qp29aa) 1.1655)))
(cons 10 (list (+ (car qp29aa) 1.3271)(+ (cadr qp29aa) 1.0803)))
(cons 10 (list (+ (car qp29aa) 1.3385)(+ (cadr qp29aa) 0.9920)))
(cons 10 (list (+ (car qp29aa) 1.3423)(+ (cadr qp29aa) 0.9328)))
(cons 10 (list (+ (car qp29aa) 1.3441)(+ (cadr qp29aa) 0.9032)))
(cons 11 (list (+ (car qp29aa) 0.0000)(+ (cadr qp29aa) 0.0000)))
(cons 11 (list (+ (car qp29aa) 0.0103)(+ (cadr qp29aa) -0.0809)))
(cons 11 (list (+ (car qp29aa) 0.0349)(+ (cadr qp29aa) -0.1584)))
(cons 11 (list (+ (car qp29aa) 0.0814)(+ (cadr qp29aa) -0.2250)))
(cons 11 (list (+ (car qp29aa) 0.1435)(+ (cadr qp29aa) -0.2777)))
(cons 11 (list (+ (car qp29aa) 0.2184)(+ (cadr qp29aa) -0.3093)))
(cons 11 (list (+ (car qp29aa) 0.2984)(+ (cadr qp29aa) -0.3248)))
(cons 11 (list (+ (car qp29aa) 0.3798)(+ (cadr qp29aa) -0.3287)))
(cons 11 (list (+ (car qp29aa) 0.4612)(+ (cadr qp29aa) -0.3227)))
(cons 11 (list (+ (car qp29aa) 0.5406)(+ (cadr qp29aa) -0.3043)))
(cons 11 (list (+ (car qp29aa) 0.6158)(+ (cadr qp29aa) -0.2735)))
(cons 11 (list (+ (car qp29aa) 0.6791)(+ (cadr qp29aa) -0.2232)))
(cons 11 (list (+ (car qp29aa) 0.7112)(+ (cadr qp29aa) -0.1485)))
(cons 11 (list (+ (car qp29aa) 0.7118)(+ (cadr qp29aa) -0.0687)))
(cons 11 (list (+ (car qp29aa) 0.6637)(+ (cadr qp29aa) -0.0036)))
(cons 11 (list (+ (car qp29aa) 0.5909)(+ (cadr qp29aa) 0.0323)))
(cons 11 (list (+ (car qp29aa) 0.5041)(+ (cadr qp29aa) 0.0581)))
(cons 11 (list (+ (car qp29aa) 0.4213)(+ (cadr qp29aa) 0.0832)))
(cons 11 (list (+ (car qp29aa) 0.3379)(+ (cadr qp29aa) 0.1058)))
(cons 11 (list (+ (car qp29aa) 0.2546)(+ (cadr qp29aa) 0.1290)))
(cons 11 (list (+ (car qp29aa) 0.1713)(+ (cadr qp29aa) 0.1521)))
(cons 11 (list (+ (car qp29aa) 0.0877)(+ (cadr qp29aa) 0.1739)))
(cons 11 (list (+ (car qp29aa) 0.0037)(+ (cadr qp29aa) 0.1944)))
(cons 11 (list (+ (car qp29aa) -0.0801)(+ (cadr qp29aa) 0.2159)))
(cons 11 (list (+ (car qp29aa) -0.1626)(+ (cadr qp29aa) 0.2416)))
(cons 11 (list (+ (car qp29aa) -0.2424)(+ (cadr qp29aa) 0.2748)))
(cons 11 (list (+ (car qp29aa) -0.3199)(+ (cadr qp29aa) 0.3130)))
(cons 11 (list (+ (car qp29aa) -0.3948)(+ (cadr qp29aa) 0.3561)))
(cons 11 (list (+ (car qp29aa) -0.4617)(+ (cadr qp29aa) 0.4107)))
(cons 11 (list (+ (car qp29aa) -0.5169)(+ (cadr qp29aa) 0.4771)))
(cons 11 (list (+ (car qp29aa) -0.5659)(+ (cadr qp29aa) 0.5489)))
(cons 11 (list (+ (car qp29aa) -0.6056)(+ (cadr qp29aa) 0.6262)))
(cons 11 (list (+ (car qp29aa) -0.6348)(+ (cadr qp29aa) 0.7080)))
(cons 11 (list (+ (car qp29aa) -0.6555)(+ (cadr qp29aa) 0.7924)))
(cons 11 (list (+ (car qp29aa) -0.6658)(+ (cadr qp29aa) 0.8787)))
(cons 11 (list (+ (car qp29aa) -0.6656)(+ (cadr qp29aa) 0.9656)))
(cons 11 (list (+ (car qp29aa) -0.6527)(+ (cadr qp29aa) 1.0515)))
(cons 11 (list (+ (car qp29aa) -0.6296)(+ (cadr qp29aa) 1.1353)))
(cons 11 (list (+ (car qp29aa) -0.5978)(+ (cadr qp29aa) 1.2162)))
(cons 11 (list (+ (car qp29aa) -0.5572)(+ (cadr qp29aa) 1.2930)))
(cons 11 (list (+ (car qp29aa) -0.5083)(+ (cadr qp29aa) 1.3649)))
(cons 11 (list (+ (car qp29aa) -0.4496)(+ (cadr qp29aa) 1.4289)))
(cons 11 (list (+ (car qp29aa) -0.3823)(+ (cadr qp29aa) 1.4838)))
(cons 11 (list (+ (car qp29aa) -0.3092)(+ (cadr qp29aa) 1.5309)))
(cons 11 (list (+ (car qp29aa) -0.2315)(+ (cadr qp29aa) 1.5697)))
(cons 11 (list (+ (car qp29aa) -0.1500)(+ (cadr qp29aa) 1.6001)))
(cons 11 (list (+ (car qp29aa) -0.0667)(+ (cadr qp29aa) 1.6250)))
(cons 11 (list (+ (car qp29aa) 0.0179)(+ (cadr qp29aa) 1.6448)))
(cons 11 (list (+ (car qp29aa) 0.1040)(+ (cadr qp29aa) 1.6567)))
(cons 11 (list (+ (car qp29aa) 0.1909)(+ (cadr qp29aa) 1.6603)))
(cons 11 (list (+ (car qp29aa) 0.2778)(+ (cadr qp29aa) 1.6610)))
(cons 11 (list (+ (car qp29aa) 0.3648)(+ (cadr qp29aa) 1.6613)))
(cons 11 (list (+ (car qp29aa) 0.4517)(+ (cadr qp29aa) 1.6608)))
(cons 11 (list (+ (car qp29aa) 0.5386)(+ (cadr qp29aa) 1.6584)))
(cons 11 (list (+ (car qp29aa) 0.6253)(+ (cadr qp29aa) 1.6511)))
(cons 11 (list (+ (car qp29aa) 0.7108)(+ (cadr qp29aa) 1.6356)))
(cons 11 (list (+ (car qp29aa) 0.7944)(+ (cadr qp29aa) 1.6119)))
(cons 11 (list (+ (car qp29aa) 0.8762)(+ (cadr qp29aa) 1.5824)))
(cons 11 (list (+ (car qp29aa) 0.9547)(+ (cadr qp29aa) 1.5452)))
(cons 11 (list (+ (car qp29aa) 1.0273)(+ (cadr qp29aa) 1.4975)))
(cons 11 (list (+ (car qp29aa) 1.0951)(+ (cadr qp29aa) 1.4430)))
(cons 11 (list (+ (car qp29aa) 1.1586)(+ (cadr qp29aa) 1.3837)))
(cons 11 (list (+ (car qp29aa) 1.2137)(+ (cadr qp29aa) 1.3165)))
(cons 11 (list (+ (car qp29aa) 1.2586)(+ (cadr qp29aa) 1.2421)))
(cons 11 (list (+ (car qp29aa) 1.2982)(+ (cadr qp29aa) 1.1648)))
(cons 11 (list (+ (car qp29aa) 1.3247)(+ (cadr qp29aa) 1.0799)))
(cons 11 (list (+ (car qp29aa) 1.3375)(+ (cadr qp29aa) 0.9919)))
(cons 11 (list (+ (car qp29aa) 1.3441)(+ (cadr qp29aa) 0.9032)))))
((_> ))
; error: bad function: 1.60234

 

Try this

(setq qp29 (polar (list 0 0)(dtr 6.31) 7.3729)
qp29a 0.7668
qp29aa (polar qp29 0 qp29a)
;;; qp29aa (polar (polar (list 0 0) 0.11013 7.3729) 0 0.7668) this is without qp29, qp29a
p10Lst (list '(0.0000 0.0000)
'(0.0026 -0.0271)
'(0.0078 -0.0811)
'(0.0305 -0.1606)
'(0.0794 -0.2270)
'(0.1408 -0.2819)
'(0.2179 -0.3118)
'(0.2982 -0.3267)
'(0.3799 -0.3301)
'(0.4615 -0.3250)
'(0.5412 -0.3060)
'(0.6168 -0.2769)
'(0.6859 -0.2280)
'(0.7147 -0.1501)
'(0.7220 -0.0657)
'(0.6670 0.0027)
'(0.5884 0.0353)
'(0.5052 0.0568)
'(0.4216 0.0841)
'(0.3378 0.1053)
'(0.2547 0.1291)
'(0.1714 0.1523)
'(0.0877 0.1742)
'(0.0036 0.1942)
'(-0.0802 0.2152)
'(-0.1631 0.2401)
'(-0.2428 0.2740)
'(-0.3202 0.3124)
'(-0.3961 0.3539)
'(-0.4641 0.4084)
'(-0.5177 0.4768)
'(-0.5676 0.5478)
'(-0.6075 0.6254)
'(-0.6359 0.7077)
'(-0.6575 0.7920)
'(-0.6673 0.8786)
'(-0.6680 0.9658)
'(-0.6543 1.0519)
'(-0.6309 1.1357)
'(-0.5994 1.2169)
'(-0.5584 1.2937)
'(-0.5101 1.3662)
'(-0.4511 1.4305)
'(-0.3831 1.4850)
'(-0.3100 1.5322)
'(-0.2321 1.5712)
'(-0.1503 1.6009)
'(-0.0669 1.6257)
'(0.0176 1.6462)
'(0.1039 1.6584)
'(0.1909 1.6606)
'(0.2778 1.6609)
'(0.3648 1.6615)
'(0.4517 1.6610)
'(0.5386 1.6591)
'(0.6254 1.6527)
'(0.7111 1.6371)
'(0.7947 1.6127)
'(0.8766 1.5837)
'(0.9558 1.5472)
'(1.0282 1.4985)
'(1.0955 1.4436)
'(1.1601 1.3852)
'(1.2159 1.3179)
'(1.2587 1.2422)
'(1.3013 1.1655)
'(1.3271 1.0803)
'(1.3385 0.9920)
'(1.3423 0.9328)
'(1.3441 0.9032)
)
p11Lst (list '(0.0000 0.0000)
'(0.0103 -0.0809)
'(0.0349 -0.1584)
'(0.0814 -0.2250)
'(0.1435 -0.2777)
'(0.2184 -0.3093)
'(0.2984 -0.3248)
'(0.3798 -0.3287)
'(0.4612 -0.3227)
'(0.5406 -0.3043)
'(0.6158 -0.2735)
'(0.6791 -0.2232)
'(0.7112 -0.1485)
'(0.7118 -0.0687)
'(0.6637 -0.0036)
'(0.5909 0.0323)
'(0.5041 0.0581)
'(0.4213 0.0832)
'(0.3379 0.1058)
'(0.2546 0.1290)
'(0.1713 0.1521)
'(0.0877 0.1739)
'(0.0037 0.1944)
'(-0.0801 0.2159)
'(-0.1626 0.2416)
'(-0.2424 0.2748)
'(-0.3199 0.3130)
'(-0.3948 0.3561)
'(-0.4617 0.4107)
'(-0.5169 0.4771)
'(-0.5659 0.5489)
'(-0.6056 0.6262)
'(-0.6348 0.7080)
'(-0.6555 0.7924)
'(-0.6658 0.8787)
'(-0.6656 0.9656)
'(-0.6527 1.0515)
'(-0.6296 1.1353)
'(-0.5978 1.2162)
'(-0.5572 1.2930)
'(-0.5083 1.3649)
'(-0.4496 1.4289)
'(-0.3823 1.4838)
'(-0.3092 1.5309)
'(-0.2315 1.5697)
'(-0.1500 1.6001)
'(-0.0667 1.6250)
'(0.0179 1.6448)
'(0.1040 1.6567)
'(0.1909 1.6603)
'(0.2778 1.6610)
'(0.3648 1.6613)
'(0.4517 1.6608)
'(0.5386 1.6584)
'(0.6253 1.6511)
'(0.7108 1.6356)
'(0.7944 1.6119)
'(0.8762 1.5824)
'(0.9547 1.5452)
'(1.0273 1.4975)
'(1.0951 1.4430)
'(1.1586 1.3837)
'(1.2137 1.3165)
'(1.2586 1.2421)
'(1.2982 1.1648)
'(1.3247 1.0799)
'(1.3375 0.9919)
'(1.3441 0.9032)
)
)
(entmake (append (list '(0 . "SPLINE")'(100 . "AcDbEntity")'(100 . "AcDbSpline")'(71 . 3))
(mapcar '(lambda (p)(cons 10 (mapcar '+ p qp29aa))) p10Lst)
(mapcar '(lambda (p)(cons 11 (mapcar '+ p qp29aa))) p11Lst)
)
)

 

Ade,
in line: (setq qp29 (polar (list 0 0)(dtr 6.31) 7.3729))
do you have (defun dtr ... loaded ?

Bob

 

No it's not dtr
It's this line the parenthesis not enclosed (look after --0.6575
it' arround line 42

(cons 10 (list (+ (car qp29aa) -0.6575((+ (cadr qp29aa) 0.7920)))

 

Excellent.

 

Oh.. you 're right,perfect and thanks a lot

???????????????????????????????????????????????????????????????> No it's not
dtr