文字递增复制

快乐王子刚 · 发表于 2016-8-22 17:10:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

  这样的插件要怎么写？在论坛里看到类似的帖子，可是没有这样的效果，不知道怎么修改代码？
(defun c:1()
  (setq s(atof(cdr(assoc 1 (entget(car(nentsel)))))))
  (setq pt1(getpoint "插入点:"))
  (while (/= pt1 nil)
(setq s(+ 1 s))
(command "text" pt1 "" "" (rtos s 2 0) "")

(setq pt1(getpoint "插入点:"))
(setq s s)
)

  )
)

Lisphk · 发表于 2016-8-22 18:26:14

每日插件论坛有拷贝+1

http://bbs.xdcad.net/thread-704575-1-1.html

快乐王子刚 · 发表于 2016-8-22 21:02:00

试了一下，用不了，不知道为什么吗？

newer · 发表于 2016-8-22 21:18:47

快乐王子刚发表于 2016-8-22 21:02
试了一下，用不了，不知道为什么吗？

下载最新的API和通用LISP函数库加载。

如果还有问题，请把错误信息帖上来和截图。

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

[编程申请] 文字递增复制

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

浏览过的版块