资 源 简 介
此源码为AUTOCAD中计算零件标注长及宽坐标点,此函数供AUTOLISP调用,返回标注长及宽的四个坐标点, LISP中的用法如下: (setq sa (ssget)) (setq list1 (DimPart sa)) (setq dli_x_min (nth 0 list1)) (setq dli_x_max (nth 1 list1)) (setq dimptx (nth 2 list1)) (setq dli_y_min (nth 3 list1)) (setq dli_y_max (nth 4 list1)) (setq dimpty (nth 5 list1)) (command "layer" "S" "DIM" "