请教各位：

koalabear

各位：今天整了个程序。运行显示结果正确，但是最后显示--错误: 参数类型错误: lentityp nil, 请问是怎么回事，哪位麻烦解答一下。

xyp1964

上载程序看看！

koalabear

(defun C:ljth (/ OrigEnt OrigEntData OrigText
NumText PrefixLen Prefix Num
NewEntData NewPt Continue
);文字累加替换
(setq CopyIncOldErrorFunc *error*)
(setq *error* CopyIncErrorFunc)
(setvar "blipmode" 0)
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(while (= OrigEnt nil)
(setq OrigEnt (entsel "\n选择文本: "))
)
(setq OrigEntData (cdr (entget (car OrigEnt)))) (if (/= (cdr (assoc 0 OrigEntData)) "TEXT")
(princ "所选对象不是text文本.")
(progn
(setq OrigText (cdr (assoc 1 OrigEntData)))
(setq NumText (GetSuffixDigits OrigText))
(if (= NumText "")
(princ "所选文字不是以数字结尾.")
(progn
(setq PrefixLen (- (strlen OrigText) (strlen NumText)))
(if (= PrefixLen 0)
(setq Prefix "")
(setq Prefix (substr OrigText 1 PrefixLen))
)
(setq Num (atoi NumText))
(setq Continue T)
(while Continue
(setq Num (1+ Num)) ;;; (initget 128)
(setq ss2 (entsel "\n选取替换对象"))
(setq ss2_data (entget (car ss2)))
(setq ss2_typ (cdr (assoc 0 ss2_data)))
(if (= ss2_typ "TEXT")
(setq x2 (assoc 1 ss2_data))
(progn (alert "选取对象不是text文本,不能进行替换。")
(exit)
)
)
(setq xx2 (cons 1 (strcat Prefix (itoa Num))))
(setq
ss2_data (subst xx2 x2 ss2_data)
)
(entmod ss2_data) ) ;end of while loop
)
)
)
) (setq *error* CopyIncOldErrorFunc)
(setvar "osmode" os)
(prin1)
) ;----GetSuffixDigits---------------------------------------------------
; This function accepts a string argument which has digits at the
; end of it. It returns a string of just those digits. For example:
; (GetSuffixDigits "A102") returns "102"
; (GetSuffixDigits "102") returns "102"
; (GetSuffixDigits "") returns ""
; (GetSuffixDigits "ABC") returns ""
; (GetSuffixDigits 123) will generate an error (bad argument type)
;----------------------------------------------------------------------
(defun GetSuffixDigits (OrigStr / Digits PrefixLen Char)
(setq Digits "")
(setq PrefixLen (strlen OrigStr))
(while (> PrefixLen 0)
(setq Char (substr OrigStr PrefixLen 1)) ;get last char of string
(if (wcmatch Char "#") ;if it's a digit...
(progn
(setq Digits (strcat Char Digits)) ;include in result str
(setq PrefixLen (1- PrefixLen)) ;ready to check next chr
)
(setq PrefixLen 0) ;quit at first alpha
)
)
(setq Digits Digits)
) ;----Error Handling----------------------------------------------------
; The routine below supplies our error handling in case the user
; cancels the CopyInc function. The global holds the pointer to the
; current error handler so it can be restored on exit.
;----------------------------------------------------------------------
(setq CopyIncOldErrorFunc nil) ;global holds old func (defun CopyIncErrorFunc (msg)
(if (= msg "函数取消.")
(princ " ")
(if (= msg "中断退出")
(princ " ")
(princ (strcat "\n错误: " msg))
)
)
(setq *error* CopyIncOldErrorFunc)
(prin1)
)
(princ "\n输入 'LJTH' 运行程序.")
(prin1)

koalabear

这是我摘了别人的程序又加了一些，删了 一些整成的一个程序。请高人帮忙瞅瞅。谢谢。

koalabear

这程序的作用是对件号进行累加，一开始使用复制功能，全部填写，然后选择第一个号码，再依次选择后面的，后面的将自动累加。

alin

(setq ss2 (entsel "\n选取替换对象"))


When you hit ENTER, ss2 return nil, then


(setq ss2_data (entget (car ss2))) will fire the error message.

koalabear

请问版主，该怎么修改啊。我刚学这玩意。别人的程序还是半懂不懂。

meflying

不用修改,使用时,这里你选择一个正确的对象就不会出错了

afeng0712

看你过滤文字很麻烦，用这(setq ss (ssget '((0 . "TEXT"))))试试！