[编程交流] 一个简单的程序需要修改。

(defun C:test (/ E LST LST1 N PTS SS X)
 (cond
   ((setq ss (ssget ":S" '((0 . "*LINE,ARC"))))
    (repeat (setq n (sslength ss))
      (setq e (ssname ss (setq n (1- n))))
      (setq pts (cons (vlax-curve-getStartPoint e) pts))
      (setq pts (cons (vlax-curve-getEndPoint e) pts))
    )
    (while (setq x (car pts))
      (setq pts (cdr pts))
      (setq lst1 nil
            lst  nil
      )
      (foreach        Y pts
        (cond ((equal x Y 0.1) (setq lst (cons Y lst)))
              (T (setq lst1 (cons Y lst1)))
        )
      )
      (cond ((not lst) (command "_.circle" x 5)))
      (setq pts lst1)
    )
   )
 )
)

(defun c:test (/ d s n e )
 (if (setq d (ssadd) s (ssget "_:S" '((0 . "*LINE,ARC"))))
    (repeat (setq n (sslength s))
      (setq e (ssname s (setq n (1- n))))
      (foreach p (list (vlax-curve-getStartPoint e) (vlax-curve-getEndPoint e))
        (setq d (ssadd (entmakex (list '(0 . "CIRCLE") (cons 10 p) (cons 40 4.) '(62 . 1))) d))
        ))
   )
 (sssetfirst nil d)
 (princ)
 )
   

(defun c:test (/ _c d s n e l)
 ;;    Tharwat 03.May.2014        ;;
 (defun _c (e)
   (foreach p (list (vlax-curve-getStartPoint e)
                    (vlax-curve-getEndPoint e)
              )
     (setq d (ssadd (entmakex (list '(0 . "CIRCLE")
                                    (cons 10 p)
                                    (cons 40 4.)
                                    '(62 . 1)
                              )
                    )
                    d
             )
     )
   )
 )
 (if (setq d (ssadd)
           s (ssget "_:S" '((0 . "*LINE,ARC,ELLIPSE")))
     )
   (repeat (setq n (sslength s))
     (setq e (ssname s (setq n (1- n))))
     (if (eq (cdr (assoc 0 (entget e))) "ELLIPSE")
       (if (not (vlax-curve-isclosed (vlax-ename->vla-object e)))
         (_c e)
       )
       (_c e)
     )
   )
 )
 (sssetfirst nil d)
 (princ)
)