Question

CAD中定距等分可不可以批量操作

Answer 1

这个应当可以吧！可以使用autoLISP解决：

(defun c:d12 ( / &kw L2 i &k1)
 (princ "\n请选择要定距等分的对象")
 (setq &kw (ssget (list (cons 0 "LINE,ELLIPSE,ARC,CIRCLE,LWPOLYLINE,POLYLINE"))));;选择对象
 (if (/= &kw nil);;如果有选择
  (progn
   (setq L2 (getdist (strcat "\n请输入距离:<" "1" ">")))
   (if (= L2 nil) (setq L2 1));默认输入为1
   (setq i 0)
   (repeat (sslength &kw)
    (setq &k1 (ssname &kw i)
          i (+ i 1)
    )
    (command "measure" &k1 L2);等距等分对象
   )
  )
 )
 (princ)
);保存到记事本，以(D12.lsp)命名，加载到AutoCAD就可以使用