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

whz_20 · 发表于 2004-6-8 07:49:00

由于经常标公差,但是现在有的几个lisp的标注都是那种写入性质的,就是不会随着值的大小调整的
现在想作个lisp,利用群代码来获得值的大小,然后实现如图中的公差标注,分子分母样式的公差,那样的话文件体积较小
标注样式是用的不爽的啊,就是镶嵌到文字编辑框里面的,我见过arx的公差标注不过还是不尽人意,也就是公差是得自己查表输入太烦啊

whz_20 · 发表于 2004-6-8 08:53:00

上张gif图片,

cubw0x25msb.gif

meflying · 发表于 2004-6-8 11:26:00

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

copy


(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 · 发表于 2004-6-8 11:35:00

不过你一动这个标注，写的东西就会消失,,这样可不行
先谢谢版主,估计得用vba从excel已经打好的表格里面调用公差,
可能lisp不好搞啊

meflying · 发表于 2004-6-8 11:41:00

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

meflying · 发表于 2004-6-8 11:45:00

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

meflying · 发表于 2004-6-8 14:02:00

copy


(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))
)