本帖最后由 作者 于 2007-12-1 10:23:30 编辑
(while (setq d (ssget ":s" '((0 . "DIMENSION")))) (progn ;(setq d (cdr (assoc 100 (reverse (entget (ssname d 0))))));;用dxf方法和vla方法都可以 (setq d (vla-get-objectname (vlax-ename->vla-object (ssname d 0)))) (princ "<<<<<你选择的是----") (princ (cond ((= d "AcDbRotatedDimension") "线性") ((= d "AcDbAlignedDimension") "对齐") ((= d "AcDbRadialDimension") "半径") ((= d "AcDbDiametricDimension") "直径") ((= d "AcDb3PointAngularDimension") "角度") ((= d "AcDbOrdinateDimension") "坐标") ) ) (princ "标注>>>>>") (princ) ) ) |