[求助]：大侠们帮忙看看这段程序

frankxie

(setq i 1)
  (while
  (setq en (entsel(strcat"\n" "选择切杆" (itoa i))))
   (setq en (car en))
  (setq qen en)
  (setq e (entget en))
  (redraw en 3)
  ;(setq gq i)
(setq i (+ 1 i))
  )

当在执行此程序,选择完切竿后点击右键,提示错误.说:
错误: 参数类型错误: lentityp nil

请问怎么回事

Underway

这段程序 OK
[参数类型错误: lentityp nil] 可能来至前一程序

xyp1964

此部分没有问题

2. [FONT=courier new](defun c:test ()
   
3.   (setq i 1)
   
4.   (while (setq en (entsel (strcat "\n" "选择切杆" (itoa i) " <退出> : ")))
   
5.     (setq en (car en))
   
6.                                         ;(setq qen en)
   
7.                                         ; (setq e (entget en))
   
8.     (redraw en 3)
   
9.     (setq i (+ 1 i))
   
10.   )
    
11.   (princ)
    
12. )
    
13. [/FONT]

[FONT=courier new](defun c:test ()<br />   (setq i 1)<br />   (while (setq en (entsel (strcat "\n" "选择切杆" (itoa i) " <退出> : ")))<br />     (setq en (car en))<br />                                         ;(setq qen en)<br />                                         ; (setq e (entget en))<br />     (redraw en 3)<br />     (setq i (+ 1 i))<br />   )<br />   (princ)<br /> )<br /> [/FONT]

frankxie

原来的程序是
(setq en (entsel(strcat"\n选择切杆" ())
(setq en (car en))
(setq qen en)
(setq e (entget en))
(redraw en 3)

运行选择切管一次,没有问题,改成我上边哪个程序就不行了 不知如何是好

xyp1964

最初由 frankxie 发布
[B]原来的程序是
(setq en (entsel(strcat"\n选择切杆" ())
(setq en (car en))
(setq qen en)
(setq e (entget en))
(redraw en 3)

运行选择切管一次,没有问题,改成我上边哪个程序就不行了 不知如何是好 [/B]

程序全部贴出来！
此句严重错误！！
(setq en (entsel(strcat"\n选择切杆" ())

frankxie

全部程序
(defun c:nmak(
;循环选择左主杆
(setq i 1)
(while
  (setq en (entsel(strcat"\n" "选择左主杆" (itoa i))))
  (setq en (car en))
  (setq e (entget en))
   (redraw en 3)
  ;提取左主杆参数
  (cond
    ((= "LINE"(cdr (assoc 0 e)))
     (progn
  (set (read (strcat "lp" (itoa i) "1")) (cdr (assoc 10 e)))
  (set (read (strcat "lp" (itoa i) "2")) (cdr (assoc 11 e)))
  ))
    ((= "CIRCLE"(cdr (assoc 0 e)))
     (progn
(set (read (strcat "lp" (itoa i) "1")) (cdr (assoc 10 e)))
(set (read (strcat "lp" (itoa i) "2")) (list(cdr (assoc 40 e)) (cdr (assoc 210 e))))
  ))   
  )
  ;转化为词典对象并将输入参数提取出
  (turn)
  (set (read(strcat "lt" (itoa i))) typ)
  ;若是管输入穿透或不穿透
(cond
    ((= "pipe"(eval(read (strcat "lt" (itoa i)))))
    (if (= i 1)
     (progn
    (set (read(strcat "ld" (itoa i)))(atof(car first)))
    (set (read (strcat "lthr" (itoa i))) "y")
  )
   (progn
  (set (read(strcat "ld" (itoa i)))(atof(car first)))
  (set (read (strcat "lthr" (itoa i))) "n")
  )
     ))
    ((= "board"(eval(read (strcat "lt" (itoa i)))))
    (progn
    (set (read(strcat "lh" (itoa i)))(atof h))
    (set (read(strcat "langel" (itoa i)))(atof angel))
  ))
    ((= "ring"(eval(read (strcat "lt" (itoa i)))))
    (progn
    (set (read(strcat "lbr" (itoa i)))(atof odia))
    (set (read(strcat "ld" (itoa i)))(atof idia))
  ))
    ((= "cone"(eval(read (strcat "lt" (itoa i)))))
    (progn
    (set (read(strcat "ld2" (itoa i)))(atof bigdia))
    (set (read(strcat "ld1" (itoa i)))(atof smalldia))   
  ))
    )
  (setq lnum i)
(setq i (+ 1 i))
  )
  ;选择切杆
  (setq i 1)
  (while
  (setq en (entsel(strcat"\n选择切杆" (itoa i))))
  ;(setq en (entsel"\n选择切杆" ))
  (setq en (car en))
  (setq qen en)
  (setq e (entget en))
  (redraw en 3)
  (setq gq i)
  (setq i (+ 1 i))
  )
;提取切杆参数         
(setq
      Pa (cdr (assoc 10 e))
      Pb (cdr (assoc 11 e))
      )
  ;转化为词典对象函数
  (turn)
  (setq d (atof(car first)))
  (setq tt (atof(cadr first)))
)

xyp1964

依然不全，严重低级错误：
(defun c:nmak(
;循环选择左主杆
(setq i 1)