能否有LISP实现以下带圈数字递增复制功能，请高手帮忙：）

lonshinyoo · 发表于 2011-6-29 11:02

能否有LISP实现带圈数字递增复制功能，如图所示

qwe4250 · 发表于 2017-9-9 13:16

neverstop 发表于 2011-7-1 23:09
(defun c:no()
(prompt "\n*********neverstop->编号*********\n")
(princ)

好程序，但是少了个控制圈直径

luoposhusheng7 · 发表于 2024-3-19 13:15

如果能把图纸比例的因素放进去就完美了

ZZXXQQ · 发表于 2011-6-29 11:39

本论坛就有。找下看。

lonshinyoo · 发表于 2011-6-29 15:11

ZZXXQQ 发表于 2011-6-29 11:39
本论坛就有。找下看。

在论坛收索了一下，没有能完美实现以上功能的LISP

lonshinyoo · 发表于 2011-6-29 15:11

ZZXXQQ 发表于 2011-6-29 11:39
本论坛就有。找下看。

在论坛收索了一下，没有能完美实现以上功能的LISP

仲文玉 · 发表于 2011-6-29 19:48

重复发帖？论坛的程序可以自己修改下，记得保留作者信息

neverstop · 发表于 2011-7-1 23:09

(defun c:no()
  (prompt  "\n*********neverstop->编号*********\n")
  (princ)
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (SETQ A_GET (GETREAL (STRCAT "\n请输入序号<" (RTOS (IF (= A nil)(setq A 1) A) 2 0) ">:")))
  (IF A_GET (setq A A_GET))
  (WHILE (setq  p1 (getpoint "\n请选择放置位置:"))
(command  "circle" p1 6)
(command "text" "J" "M" p1 5 0 A)
(COMMAND "PICKBOX" "6")
(SETQ A (+ 1 A))
  )
  (command ".undo" "e")
  (setvar "cmdecho" 1)
  (princ)
)

ZZXXQQ · 发表于 2011-7-2 07:54

http://bbs.mjtd.com/forum.php?mo ... =%D0%F2%BA%C5%C7%F2
http://bbs.mjtd.com/forum.php?mo ... =%D0%F2%BA%C5%C7%F2
http://bbs.mjtd.com/forum.php?mo ... =%D0%F2%BA%C5%C7%F2

zbwei120 · 发表于 2011-7-22 15:16

neverstop 发表于 2011-7-1 23:09
(defun c:no()
(prompt "\n*********neverstop->编号*********\n")
(princ)

即然是编号，将getreal函数改成getint就好了。程序很好用。

simon8001 · 发表于 2011-7-23 10:04

呵呵，论坛里实用的程序很多，我们缺少的就是去发现！

wgg212 · 发表于 2011-7-23 14:05

希望有版主能多留意，多总结，以精华帖置顶

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

[函数] 能否有LISP实现以下带圈数字递增复制功能，请高手帮忙：）

本帖子中包含更多资源