xforme 发表于 2024-8-6 17:49:49

框选图块，并标注尺寸

找到一个标注图块间距的程序，但是只能一个一个点选才能标注，请大佬帮忙改一下，改成框选模式
(defun c:CCB (/ I E p1 p2 p3 x1 x2 x3 y1 y2 y3 xx yy l)

(setq I 0)

(while (setq E (entsel))

    (setq p1 p2)

    (setq E (cdr (assoc 10 (entget (car E))))

          I (1+ I)

    )

    (setq p2 E)

    (if (> I 1)

       (command "dimaligned" p1 p2 p2)

   )

)

(command "")

(princ I)

(princ)

)

xcsdert 发表于 2024-9-11 13:42:01

:L:$:loveliness:

edrise 发表于 2024-11-15 00:57:11

试试ssget、ssname等相关批处理函数，再用循环实现批量标注。
页: [1]
查看完整版本: 框选图块，并标注尺寸