[编程交流] 使用li制作多段线框

(defun c:rect ( / p1 p2 )
 ;; © Lee Mac 2010
 (if (and (setq p1 (getpoint "\nSpecify Pick Corner: "))
          (setq p2 (getcorner "\nSpecift Opposite Corner: " p1)))
   (LM:Rectangle p1 p2 (trans '(0. 0. 1.) 1 0 t))
 )
 (princ)
)
(defun LM:Rectangle ( ll ur norm )
 ;; © Lee Mac 2010
 (entmakex
   (append
     (list
       (cons 0 "LWPOLYLINE")
       (cons 100 "AcDbEntity")
       (cons 100 "AcDbPolyline")
       (cons 90 4)
       (cons 70 1)
       (cons 38 (caddr ll))
       (cons 210 norm)
     )
     (mapcar '(lambda ( p ) (cons 10 p))
       (
         (lambda ( data )
           (mapcar
             '(lambda ( funcs )
                (mapcar
                  '(lambda ( func )
                     ((eval func) data)
                   )
                  funcs
                )
              )
            '((caar   cadar) (caadr  cadar)
              (caadr cadadr) (caar  cadadr))
           )
         )
         (mapcar '(lambda ( p ) (trans p 1 norm))
           (list ll ur)
         )
       )
     )
   )
 )
)

(defun c:SQ (/ foo p1 pt w h p2 ent)
 ;; Draw square polygon at specified height and width (with option to rotate)
 ;; Alan J. Thompson
 (defun foo (p) (list 10 (car p) (cadr p)))
 (if (and (setq p1 (getpoint "\nSpecify NorthWest corner of rectangle: "))
          (setq w (getdist "\nSpecify width: "))
          (setq h (cond ((getdist (strcat "\nSpecify height <" (rtos w) ">: ")))
                        (w)
                  )
          )
     )
   (progn
     (setq p2 (polar (setq pt (trans p1 1 0)) 0. w))
     (if (setq ent (entmakex
                     (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline")
                                   '(90 . 4) '(70 . 1)
                                  )
                             (mapcar 'foo
                                     (list pt p2 (polar p2 (* 1.5 pi) h) (polar pt (* 1.5 pi) h))
                             )
                     )
                   )
         )
       (command "_.rotate" ent "" "_non" p1 "_r" "_non" p1 "_non" (trans p2 0 1))
     )
   )
 )
 (princ)
)