~~！这两天点这个点疯了，来个大神给写个小程序

CQ467959301

如图，需要在指定角加一个缺，像图2这样可以设置直径，最好能像直线那样不二次确认就可以一直点~~~

pxr201419

(defun c:tt()
    (vl-load-com)
    (setvar "osmode" 0)
    (setq rr (getreal "输入圆半径："))
    (while (setq e (car (entsel "选择多线段：")))
        (setq s (vlax-get-property (vlax-ename->vla-object e) 'area)
              lst (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget e)))
              ss (ssadd))
        (foreach x lst
            (setq lst1 (vl-remove x lst))
            (entmake (append (list '(0 . "LWPOLYLINE")'(100 . "AcDbEntity")'(100 . "AcDbPolyline")(cons 90 (length lst1))'(70 . 1))
                             (mapcar '(lambda (x)(cons 10 x)) lst1)))
            (setq s1 (vlax-get-property (vlax-ename->vla-object (entlast)) 'area))
            (entdel (entlast))
            (if (> s1 s)
                (progn
                    (vl-cmdf "CIRCLE" x rr)
                    (ssadd (entlast) ss)
                    ))
            )
        (cond ((> (sslength ss) 0)
               (setq p1 (cdr (assoc 10 (entget (ssname ss 0))))
                     p2 (cdr (assoc 10 (entget (ssname ss 1)))))
               (setq pt (reverse (cdr (reverse (polar p1 (angle p1 p2) (/ (distance p1 p2) 2))))))
               ;(vl-cmdf "zoom" "o" e "")
               (vl-cmdf "boundary" pt "")
               (entdel e)
               (setq i 0)
               (repeat (sslength ss)
                   (entdel (ssname ss i))
                   (setq i (1+ i)))
               ))
        )
    (princ)
    )

yinchuan99001

谢谢分享，很好用。