[编程交流] 如何在两端添加圆

; add a circle to end of lines for import into the DRAINS software
; By alan H May 2018
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)
(command "layer" "n" "PITS" "Color" 1 "PITS" "s" "PITS" "")
(setq ent (car (entsel "\nSelect drain layer: "))) 
(setq l_name (cdr (assoc 8 (entget ent))))
; (setq listlines (ssget "X" (list (cons 0 "line")(cons 8 l_name))))
;(setq listlines (ssget "X" (list (cons 0 "line,Lwpolyline")(cons 8 l_name))))
(setq listlines (ssget "X" (list (cons 0 "Lwpolyline")(cons 8 l_name))))
(setq y 0)
(repeat  (sslength listlines)
       (setq pt1 (cdr (assoc 10 (entget (ssname listlines y)))))
       (command "circle" pt1 1.0)
  (setq pt1 (cdr (assoc 11 (entget (ssname listlines y)))))
    (command "circle" pt1 1.0)
       (setq y (+ y 1))
)   ;end repeat listlineno
(setvar "osmode" oldsnap)

;;This will work for LWPolylines 3DPolylines (incl fitted curves) Lines Splines arcs circles ellipses
;;If object is "closed" and the start point and end point are the same
;;then the two circles will be at the same point (eg full circles ellipses)
;;
;;Make a null selection on Select Line to end
;;Ron Harman  Copyright © 2014
;;
(defun c:pcircles (/ *error* c_doc ms circle_rad ent p_obj s_pt e_pt)
 (defun *error* ( msg ) 
   (if (and c_doc (= 8 (logand 8 (getvar 'UNDOCTL)))) (vla-endundomark c_doc))
   (if (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*EXIT*")) (alert (strcat "\nOops an Error : " msg " occurred")))
   (princ)
 )
 (setq c_doc (vla-get-activedocument (vlax-get-acad-object)))
 (setq ms (vla-get-modelspace c_doc))
 
 (initget (+ 1 2 4))
 (setq circle_rad (getreal "\nEnter Radius for circles : "))
 
 (if (and c_doc (= 8 (logand 8 (getvar 'UNDOCTL)))) (vla-endundomark c_doc))
 (vla-startundomark c_doc)
 
 (while (setq ent (entsel "\nSelect Line : "))
   (if (not ent) (progn (vla-endundomark c_doc) (exit)))
   (setq p_obj (vlax-ename->vla-object (car ent))
         s_pt (vlax-curve-getStartPoint p_obj)
         e_pt (vlax-curve-getEndPoint p_obj)
   )
   (vla-addcircle ms (vlax-3d-point s_pt) circle_rad)
   (vla-addcircle ms (vlax-3d-point e_pt) circle_rad)
 )
 (princ)
)  
(princ)    
(princ "Type "pcircles" to run")
(princ)

(defun c:foo (/ s tmp)
 (if (setq s (ssget '((0 . "*polyline"))))
   (foreach l (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
     (mapcar '(lambda (x)
         (and (not (vl-position x tmp))
              (setq tmp (cons x tmp))
              ;; '(40 . 1.) 1. is radius below .. change to suit
              (entmakex (list '(0 . "circle") (cons 10 x) '(40 . 1.)))
         )
       )
      (list (vlax-curve-getstartpoint l) (vlax-curve-getendpoint l))
     )
   )
 )
 (princ)
)
(vl-load-com)