[求助]：r14下可用的lsp在2005里用不了？

00lg

各位前辈，小弟不才，半抄乱编了几个lsp程序，做加减乘除的（填指标表的时候特方便），原来公司里用的是R14就没问题。现在升2005（正版）了，反而用不了。主要问题是出在“single_select”这一块。请各位前辈帮帮忙。发上一个做加法，请各位指点一二，其他减乘除的原理也一样，就不麻烦了。

snoopychen

只改了这一句
(setq c1 (car (entsel)))
原来的程序在我这边的14和2k都运行不了，是因为single_select是一个自定义函数
你原来的14可以用，大概这个函数是定义在自启动函数里面的
现在的entsel不一定有你原来的好，但将就可以用



[php]
(defun c:+()
  (setvar"cmdecho"0)
  (command "undo" "group")
  (princ"\n请选择要相加的数字:")
  (setq a (ssget '((0 . "TEXT"))))
  (setq na (sslength a))
  (princ"\n请选择要替换的数字:")
  (setq c1 (car (entsel)))
  (setq number 0 result 0)
  (repeat na
    (setq a1 (ssname a number))
    (setq a11 (entget a1))
    (setq a11 (cdr (assoc 1 a11)))
    (setq a11 (atof a11))
    (setq result (+ result a11))
    (setq number (1+ number))
  )
  (setvar "dimzin" 8)
  (setq result (rtos result 2 2))
  (setq result (cons 1 result))
  (setq c11 (entget c1))
  (setq result (subst result (assoc 1 c11) c11))
  (entmod result)
  (command "undo" "end")
  (princ)
)
[/php]

00lg

难道是R14的版本有区别？我在很多台机器上都可以在14下运行，正版，盗版，网络版，中英文版都可以啊？怎么也先谢谢了。single_select这一句就是抄了别人的。怪不得书上找不到这个函数的介绍。

marcoyuwen

所言甚是，一定要区别LISP自带函数，还是CAD中预定义的函数。