字典是一个容器对象,类似于符号表。 字典存储在图形的命名对象字典中,该字典是图形中所有非图形对象的根,或作为附加到对象的扩展字典。每个绘图可以包含不同的字典,因此例程不应期望绘图中可能存在特定的字典。可以使用 访问图形命名对象字典中的字典,该字典返回图元名称。用于访问表示图形中所有字典的实体列表。namedobjdictentget 以下规则适用于字典对象:
字典条目可以使用 和函数查询。每个字典条目都包含一个文本名称键和一个对条目对象的硬所有权句柄引用。可以通过直接将条目对象名称传递给函数来删除字典条目。文本名称键使用与符号表名称相同的语法和有效字符。可以使用函数更改键名。dictsearchdictnextentdeldictrename 下面的示例代码列出了图形的命名对象字典中的每个字典及其条目: (defun c:ListDictionaries ( / ed ed1) (prompt "\nDictionaries in current drawing: ") (foreach ed (entget (namedobjdict)) (progn (cond ((= (car ed) 3) (prompt (strcat "\n" (cdr ed)))) ((= (car ed) 350) (progn (foreach ed1 (entget (cdr ed)) (if (= (car ed1) 3) (prompt (strcat "\n " (cdr ed1))) ) ) )) ) ) ) (princ) ) 以下是执行后您可能会在“文本历史记录”窗口中看到的输出示例。c:ListDictionaries Dictionaries in current drawing: ACAD_CIP_PREVIOUS_PRODUCT_INFO ACAD_COLOR ACAD_DETAILVIEWSTYLE Imperial24 ACAD_GROUP ACAD_LAYOUT Layout1 Layout2 Model ACAD_MATERIAL ByBlock ByLayer Global ACAD_MLEADERSTYLE Annotative Standard ACAD_MLINESTYLE Standard ACAD_PLOTSETTINGS ACAD_PLOTSTYLENAME Normal ACAD_SCALELIST A0 A1 A2 A3 A4 A5 A6 A7 A8 A9 B0 B1 B2 B3 B4 B5 B6 B7 B8 B9 C0 C1 C2 C3 C4 C5 C6 C7 C8 C9 D0 D1 D2 ACAD_SECTIONVIEWSTYLE Imperial24 ACAD_TABLESTYLE Standard ACAD_VISUALSTYLE 2dWireframe Basic Brighten ColorChange Conceptual Dim EdgeColorOff Facepattern Flat FlatWithEdges Gouraud GouraudWithEdges Hidden JitterOff Linepattern OverhangOff Realistic Shaded Shaded with edges Shades of Gray Sketchy Thicken Wireframe X-Ray AcDbVariableDictionary CANNOSCALE CMLEADERSTYLE CTABLESTYLE CVIEWDETAILSTYLE CVIEWSECTIONSTYLE DIMASSOC HIDETEXT LAYEREVAL LAYERNOTIFY |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )
GMT+8, 2024-5-19 11:55
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.