[编程交流] 如何在2段上绘制打断

 
(defun c:BRK()
 (setq snp (getvar "OSMODE"))
 (setvar "OSMODE" 0)
 (setq ent (entsel "\nSelect line to break"))
 (setq po (cadr ent))
 (setq ent (car ent))
 (setq vlent (vlax-ename->vla-object ent))
 (setq po (vlax-curve-getclosestpointto vlent po))
 
 (setq po1 (getpoint po "\nSelect next point to break"))
 (setq po1 (vlax-curve-getclosestpointto vlent po1))
 (setq ent1 (car (entsel "\nSelect parallen entity")))
 (setq vlent1 (vlax-ename->vla-object ent1))
 (setq po2 (vlax-curve-getclosestpointto vlent1 po))
 (setq po3 (vlax-curve-getclosestpointto vlent1 po1))
 (command "Break" ent po po1)
 (command "Break" ent1 po2 po3)
 (command "line" po po2 "")
 (command "line" po1 po3 "")
 (setvar "OSMODE" snp)
 )

(defun c:br2 (/ lines pt1 pt2 ol plst)
;;;        pBe Sep 2012        ;;;
(vl-load-com)
 (prompt "\nSelect Objects to Break:")
 (cond
   ((and
      (setq plst  nil
     lines (ssget ":L" '((0 . "LINE")))
      )
      (= (sslength lines) 2)
      (setq pt1 (getpoint "\nPick first point:"))
      (setq pt2 (getpoint pt1 "\nPick second point:"))
      (repeat (sslength lines)
 (setq ol (ssname lines 0))
 (setq plst (cons (vlax-curve-getclosestpointto ol pt1) plst)
       plst (cons (vlax-curve-getclosestpointto ol pt2) plst)
 )
 (command "_break" ol "_non" pt1 "_non" pt2)
 (ssdel ol lines)
      )
      (mapcar '(lambda        (j)
          (entmakex (list (cons 0 "LINE")
                          (cons 10 (nth (Car j) plst))
                          (cons 11 (nth (Cadr j) plst))
                    )
          )
        )
       '((0 2) (1 3))
      )
    )
   )
 )
 (princ)
)

(defun c:WR1 ( / aa b c c5 c6 c7 c8 cc3 d l la lb dr wbl)
 (setq bl (getvar "BLIPMODE"))
 (setq cm (getvar "CMDECHO"))
 (setvar "CMDECHO" 0)
 (if (not doorw)
   (setq doorw 0.9)
 )
 (initget 2)
 (setq dr (getdist (strcat "Door with: <" (rtos doorw 2 2) ">")))
 (if dr
   (setq doorw dr)
 )
 ;(setq a1 (cdr (assoc 10 (entget (car (entsel))))))
 
 (setq aobject (cdr (entget (car (entsel "\nSelect first line: ")))))
 (setq a1 (cdr (assoc 10 (cdr aobject))))
 (setq a2 (cdr (assoc 11 (cdr aobject))))
 (setq bobject (cdr (entget (car (entsel "\nSelect second line: ")))))
 (setq b1 (cdr (assoc 10 (cdr bobject))))
 (setq b2 (cdr (assoc 11 (cdr bobject))))
 (setq _c (getpoint "\nBase point: "))
 (initget 1 "Left Right:")
 (setq d (getkword "\nLeft or Right?"))
(setq _la (angle a1 a2))
 (setq _lb (angle b1 b2))
 (setq lac (angle a1 _c))
 
 (setq c1 (polar a1 _la (* (cos (- _la lac)) (distance a1 _c))))
 (setq cd (distance a1 b1))
 (setq lbc (angle b1 (polar _c (+ _lb (* 0.5 pi)) (* (cos (- _lb lbc)) cd)))) 
 (setq c2 (polar b1 (+ _lb (* 0.5 pi)) (* (cos (- _lb lbc)) cd)))

(defun c:br2 (/ lines pt1 pt2 ol  plst)
;;;        pBe Sep 2012        ;;;
(vl-load-com)
 (prompt "\nSelect Objects to Break:")
 (cond
   ((and
      (setq plst  nil
     lines (ssget ":L" '((0 . "LINE")))
      )
      (= (sslength lines) 2)
      [color="blue"](setq dr (cond
((getdist (strcat "\nEnter Window width"
                (if dr (strcat " <" (rtos dr) ">: ") ": ")
                           )))(dr))
               )[/color]
      (setq pt1 (getpoint "\nPick first point:"))
      (setq pt2 (getpoint pt1 "\nPick second point for direction:"))
      [color="blue"](setq pt2 (polar pt1 (angle pt1 pt2) dr))[/color]
      (repeat (sslength lines)
 (setq ol (ssname lines 0))
 (setq plst (cons (vlax-curve-getclosestpointto ol pt1) plst)
       plst (cons (vlax-curve-getclosestpointto ol pt2) plst)
 )
 (command "_break" ol "_non" pt1 "_non" pt2)
 (ssdel ol lines)
      )
      (mapcar '(lambda        (j)
          (entmakex (list (cons 0 "LINE")
                          (cons 10 (nth (Car j) plst))
                          (cons 11 (nth (Cadr j) plst))
                    )
          )
        )
       '((0 2)
         (1 3))
      )
    )
   )
 )
 (princ)
)