注解输出

spring · 发表于 2004-3-24 18:46:00

如下图，如何注解成右边的格式（让程序自动分析如果是螺丝孔代号就为 "M",如果为等高套筒代号就为 "C".......) 我的思路是 (defun c:tt2 ()
(defun GET-TAG (en /)
(setq ed (entget en '("MY_TAG")))
(setq ed (cons "M" ed))
(entmod ed)
)
(setq ss (ssget))
(setq count 0)
(while (> (sslength ss) count)
(setq en (ssname ss count))
(setq count (1+ count))
(GET-TAG en)
)
) 可是没成功，问题出在 (setq ed (cons "M" ed)) (entmod ed) 这里

浴火鸟TYTYJ · 发表于 2017-9-12 14:23:15

spring 发表于 2004-4-1 10:18
高

终于看到了SRRING CAD的作者!我认为你是仿PRESSCAD最好的软体,没有之一,但是最近几年,好像没有更新SRRING CAD的版本了?

2548572928 · 发表于 2024-8-15 00:10:07

感谢楼主分享

spring · 发表于 2004-3-24 18:50:00

补充：

就是在图元资料中加入代号，然后注解输出时根据代号注解，可是我搞了几天还是搞不出

只有请教大侠了

meflying · 发表于 2004-3-24 20:20:00

你查一下(entmod ed)中的ed变量的值是什么就可以了，看它是否符合entmod参数的要求，

提示：这里(setq ed (cons "M" ed))得到的肯定是("M" ...);后面一堆元素，有哪个对象的的DXF组码有"M"这项吗，至少我知道的其组码的元素都是一个子表。。。

stulsx · 发表于 2004-3-24 21:16:00

明经杂志第六期的文摘网摘里有陈大侠写的－－利用AutoLISP处理“扩展实体数据” 那里可能有你要的内容，可以去看看

spring · 发表于 2004-3-25 13:25:00

谢谢,可是打不开

mhtml:mid://00000000/#5

龙龙仔 · 发表于 2004-3-29 12:49:00

spring · 发表于 2004-3-29 19:13:00

谢谢龙斑竹，我回去试试看

下面是我后来改的

如下图，如果是左边的情况就没问题(没有相同的图元)，右边的情况就会出错

而显也不是很理想，如果能注解成最下面那种格式就OK了。

龙龙仔 · 发表于 2004-4-1 08:51:00

spring · 发表于 2004-4-1 10:18:00

yxl88168 · 发表于 2011-3-31 19:04:51

好程序呀，谢谢楼主.要是有能整个模板一起标注的就好了

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

注解输出

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源