顶视图和侧视图矩形

jason_a · 发表于 2022-7-5 16:50:48

你好

我正在尝试创建一个lisp例程，该例程将基于前视图创建顶视图和侧视图矩形。我附上了一张图片供参考。我想点击白色面板的两个相对的角，然后创建两个厚度为25.4的绿色矩形。这可能吗？

谢谢

Grrr · 发表于 2022-7-5 16:57:03

嗨，试试这个：


[b][color=BLACK]([/color][/b]defun C:test [b][color=FUCHSIA]([/color][/b] / *error* p1 p2 right top lr lt main [b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]defun *error* nil [b][color=NAVY]([/color][/b]redraw[b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b]princ[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while 
   [b][color=NAVY]([/color][/b]and  
     [b][color=MAROON]([/color][/b]setq p1 [b][color=GREEN]([/color][/b]getpoint [color=#2f4f4f]"\nSpecify bottom left corner <exit>: "[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]setq p2 [b][color=GREEN]([/color][/b]getcorner p1 [color=#2f4f4f]"\nSpecify top right corner <exit>: "[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
   [b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]and 
     [b][color=MAROON]([/color][/b]setq p1 [b][color=GREEN]([/color][/b]trans p1 1 0[b][color=GREEN])[/color][/b] p2 [b][color=GREEN]([/color][/b]trans p2 1 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]setq right [b][color=GREEN]([/color][/b]lambda [b][color=BLUE]([/color][/b]x[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]polar x 0. 25.4[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]setq top [b][color=GREEN]([/color][/b]lambda [b][color=BLUE]([/color][/b]x[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]polar x [b][color=RED]([/color][/b]/ PI 2[b][color=RED])[/color][/b] 25.4[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]setq lr [b][color=GREEN]([/color][/b]mapcar 'right [b][color=BLUE]([/color][/b]list p2 [b][color=RED]([/color][/b]list [b][color=PURPLE]([/color][/b]car p2[b][color=PURPLE])[/color][/b] [b][color=PURPLE]([/color][/b]cadr p1[b][color=PURPLE])[/color][/b] 0.[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]setq lt [b][color=GREEN]([/color][/b]mapcar 'top [b][color=BLUE]([/color][/b]list p2 [b][color=RED]([/color][/b]list [b][color=PURPLE]([/color][/b]car p1[b][color=PURPLE])[/color][/b] [b][color=PURPLE]([/color][/b]cadr p2[b][color=PURPLE])[/color][/b] 0.[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]setq lr [b][color=GREEN]([/color][/b]append [b][color=BLUE]([/color][/b]reverse [b][color=RED]([/color][/b]mapcar 'right lr[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] lr[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]setq lt [b][color=GREEN]([/color][/b]append [b][color=BLUE]([/color][/b]reverse [b][color=RED]([/color][/b]mapcar 'top lt[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] lt[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]setq main [b][color=GREEN]([/color][/b]list p1 [b][color=BLUE]([/color][/b]list [b][color=RED]([/color][/b]car p1[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]cadr p2[b][color=RED])[/color][/b] 0.[b][color=BLUE])[/color][/b] p2 [b][color=BLUE]([/color][/b]list [b][color=RED]([/color][/b]car p2[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]cadr p1[b][color=RED])[/color][/b] 0.[b][color=BLUE])[/color][/b] [b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]not [b][color=GREEN]([/color][/b]redraw[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]not [b][color=GREEN]([/color][/b]grvecs [b][color=BLUE]([/color][/b]cons -1 [b][color=RED]([/color][/b]apply 'append [b][color=PURPLE]([/color][/b]mapcar 'list main [b][color=TEAL]([/color][/b]cons [b][color=OLIVE]([/color][/b]last main [b][color=OLIVE])[/color][/b] main[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]LWPoly lr 1[b][color=MAROON])[/color][/b] 
     [b][color=MAROON]([/color][/b]LWPoly lt 1[b][color=MAROON])[/color][/b] 
   [b][color=NAVY])[/color][/b]
 [b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]redraw[b][color=FUCHSIA])[/color][/b][b][color=FUCHSIA]([/color][/b]princ[b][color=FUCHSIA])[/color][/b]
[b][color=BLACK])[/color][/b]
[color=#8b4513]; Lee Mac[/color]
[b][color=BLACK]([/color][/b]defun LWPoly [b][color=FUCHSIA]([/color][/b]lst cls[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]entmakex 
   [b][color=NAVY]([/color][/b]append 
     [b][color=MAROON]([/color][/b]list 
       [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"LWPOLYLINE"[/color][b][color=GREEN])[/color][/b]
       [b][color=GREEN]([/color][/b]cons 100 [color=#2f4f4f]"AcDbEntity"[/color][b][color=GREEN])[/color][/b]
       [b][color=GREEN]([/color][/b]cons 100 [color=#2f4f4f]"AcDbPolyline"[/color][b][color=GREEN])[/color][/b]
       [b][color=GREEN]([/color][/b]cons 90 [b][color=BLUE]([/color][/b]length lst[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
       [b][color=GREEN]([/color][/b]cons 70 cls[b][color=GREEN])[/color][/b]
     [b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]mapcar [b][color=GREEN]([/color][/b]function [b][color=BLUE]([/color][/b]lambda [b][color=RED]([/color][/b]p[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]cons 10 p[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] lst[b][color=MAROON])[/color][/b]
   [b][color=NAVY])[/color][/b]
 [b][color=FUCHSIA])[/color][/b]
[b][color=BLACK])[/color][/b]

jason_a · 发表于 2022-7-5 17:00:48

非常好用，非常感谢！这是一个很大的帮助，我很感激。

BIGAL · 发表于 2022-7-5 17:02:46

jason_a为什么不画矩形作为这个函数的一部分？1 pt，L&W全部完成。

jason_a · 发表于 2022-7-5 17:06:49

我每天在我的工作中起草许多正交视图，不幸的是，输入值会减慢我的速度。不过谢谢你的建议，它可以在我的工作流程中的其他地方派上用场。

ReMark · 发表于 2022-7-5 17:10:32

也许你应该在3D中工作，并从模型中生成2D视图。

jason_a · 发表于 2022-7-5 17:12:03

最后，可以修改lisp例程以允许用户输入面板的厚度吗？它目前有一个默认值25.4，我已经应用于一个按钮，适用于我的大部分工作流程。但在奇怪的情况下，我需要一个不同的值，第二个允许用户定义输入的按钮也会有所帮助。

Grrr · 发表于 2022-7-5 17:16:49

是的：

copy


(defun C:test ( / *error* p1 p2 n right top lr lt main )
 (defun *error* nil (redraw) (princ))
 (while 
   (and  
     (setq p1 (getpoint "\nSpecify bottom left corner <exit>: "))
     (setq p2 (getcorner p1 "\nSpecify top right corner <exit>: "))
     (not (initget (+ 2 4))) (or (setq n (getreal "\nSpecify thickness value <25.4>: ")) (setq n 25.4))
   )
   (and 
     (setq p1 (trans p1 1 0) p2 (trans p2 1 0))
     (setq right (lambda (x) (polar x 0. n)))
     (setq top (lambda (x) (polar x (/ PI 2) n)))
     (setq lr (mapcar 'right (list p2 (list (car p2) (cadr p1) 0.))))
     (setq lt (mapcar 'top (list p2 (list (car p1) (cadr p2) 0.))))
     (setq lr (append (reverse (mapcar 'right lr)) lr))
     (setq lt (append (reverse (mapcar 'top lt)) lt))
     (setq main (list p1 (list (car p1) (cadr p2) 0.) p2 (list (car p2) (cadr p1) 0.) ))
     (not (redraw))
     (not (grvecs (cons -1 (apply 'append (mapcar 'list main (cons (last main ) main))))))
     (mapcar '(lambda (x) (LWPoly x 1)) (list lr lt))
   )
 )
 (redraw)(princ)
)