请教各位：

koalabear · 发表于 2004-10-18 11:58:00

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

xyp1964 · 发表于 2004-10-18 12:52:00

上载程序看看！

koalabear · 发表于 2004-10-18 14:11:00

(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)