[求助]：“序号标注”命令

christ888 · 发表于 2003-4-30 19:31:49

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

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

×

“博超工具集”中有一个“复制递增文本”命令，可惜只能在ACAD14下使用，请问有在2002下使用的类似工具吗？
这个工具在编序号时很有用
“晓东工具箱”中的“序号标注”命令似乎有问题：第二次使用该命令时不能复位，仍然继续第一次的序号，改了起始序号后下一个序号仍然存在问题。
请问版主能不能把“博超工具集”的程序处理一下？
附件是“博超工具集”

christ888 · 发表于 2003-4-30 19:33:25

博超工具集2/6

christ888 · 发表于 2003-4-30 19:34:31

博超工具集3/6

christ888 · 发表于 2003-4-30 19:35:12

博超工具集4/6

christ888 · 发表于 2003-4-30 19:35:52

博超工具集5/6

christ888 · 发表于 2003-4-30 19:36:27

博超工具集6/6

ydf7332462 · 发表于 2003-4-30 22:06:44

博超工具集有autocad版本问题,晓东工具箱还是有autocad版本问题,2004不适应
编一lisp好

XDSoft · 发表于 2003-4-30 22:18:15

最初由 ydf7332462 发布
[B]博超工具集有autocad版本问题,晓东工具箱还是有autocad版本问题,2004不适应
编一lisp好 [/B]

谢谢，以后有大的工具，请压缩传到“图纸中心”，那样可以传1.6M一个的文件，也方便大家查找。

以后工具箱会增强序号方面的工具，大家有什么好的想法，都发贴到论坛，我会整理借鉴的。

如果一个软件仅仅用LISP编程，那么基本上平台通用，如果使用了ARX，那么就有平台依赖性。不同的平台，R14,15,16等都需要重新编译ARX源代码生成新的平台下的二进制的ARX文件。

zxp · 发表于 2003-5-9 00:36:59

我想问一下，用晓东工具箱所标出的序号为什么总是倾斜的?
有人能告诉我吗！

eachy · 发表于 2003-5-9 00:47:15

最初由 zxp 发布
[B]我想问一下，用晓东工具箱所标出的序号为什么总是倾斜的?
有人能告诉我吗！ [/B]

检查当前字体样式设置。

lsjjm · 发表于 2003-5-9 04:54:49

这是一个机械装配图中标注零件序号的小程序, 不知对你有无参考作用?

(defun itemnum ( / ps pe s) (if inum nil (setq inum 1))
(setq s (getvar "dimscale"))
(while inum
(setq ps (getpoint "\nPick Start Point"))
(setvar "osmode" 37)
(setq pe (getpoint ps "\nPick End Point"))
(princ "\nItem Number or Break: n <")
(princ inum)
(setq inum0 (getstring ">:"))
(if (/= inum0 "")
(if (= (strcase inum0) "N")(setq inum nil)(setq inum inum0))
);i
(setvar "osmode" 0)
(command "leader" ps (polar pe (angle pe ps)(* s 0.32)) "" "" "n")
(vl-cmdf "circle" pe (* s 0.32))
(if (= (type inum) 'STR)(setq inum (atoi inum)))
(vl-cmdf "text" "j" "m" pe (* s 1.5 0.18) 0 (itoa inum) "")
(setq inum (1+ inum))
);w
);defun

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

[求助]：“序号标注”命令

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

相关帖子