[LISP程序]：序号球自动循环生成程序

lzj511 · 发表于 2008-12-5 21:42:42

用不了啊，不懂输入点是什么意思，画出来的是线，不是数字啊

tyzgf · 发表于 2008-12-6 09:29:06

呵呵，这个lsp文件不错。。。下载收藏。谢谢分享了

jx2008 · 发表于 2008-12-6 10:37:22

这个程序是很旧的版本吧？

carrot1983 · 发表于 2008-12-6 10:57:13

这个程序是不错，需要改进。
捕捉关了，不妥。。。把(setvar "osmode" 0) 删除掉，修改如下:
  (command "leader" p0 (polar pe (angle pe p0) r) "" "" "n")
->  (command "leader" "none" p0  "none" (polar pe (angle pe p0) r) "" "" "n")

(vl-cmdf "circle"  pe r)
->  (vl-cmdf "circle"  "none" pe r)

(vl-cmdf "text" "j" "m" pe th 0 (itoa sn) "")
-> (vl-cmdf "text" "j" "m" "none" pe th 0 (itoa sn) "")

vl-cmdf ->command
这样子不是更好？可以在R14上用

ctclsc · 发表于 2008-12-7 13:29:49

最初由 ycao 发布
[B]程序非常不错！谢谢楼主！ [/B]

lmt112233 · 发表于 2008-12-7 18:31:58

这个程序是不错,谢谢分享

ljm68 · 发表于 2008-12-13 20:56:01

不错的程序，谢谢

clhclh · 发表于 2008-12-19 11:15:26

程序运行有错，当程序出现下面的提问时
Item Number or Break: n <5>:15

我输入15，结果标出来的序号还是5？如何解决？我用的是CAD2006版.

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