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

注解输出

如下图，如何注解成右边的格式（让程序自动分析如果是螺丝孔代号就为 "M",如果为等高套筒代号就为 "C".......)












我的思路是


(defun c:tt2 ()<BR>       (defun GET-TAG (en /)<BR>                       (setq ed (entget en '("MY_TAG")))<BR>                       (setq ed (cons "M" ed))<BR>                       (entmod ed)<BR>       )<BR>       (setq ss (ssget))<BR>       (setq count 0)<BR>       (while (&gt; (sslength ss) count)<BR>                       (setq en (ssname ss count))<BR>                       (setq count (1+ count))<BR>                       (GET-TAG en)<BR>       )<BR>)


可是没成功，问题出在


(setq ed (cons "M" ed))


(entmod ed)


这里<BR>

浴火鸟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

明经杂志第六期的<A href="mhtml:mid://00000000/#5" target="_blank" >文摘网摘</A>里有陈大侠写的 －－<A name=53>利用AutoLISP处理“扩展实体数据”</A>       


那里可能有你要的内容，可以去看看

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

好程序呀，谢谢楼主.要是有能整个模板一起标注的就好了
页: [1] 2
查看完整版本: 注解输出