标注样式替代可适用于标注、引线和公差图元。适用于这些图元的所有替代都将作为扩展数据存储在图元中。替代标注变量组码和相关值包含在组 1002 控制字符串中。下例显示 DIMTOL 和 DIMCLRE 变量已被替代的标注图元的扩展数据。
(setq diment (car (entsel))) ; 选择标注图元
(setq elst (entget diment '("ACAD"))) ; 获取图元定义列表
(assoc -3 elst) ; 仅提取扩展数据
此段代码返回下列内容:
(-3 ("ACAD" 扩展数据的 ACAD APPID 段的开始
(1000 . "DSTYLE") (1002 ."{"} 标注样式小节的开始
(1070 . 177) (1070 . 3) DIMCLRE(代码 177)替代 + 值 (3)
(1070 . 71) (1070 . 1) DIMTOL(代码 71)替代 + 值 (1)
(1002 . "}") )) 标注样式小节和 ACAD 段的结束
评论? |