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

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

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

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

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


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

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

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

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

本论坛就有。找下看。

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

ZZXXQQ 发表于 2011-6-29 11:39 static/image/common/back.gif
本论坛就有。找下看。

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

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

ZZXXQQ 发表于 2011-6-29 11:39 static/image/common/back.gif
本论坛就有。找下看。

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

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

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

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

(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 (setqp1 (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:34

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=55973&highlight=%D0%F2%BA%C5%C7%F2
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=50503&highlight=%D0%F2%BA%C5%C7%F2
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=65804&highlight=%D0%F2%BA%C5%C7%F2

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

neverstop 发表于 2011-7-1 23:09 static/image/common/back.gif
(defun c:no()
(prompt"\n*********neverstop->编号*********\n")
(princ)


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

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

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

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

希望有版主能多留意，多总结，以精华帖置顶
页: [1] 2
查看完整版本: 能否有LISP实现以下带圈数字递增复制功能，请高手帮忙：）