;查看DIM的XDATA
(defun C:DXF5 ()
(prompt "\n尺寸标註资料:")
(setq AA (cdadr (assoc -3 (entget (car (entsel)) '("ACAD")))))
(print AA)
(alert
(strcat
"\n尺寸标註资料setq AA (cdadr (assoc -3 (entget (car (entsel)) '(\"ACAD\")))))\n"
(vl-prin1-to-string AA)
)
)
)
指令: DXF5
尺寸标註资料:
选取物件:
((1000 . "DSTYLE") (1002 . "{") (1070 . 47) (1040 . 0.05) (1070 . 48) (1040 .
0.04) (1070 . 71) (1070 . 1) (1002 . "}")) nil
从DIM的XDATA可看出有没有公差
(1070 . 71) (1070 . 1)
其中71-------代表DIMTOL系统变数
R14年代要修改XDATA |