需要Lisp：创建矩形b

git_thailand · 发表于 2022-7-6 07:59:30

需要lisp在矩形（黑色）之间创建矩形（红色）

BlackBox · 发表于 2022-7-6 08:03:05

考虑偏移、修剪和Pedit或Pedit命令。

BIGAL · 发表于 2022-7-6 08:07:10

另一种方法是用lisp选取两个对角点xoff yoff，可以不同的绘制新的矩形。如果矩形在角度上，则回答3pt。

我会去3pt你可以打赌，如果你使它平方只需要你需要一个角度版本。

ketxu · 发表于 2022-7-6 08:10:32

Git_thailand，请重新阅读您发布的所有离题内容。请详细说明你想要什么。

pBe · 发表于 2022-7-6 08:13:26

看起来很简单。唯一存在的实体是黑色柱脚？你还想再创造5个？或者只有4个不包括内部矩形？

Tharwat · 发表于 2022-7-6 08:18:32

我想只有两个，不是吗？

pBe · 发表于 2022-7-6 08:20:57

哦，是的。。。但也可能是四个，这取决于你如何看待它。5即使您将中间一个作为一个单独的实体包括在内。

哦，好吧。。。。

copy


(defun c:BeatBox (/ _HiLow _Box _trans rec pts low high)
 (defun _HiLow (lev lst)
   (list
     (apply lev (mapcar 'car lst))
     (apply lev (mapcar 'cadr lst))
   )
 )
 (defun _Box (p1 p2)
   (command "_rectang" "_non" p1 "_non" p2)
 )
 (setq _trans (lambda (pt) (trans pt 0 1)))
 (if (and
   (setq dist (cond
                   (   (getdist
                           (strcat "\nOffset Distance"
                               (if dist (strcat " <" (rtos dist) ">: ") ": ")
                           )
                       )
                   )
                   (   dist   )
               )
           )
   (setq rec (ssget 
      '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1))
      )
   ))
   [color=blue](progn
[/color]    [color=blue](repeat  (setq i (sslength rec))
[/color]    (setq pts (mapcar 'cdr
       (vl-remove-if-not
         '(lambda (j)
     (= (car j) 10)
   )
         (entget (setq e (ssname rec [color=blue](setq i (1- i))))[/color])
       )
      )
  pts (mapcar '_trans pts)
   )
   (setq Low  (_HiLow 'min pts)
  High (_HiLow 'max pts)
   )
 (_Box (list (car low) (+ (cadr low) dist))
       (list (car high) (- (cadr high) dist))
 )
 (_Box (list (+ (car low) dist) (cadr low))
       (list (- (car high) dist) (cadr high))
 )
)
     )
 )
)