Topic: How can we delete line with lisp

[scorpion76]

Hi brothers, i write code for drawing the triangle, then i enter new point then drawing line this point to other 3 point. I can do at here.
I want to delete, long line (AC) of intersect. I hope i can tell my problem.
Here is code;

Code: [Select]

(defun c:mst()
  (setq liste nil
i 0
y 0)
 
(setq a1 (getpoint "\nİlk Nokta.."))
  (setq liste (cons a1 liste))
(setq a2 (getpoint "\nİkinci Nokta.."))
(setq liste (cons a2 liste))
(setq a3 (getpoint "\nÜçüncü Nokta.."))
  (setq liste (cons a3 liste))

 (command "_.line" a1 a2 a3 a1 "")

 (while

 (setq new (getpoint "\nYeni Nokta.."))
 
 (setq liste (cons new liste))
 (setq y (length liste))
 (setq listson (reverse liste))
 
 (setq m (- y 1))
 (setq i 0)
 
  (while (< i m)
 
        (command "_.line" (nth i listson) (nth m listson) "")
          (setq i (+ i 1))
  )
 )
   (princ)
)
  ;




[kpblc]

Try this:

Code - Auto/Visual Lisp: [Select]

1. (vl-load-com)
2.  
3. (defun c:mst (/ adoc pt1 pt lst ent f_3d2d)
4.   (defun f_3d2d (p) (list (car p) (cadr p)))
5.   (if (and (= (type (setq pt1 (vl-catch-all-apply (function (lambda () (getpoint "\nStart point <Cancel> : "))))))
6.               'list
7.               ) ;_ end of =
8.            pt1
9.            (= (type
10.                 (setq pt (vl-catch-all-apply (function (lambda () (getpoint pt1 "\nNext point <Cancel> : ")))))
11.                 ) ;_ end of type
12.               'list
13.               ) ;_ end of =
14.            pt
15.            ) ;_ end of and
16.     (progn (setq lst  (mapcar (function f_3d2d) (list pt1 pt))
17.                  adoc (vla-get-activedocument (vlax-get-acad-object))
18.                  ent  (vla-addlightweightpolyline (vla-get-modelspace adoc)
19.                                                   (vlax-make-variant
20.                                                     (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble (cons 0 (1- (length (apply 'append lst)))))
21.                                                                          (apply 'append lst)
22.                                                                          ) ;_ end of vlax-safearray-fill
23.                                                     ) ;_ end of vlax-make-variant
24.                                                   ) ;_ end of vla-addlightweightpolyline
25.                  ) ;_ end of setq
26.            (while (and (= (type
27.                             (setq pt (vl-catch-all-apply (function (lambda () (getpoint (last lst) "\nNext point <Cancel> : ")))))
28.                             ) ;_ end of type
29.                           'list
30.                           ) ;_ end of =
31.                        pt
32.                        ) ;_ end of and
33.              (vla-startundomark adoc)
34.              (setq lst (append lst (list (f_3d2d pt))))
35.              (vla-put-coordinates ent
36.                                   (vlax-make-variant
37.                                     (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble (cons 0 (1- (length (apply 'append lst)))))
38.                                                          (apply 'append lst)
39.                                                          ) ;_ end of vlax-safearray-fill
40.                                     ) ;_ end of vlax-make-variant
41.                                   ) ;_ end of vla-put-Coordinates
42.              (vla-put-closed ent :vlax-true)
43.              (vla-endundomark adoc)
44.              ) ;_ end of while
45.            ) ;_ end of progn
46.     ) ;_ end of if
47.   (princ)
48.   ) ;_ end of defun

[ronjonp]

Perhaps something like this:

Code - Auto/Visual Lisp: [Select]

1. (defun c:foo (/ p s)
2.   (cond
3.     ((setq s (ssget '((0 . "lwpolyline") (90 . 4))))
4.      (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
5.        (setq p (mapcar 'cdr (vl-remove-if '(lambda (x) (/= 10 (car x))) (entget e))))
6.        (if (< (distance (car p) (caddr p)) (distance (cadr p) (last p)))
7.          (entmakex (list '(0 . "line") (cons 10 (car p)) (cons 11 (caddr p)) (assoc 8 (entget e))))
8.          (entmakex (list '(0 . "line") (cons 10 (cadr p)) (cons 11 (last p)) (assoc 8 (entget e))))
9.        )
10.      )
11.     )
12.   )
13.   (princ)
14. )