[求助]错误: 参数类型错误: fixnump: nil 怎么修改？

xyz2009xyz · 发表于 2010-7-29 12:36:00

加载后出现这种错误怎么修改？错在哪里？
如下：

错误: 参数类型错误: fixnump: nil

;;;说明
;(alert "提醒:
; \n请首先设置好输精度<小数点位数>,在绘图的过程中可随时用命令JD设置精度。
; \n命令"+ - * /"分别代表对所选择的数字求和差积商。
; \n其中"- /" 则是以你第一个选到的数字文本为被减数和被除数。
; \n命令".."(点点)代表对所选择的数字文本统一加减乘除某个数，默认为1。
; \n命令"TJ"代表对所选择的数字文本进行数学统计。
; \n所有生成的新文本均与第一个选到的数字文本的样式相同(除角度外)。"
;)
;;;定义了一个全局变量为精度
(defun C:JD (/ )
;;(prompt "\n请输入精度,直接回车则为系统精度:")
(initget 4)
(if (setq PRECISION (getint))
(princ)
(setq PRECISION (getvar "LUPREC"))
)
)
;;(C:JD)
;;;加
(defun C:AW (/ key sel ins first numlst result)
(while (common1)
(setq result (apply '+ (cadr numlst)))
(common2)
)
(princ)
)
;;;减
(defun C:AD (/ key sel ins first numlst result)
(while (common1)
(setq result (apply '- (cadr numlst)))
(common2)
)
(princ)
)
;;;乘
(defun C:AE (/ key sel ins first numlst result)
(while (common1)
(setq result (apply '* (cadr numlst)))
(common2)
)
(princ)
)
;;;除
(defun C:AR (/ key sel ins first numlst result)
(while (common1)
(setq result (apply '/ (cadr numlst)))
(common2)
)
(princ)
)
;;;所有数字都加减乘除某个数
(defun C:AF (/ key op sel ins first numlst result)
(while (setq sel (ssget '((0 . "TEXT,MTEXT"))))
(setq first (ssname sel 0))
(setq Numlst (sel->list sel))
(initget 1 "+ - * /")
(setq key (getkword "\n请输入加减乘除符号<+ - * />:"))
(initget 2)
(if (null (setq op (getreal "\n请输入操作数<默认为1>:")))
(setq op 1.0)
)
(all-cal numlst key op)
)
(princ)
)
;;;
(defun all-cal (result sym op / lst old new)
(foreach n (car numlst)
(setq lst (entget n))
(setq old (atof (cdr (assoc 1 lst))))
(setq new (eval (cons (read sym) (list old op))))
(setq new (cons 1 (rtos new (getvar "LUNITS") PRECISION)))
(setq lst (subst new (assoc 1 lst) lst))
(entmod lst)
)
)
;;;选择和插入点
(defun common1 ()
(and
(setq sel (ssget '((0 . "TEXT,MTEXT"))))
(null (initget 0 "Yes No"))
(if (setq key (getkword "\n是否保留原数字Yes,No?<默认不保留>:"))
(setq key "Yes")
(setq key "No")
)
(setq first (ssname sel 0))
(setq Numlst (sel->list sel))
)
)
;;;做文字或者更新文字
(defun common2 ()
(setq result (rtos result (getvar "LUNITS") PRECISION))
(if (= key "No")
(if (setq ins (getpoint "\n请输入插入点:"))
(make-text first result ins)
)
(update-text first result)
)
)
;;;选择集合转化成数字列表
(defun sel->list (sel / i ent lst num Els nls)
(setq i 0)
(repeat (sslength sel)
(setq ent (ssname sel i))
(setq lst (entget ent))
(setq num (atof (cdr (assoc 1 lst))))
(setq Els (cons ent Els))
(setq Nls (cons num Nls))
(setq i (1+ i))
)
(list
(reverse Els)
(reverse Nls)
)
)
;;;创建新文字,在指定点插入(源程序)
;(defun make-text (first string inspt / remove txtlst lst)
; (setq remove (list -1 330 5 1 10 11 50))
; (setq txtlst (entget first))
; (foreach n txtlst
; (if (not (member (car n) remove))
; (setq lst (cons n lst))
; )
; )
; (setq lst (cons (cons 1 string) lst))
; (setq lst (cons (cons 10 inspt) lst))
; (setq lst (cons (cons 11 inspt) lst))
; (setq lst (reverse lst))
; (cdr (assoc 40 (entmake lst)))
;)
;注意看一下Mtext的组码 11
;11
;X 轴方向矢量（在 WCS 中）
;DXF：X 值；APP：三维矢量
;将作为 DXF 输入传递的组码 50（以弧度为单位的旋转角）转换为相等的方向矢量（如果同时传递代码 50 和代码 11、21、31，则;对最后一个代码进行转换）。这是从文字对象转换的一种简便方法。
;Text的组码 11
;11
;第二对齐点（在 OCS 中）（可选）
;DXF：X 值；APP：三维点
;只有当 72 或 73 组的值非零时，该值才有意义（如果对正不是基线对正/左对正）
;程序中 make-text 函数始终传递inspt到10 与11 组码段当是Mtext的时候就与Text有变化
(defun make-text (first string inspt / remove txtlst lst)
(setq remove (list -1 330 5 1 10 11 50))
(setq txtlst (entget first))
(foreach n txtlst
(if (not (member (car n) remove))
(setq lst (cons n lst))
)
)
(if (= (cdr (assoc 0 lst)) "MTEXT")
(setq lst (subst (cons 41 (* (strlen string) 3)) (assoc 41 lst) lst))
);_重新计算多行文本的宽度
(setq lst (cons (cons 1 string) lst))
(setq lst (cons (cons 10 inspt) lst))
; (setq lst (cons (cons 11 inspt) lst))
(setq lst (reverse lst))
(cdr (assoc 40 (entmake lst)))
)
;;;保留文字,仅更新内容
(defun update-text (ent string / txtlst)
(setq txtlst (entget ent))
(setq txtlst (subst (cons 1 string) (assoc 1 txtlst) txtlst))
(entmod txtlst)
)
;;;统计数字文本
(defun C:tj (/ un sel ins tollst numlst first data len ang HIG j n m)
(setq un (getvar "LUNITS"))
(while (and (setq sel (ssget '((0 . "TEXT,MTEXT"))))
(setq ins (getpoint "\n请输入插入点:")))
(princ "\n统计正在进行......")
(setq tollst (sel->list sel))
(setq numlst (cadr tollst))
(setq first (caar tollst))
(setq data (STAT numlst))
(setq len (strcat (caar data) (itoa (cdar data))))
(setq HIG (* (make-text first len ins) 1.5))
(setq ang (* Pi -0.5))
(setq j 1)
(repeat 4
(setq n (nth j data))
(setq m (strcat (car n) (rtos (cdr n) un PRECISION)))
(make-text first m (polar ins ang (* j HIG)))
(setq j (1+ j))
)
(princ "\n统计已经完成!")
)
(princ)
)
;;;统计函数
(defun STAT (numlst / len sum ave var sqr std)
(setq len (length numlst)) ;样本数目
(setq sum (apply '+ numlst)) ;和
(setq ave (/ sum len)) ;均值
(setq var (mapcar '(lambda (x) (* (- x ave) (- x ave))) numlst))
;差平方
(setq sqr (/ (apply '+ var) len)) ;方差 variance
(setq std (sqrt sqr)) ;标准差
(list
(cons "样本数......" len)
(cons "总和........" sum)
(cons "平均值......" ave)
(cons "方差........" sqr)
(cons "标准差......" std)
)
)

;;;说明
;(alert "提醒:
;      \n请首先设置好输精度<小数点位数>,在绘图的过程中可随时用命令JD设置精度。
;       \n命令"+ - * /"分别代表对所选择的数字求和差积商。
;       \n其中"- /" 则是以你第一个选到的数字文本为被减数和被除数。
;       \n命令".."(点点)代表对所选择的数字文本统一加减乘除某个数，默认为1。
;       \n命令"TJ"代表对所选择的数字文本进行数学统计。
;       \n所有生成的新文本均与第一个选到的数字文本的样式相同(除角度外)。"
;)
;;;定义了一个全局变量为精度
(defun C:JD (/ )
;;(prompt "\n请输入精度,直接回车则为系统精度:")
  (initget 4)
  (if (setq PRECISION (getint))
     (princ)
     (setq PRECISION (getvar "LUPREC"))
  ) 
)
;;(C:JD)  
;;;加
(defun C:AW (/ key sel ins first numlst result)
  (while (common1)
    (setq result (apply '+ (cadr numlst)))
    (common2)          
  )
  (princ)
)
;;;减
(defun C:AD (/ key sel ins first numlst result)
  (while (common1)
    (setq result (apply '- (cadr numlst)))
    (common2)          
  )
  (princ)
)
;;;乘
(defun C:AE (/ key sel ins first numlst result)
  (while (common1)
    (setq result (apply '* (cadr numlst)))
    (common2)          
  )
  (princ)
)
;;;除
(defun C:AR (/ key sel ins first numlst result)
  (while (common1) 
    (setq result (apply '/ (cadr numlst)))
    (common2)          
  )
  (princ)
)
;;;所有数字都加减乘除某个数
(defun C:AF (/ key op sel ins first numlst result)
  (while (setq sel (ssget '((0 . "TEXT,MTEXT")))) 
    (setq first  (ssname sel 0))
    (setq Numlst (sel->list sel))
    (initget 1 "+ - * /")
    (setq key (getkword "\n请输入加减乘除符号<+ - * />:"))
    (initget 2)
    (if (null (setq op (getreal "\n请输入操作数<默认为1>:")))
      (setq op 1.0)
    )        
    (all-cal numlst key op)          
  )
  (princ)
)
;;;
(defun all-cal (result sym op / lst old new)
  (foreach n (car numlst)
    (setq lst (entget n))
    (setq old (atof (cdr (assoc 1 lst))))
    (setq new (eval (cons (read sym) (list old op))))
    (setq new (cons 1 (rtos new (getvar "LUNITS") PRECISION)))
    (setq lst (subst new (assoc 1 lst) lst))
    (entmod lst)
  )
)
;;;选择和插入点
(defun common1 ()
  (and 
    (setq sel (ssget '((0 . "TEXT,MTEXT"))))
    (null (initget 0 "Yes No"))
    (if (setq key (getkword "\n是否保留原数字Yes,No?<默认不保留>:"))
      (setq key "Yes")
      (setq key "No")
    )  
    (setq first  (ssname sel 0))
    (setq Numlst (sel->list sel))
  )
)
;;;做文字或者更新文字
(defun common2 ()
  (setq        result (rtos result (getvar "LUNITS") PRECISION))  
  (if (= key "No")
    (if (setq ins (getpoint "\n请输入插入点:"))
      (make-text first result ins)
    )
    (update-text first result)
  )
)
;;;选择集合转化成数字列表
(defun sel->list (sel / i ent lst num Els nls)
  (setq i 0)
  (repeat (sslength sel)
    (setq ent (ssname sel i))
    (setq lst (entget ent))
    (setq num (atof (cdr (assoc 1 lst))))
    (setq Els (cons ent Els))
    (setq Nls (cons num Nls))
    (setq i (1+ i))
  )
  (list
    (reverse Els)
    (reverse Nls)
  )
)  
;;;创建新文字,在指定点插入(源程序)
;(defun make-text (first string inspt / remove txtlst lst)
;  (setq remove (list -1 330 5 1 10 11 50))
;  (setq txtlst (entget first))
;  (foreach n txtlst
;    (if (not (member (car n) remove))
;      (setq lst (cons n lst))
;    )
;  )  
;  (setq lst (cons (cons 1 string) lst))
;  (setq lst (cons (cons 10 inspt) lst))
;  (setq lst (cons (cons 11 inspt) lst))
;  (setq lst (reverse lst))
;  (cdr (assoc 40 (entmake lst)))
;)
;注意看一下Mtext的组码 11
;11 
;X 轴方向矢量（在 WCS 中）
;DXF：X 值；APP：三维矢量
;将作为 DXF 输入传递的组码 50（以弧度为单位的旋转角）转换为相等的方向矢量（如果同时传递代码 50 和代码 11、21、31，则;对最后一个代码进行转换）。这是从文字对象转换的一种简便方法。 
;Text的组码 11
;11 
;第二对齐点（在 OCS 中）（可选）
;DXF：X 值；APP：三维点
;只有当 72 或 73 组的值非零时，该值才有意义（如果对正不是基线对正/左对正）
;程序中 make-text 函数始终传递inspt到10 与11 组码段 当是Mtext的时候就与Text有变化

(defun make-text (first string inspt / remove txtlst lst)
  (setq remove (list -1 330 5 1 10 11 50))
  (setq txtlst (entget first))
  (foreach n txtlst
    (if (not (member (car n) remove))
      (setq lst (cons n lst))
    )
  )
  (if (= (cdr (assoc 0 lst)) "MTEXT")
    (setq lst (subst (cons 41 (* (strlen string) 3)) (assoc 41 lst) lst))
    );_重新计算多行文本的宽度
  (setq lst (cons (cons 1 string) lst))
  (setq lst (cons (cons 10 inspt) lst))
; (setq lst (cons (cons 11 inspt) lst))
  (setq lst (reverse lst))
  (cdr (assoc 40 (entmake lst)))
)
;;;保留文字,仅更新内容
(defun update-text (ent string / txtlst)
  (setq txtlst (entget ent))
  (setq txtlst (subst (cons 1 string) (assoc 1 txtlst) txtlst))
  (entmod txtlst)
)
;;;统计数字文本
(defun C:tj (/ un sel ins tollst numlst first data len ang HIG j n m)
  (setq un (getvar "LUNITS"))
  (while (and (setq sel (ssget '((0 . "TEXT,MTEXT"))))
              (setq ins (getpoint "\n请输入插入点:")))
    (princ "\n统计正在进行......")
    (setq tollst (sel->list sel))
    (setq numlst (cadr tollst))
    (setq first  (caar tollst))
    (setq data   (STAT numlst))
    (setq len (strcat (caar data) (itoa (cdar data))))
    (setq HIG (* (make-text first len ins) 1.5))
    (setq ang (* Pi -0.5))
    (setq j 1)
    (repeat 4
      (setq n (nth j data))
      (setq m (strcat (car n) (rtos (cdr n) un PRECISION)))
      (make-text first m (polar ins ang (* j HIG)))
      (setq j (1+ j))
    )
    (princ "\n统计已经完成!")
  )
  (princ)
)
;;;统计函数
(defun STAT (numlst / len sum ave var sqr std)
  (setq len (length numlst))                        ;样本数目
  (setq sum (apply '+ numlst))                      ;和
  (setq ave (/ sum len))                            ;均值
  (setq var (mapcar '(lambda (x) (* (- x ave) (- x ave))) numlst))
                                                    ;差平方
  (setq sqr (/ (apply '+ var) len))                 ;方差  variance 
  (setq std (sqrt sqr))                             ;标准差
  (list
    (cons "样本数......" len)
    (cons "总和........" sum)
    (cons "平均值......" ave)
    (cons "方差........" sqr)
    (cons "标准差......" std)
  )
)

xyz2009xyz · 发表于 2010-7-29 12:40:00

请gufeng楼主再帮我看一下，make-text (first string inspt / remove txtlst lst)这个函数是你帮给我修改的,

估计可能是他的问题！

xyz2009xyz · 发表于 2010-7-29 23:54:00

各位大虾帮我分析一下原因啊！

ZZXXQQ · 发表于 2010-7-30 09:58:00

你把“+，-，*，/ ”函数名都改了当然不行了。

xyz2009xyz · 发表于 2010-7-30 16:05:00

;;;加
(defun C:+ (/ key sel ins first numlst result)
(while (common1)
(setq result (apply '+ (cadr numlst)))
(common2)
)
(princ)
)

ZZXXQQ版主是说把 "AW" 这个改回 "+" 来？我改掉是因为这个加号不好输入，应该没关系吧？

xyz2009xyz · 发表于 2010-7-30 16:37:00

ZZXXQQ版主我这个本来是正常的，可以计算的，就是一段时间后不正常了，重新弄一步一步改，先加上

(while (setq sel (ssget '((0 . "TEXT,MTEXT")))) 增加了不过滤多行文本（有三个地方）后；再更改了一下

make-text (first string inspt / remove txtlst lst) 函数，1楼程序注释里有这个的源程序；然后把 "+" 这个改成 "AW" 等，又运行正常了！就是不久又出问题，CAD2004版本。

ZZXXQQ · 发表于 2010-7-31 12:00:00

要不就把all-cal函数改成：

(defun all-cal (result sym op / lst old new)
(foreach n (car numlst)
    (setq lst (entget n))
    (setq old (atof (cdr (assoc 1 lst))))
    (setq sym
     (cond
      ((= sym "+") "C:AW")
      ((= sym "-") "C:AD")
      ((= sym "*") "C:AE")
      (T "C:AR")
     )
    )
    (setq new (eval (cons (read sym) (list old op))))
    (setq new (cons 1 (rtos new (getvar "LUNITS") PRECISION)))
    (setq lst (subst new (assoc 1 lst) lst))
    (entmod lst)
)
)

账号		自动登录	找回密码
密码			注册

[求助]错误: 参数类型错误: fixnump: nil 怎么修改？

本帖子中包含更多资源