[编程申请]：标注自动增加序号的问题

agagag · 发表于 2006-9-22 14:38:25

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

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

×

怎么样可以达到这样的效果：点击一个已标尺寸就可自动增加序号，并且要加特殊符号。如下图所示。
修改前的图面：

agagag · 发表于 2006-9-22 14:39:35

修改后的图片：

北斗七星 · 发表于 2006-9-22 19:07:55

简单呀，可修改标注内的文字，加入所需的就可以了
如“<>2”
这样就好了

agagag · 发表于 2006-9-23 08:13:15

晕倒！如果是手动输入“序号和特殊字符”，那我就不用到这来申请编程了。看样子，我是没有说清楚，再罗嗦一次了：
我是希望有一个快捷命令，在我用鼠标点击已标的尺寸后，尺寸后面自动加“序号和特殊字符”。

北斗七星 · 发表于 2006-9-23 17:19:45

我才晕倒呢
我就是这个意思
你以为我说的是手动的呀
用鼠标点击已标的尺寸后，让程序来修改文字，这才是我的意思
这里是编程的园地，不要老用初学的心态来看人，

agagag · 发表于 2006-9-24 01:32:32

抱歉，让你误会了。
我从来就没有用认为别人是“初学”者，相反的，我总抱着自己是初学者的心态向人请教。
能否请老兄帮忙解决呢？编程我肯定是搞不定的，也不知改怎么加到CAD中去，盼回复。谢谢！

北斗七星 · 发表于 2006-9-24 14:48:01

太简单了，抽空给你写一个
要原码吗？

Free-Lancer · 发表于 2006-9-24 16:18:48

(if (not $start_num)
(setq $start_num 1)
)
(defun c:tt (/ e num sub)
(if (setq num (getint (strcat "\n起始序号<" (itoa $start_num) ">: ")))
(setq $start_num num)
(setq num $start_num)
)
(if (setq sub (getstring "\n后缀: "))
(setq $sub sub)
(setq sub $sub)
)
(while (and (setq e (car (entsel "\n拾取标注<Exit>: ")))
(= (cdr (assoc 0 (entget e))) "DIMENSION")
)
(vla-put-textsuffix
(vlax-ename->vla-object e)
(strcat (itoa $start_num) sub)
)
(setq $start_num (1+ $start_num))
)
(princ)
)

北斗七星 · 发表于 2006-9-24 21:15:21

不错，有人帮我写了，我就不再伤脑筋了，哈哈

agagag · 发表于 2006-9-25 09:28:59

哎呀，两位老大，我不知这些代码怎么用啊，从来就没有弄过这些，能否详细解说怎么样把这些程序导入到CAD，或者最好是做一个CAD中的工具按钮，我能直接用就好了。拜托！拜托了！
还有两个问题哦，不知在老兄的程序中是否可以搞定？：
1、在自定义字符中数字加圆圈的只有1～10，我们要加到10以上（100以内）；
2，黑色的标记框（如2楼图面）在“单行文字”编辑中是“？”的乱码。不知在老兄的程序中是否可以搞定

雨箭风刀 · 发表于 2006-9-25 12:47:03

字和黑框要字体文件支持

agagag · 发表于 2006-9-25 15:52:56

老大们，说说具体的吧。
我看了这些代码就象是看天书啊，能否做一个VLX文件给我啊？兄弟我等着要用，没办法，还望各位高手抽空帮忙，谢谢了！！

haibinpro · 发表于 2006-9-30 15:27:16

8楼，你的程序识别公差时，后缀放在公差前面了。

ucsicon · 发表于 2006-10-2 08:33:22

请问Free-Lancer老大,我不要后缀,只要序号, 要在哪几行代码前加","呢?

agagag · 发表于 2006-10-5 08:59:35

哎呀，没人理会了，郁闷中！

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

[编程申请]：标注自动增加序号的问题

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

相关帖子

浏览过的版块