[LISP函数]：属性值的提取问题

lfc9861 · 发表于 2002-6-20 13:28:02

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

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

×

请教诸位高手,请问如何提取用户自定义
标注的属性值?

XDSoft · 发表于 2002-6-20 17:57:31

最初由 lfc9861 发布
[B]请教诸位高手,请问如何提取用户自定义
标注的属性值? [/B]

标注的属性？

属性只能是在INSERT实体里。

详细说说你的要求

lfc9861 · 发表于 2002-6-20 23:49:25

CAD中提取一般几何信息外，还有尺寸、表面粗糙度、
形位公差等、其基本以“TEXT”或“MTEXT”、“DIMENSION”、
“ATTRIB”三种形式存在，我主要询问“DIMENSION”（属性形式），
它有2种情况，一是在标注时用户输入了尺寸值、另一种是使用了
测量值，如果要保证原实体的完整性，（尽量不用“EXPLODE”，）
请问如何实现对其信息的提取？

XDSoft · 发表于 2002-6-21 00:24:13

最初由 lfc9861 发布
[B]CAD中提取一般几何信息外，还有尺寸、表面粗糙度、
形位公差等、其基本以“TEXT”或“MTEXT”、“DIMENSION”、
“ATTRIB”三种形式存在，我主要询问“DIMENSION”（属性形式），
它有2种情况，一是在标注时用户?.. [/B]

判断尺寸实体定义的组码1，是否为"",如果是"",那么实际值需要用其他方法，比如求组码13，14两点的距离来确实长度。

不为"",那么直接提取组码1的值即可。

JINGSABING · 发表于 2002-6-22 14:35:25

(setq B_dim_ent (entget (car (entsel))))
(if (/= (cdr (assoc 0 B_dim_ent)) "DIMENSION")
(progn
(prompt "\n这不是个尺寸标注")
(setq B_dim_choose -1)
);end-progn当不是尺寸标注时由B_dim_choose判断
(progn
(setq B_dim_or (cdr (assoc 1 B_dim_ent)));当是自动生成的尺寸文本时为空
(setq B_dim_name (cdr (assoc 2 B_dim_ent)));读出同名的块名
(setq B_dim_sset (cdr (assoc -2 (tblsearch "BLOCK" B_dim_name))));找块的实体名
(while (/= (cdr (assoc 0 (entget B_dim_sset))) "MTEXT")
(setq B_dim_sset (entnext B_dim_sset))
);end-while寻找写有尺寸大小文本的子实体
(setq B_dim_txt (cdr (assoc 1 (entget B_dim_sset))));读出尺寸大小文本
);end-prgn
);end-if

lfc9861 · 发表于 2002-6-26 22:09:35

多谢！
我先结合其他程序试验一下。。。。

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

[LISP函数]：属性值的提取问题

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

相关帖子

Re: [LISP函数]：属性值的提取问题