DIMENSION   
标注样式替代

标注样式替代可适用于标注、引线和公差图元。适用于这些图元的所有替代都将作为扩展数据存储在图元中。替代标注变量组码和相关值包含在组 1002 控制字符串中。下例显示 DIMTOLDIMCLRE 变量已被替代的标注图元的扩展数据。

(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 段的结束
   评论?