这样的公差lisp怎么编啊(版主及lisp开发看看)

whz_20

由于经常标公差,但是现在有的几个lisp的标注都是那种写入性质的,就是不会



随着值的大小调整的


                                                                                                                                                                 现在想作个lisp,利用群代码来获得值的大小,然后实现如图中的公差标注,分子分母样式的公差,那样的话文件体积较小


                                                                 标注样式是用的不爽的啊,就是镶嵌到文字编辑框里面的,我见过arx的公差标注不过还是不尽人意,也就是公差是得自己查表输入太烦啊

whz_20

上张gif图片,

meflying

不过你一动这个标注，写的东西就会消失

2. (defun c:test( / ent hd ld ent ents str)
3.    (setq ent (car (entsel "\n选择标注...")))
4.    (setq hd (getstring "\n输入上偏差:"))
5.    (setq ld (getstring "\n输入下偏差:"))
6.    (setq ent (tblobjname "block" (cdr (assoc 2 (entget ent)))))
7.    (while (/= (cdr (assoc 0 (entget (setq ent (entnext ent))))) "MTEXT"))
8.    (setq ents (entget ent))
9.    (setq str (cdr (assoc 1 ents)))
10.    (setq str (strcat str "{\\H0.45x;\\S" hd "^" ld ";}"))
11.    (setq ents (subst (cons 1 str) (assoc 1 ents) ents))
12.    (entmod ents)
13.    (command "_.regen")
14.    (princ)
15. )

(defun c:test( / ent hd ld ent ents str)    (setq ent (car (entsel "\n选择标注...")))    (setq hd (getstring "\n输入上偏差:"))    (setq ld (getstring "\n输入下偏差:"))    (setq ent (tblobjname "block" (cdr (assoc 2 (entget ent)))))    (while (/= (cdr (assoc 0 (entget (setq ent (entnext ent))))) "MTEXT"))    (setq ents (entget ent))    (setq str (cdr (assoc 1 ents)))    (setq str (strcat str "{\\H0.45x;\\S" hd "^" ld ";}"))    (setq ents (subst (cons 1 str) (assoc 1 ents) ents))    (entmod ents)    (command "_.regen")    (princ) )

whz_20

不过你一动这个标注，写的东西就会消失,,这样可不行


先谢谢版主,估计得用vba从excel已经打好的表格里面调用公差,


可能lisp不好搞啊

meflying

调用数据不难，但那个消失问题是基本上不能解决的，因为标注是按实际尺寸来写的，你一动它，系统就重新测量，重新写这个文本，而它写的时候不会考虑这个文本原来是什么。。。

meflying

我真不明白，用标注本身的公差哪点不好？

meflying

2. (defun c:test2( / ent hd ld str)
3.    (setq ent (vlax-ename->vla-object (car (entsel))))
4.    (setq hd (getstring "\n输入上偏差:"))
5.    (setq ld (getstring "\n输入下偏差:"))
6.    (setq str   (STRCAT "" "{\\H0.45x;\\S" hd "^" ld ";}"))
7.    (setq str (vla-put-TextSuffix ent str))
8. )

(defun c:test2( / ent hd ld str)    (setq ent (vlax-ename->vla-object (car (entsel))))    (setq hd (getstring "\n输入上偏差:"))    (setq ld (getstring "\n输入下偏差:"))    (setq str   (STRCAT "" "{\\H0.45x;\\S" hd "^" ld ";}"))    (setq str (vla-put-TextSuffix ent str)) )

whz_20

我是做模具设计的,不同的零件,公差等级是不一样的,而且尺寸也是大小不一


如果用用标注样式的话,一副模具少说也要30种,看看这个零件就是6种标注样式





所以必须是编个程序来搞定,不然无用功太多了,而且查表我也最头疼,看的眼睛花花的

whz_20

我去VBA版块以及excel版块看看,他们有没有好办法

meflying

7楼的还不行吗？？？


你图中的那些标注可以用一种标注样式搞定，不需要6种，