等距多边形

nod684 · 发表于 2022-7-6 08:06:25

对不起，我误导了你们

我附上了一个样本图像，当在等轴测平面（立方体）中椭圆不存在时，多边形应该是什么样子的，它们只是我的向导，让我能够分割和连接节点以形成多边形

nod684 · 发表于 2022-7-6 08:09:04

是的，这与pBe代码有关。。

我已经试过了，这就是我得到的。

不椭圆不存在

Lee Mac · 发表于 2022-7-6 08:09:43

以下是使用变换矩阵映射顶点的示例：

copy


[color=GREEN];; Isometric Projection Example  -  Lee Mac[/color]
([color=BLUE]defun[/color] c:iso ( [color=BLUE]/[/color] c e l m p q v )
   ([color=BLUE]initget[/color] 1 [color=MAROON]"Top Right Left"[/color])
   ([color=BLUE]setq[/color] m
       (mxs
           ([color=BLUE]cdr[/color]
               ([color=BLUE]assoc[/color] ([color=BLUE]getkword[/color] [color=MAROON]"\nSpecify Isometric Projection Plane [Top/Right/Left]: "[/color])
                   ([color=BLUE]list[/color]
                       ([color=BLUE]list[/color] [color=MAROON]"Top"[/color]   ([color=BLUE]list[/color] ([color=BLUE]sqrt[/color] 3.0) ([color=BLUE]sqrt[/color] 3.0)) '(-1.0 1.0))
                       ([color=BLUE]list[/color] [color=MAROON]"Right"[/color] ([color=BLUE]list[/color] ([color=BLUE]sqrt[/color] 3.0)     0.0   ) '( 1.0 2.0))
                       ([color=BLUE]list[/color] [color=MAROON]"Left"[/color]  ([color=BLUE]list[/color] ([color=BLUE]sqrt[/color] 3.0)     0.0   ) '(-1.0 2.0))
                   )
               )
           )
           0.5 [color=GREEN];(/ (sqrt 6.0) 6.0) ;; True projection[/color]
       )
   )
   ([color=BLUE]while[/color]
       ([color=BLUE]progn[/color] ([color=BLUE]setvar[/color] 'errno 0) ([color=BLUE]setq[/color] e ([color=BLUE]car[/color] ([color=BLUE]entsel[/color] [color=MAROON]"\nSelect LWPolyline: "[/color])))
           ([color=BLUE]cond[/color]
               (   ([color=BLUE]=[/color] 7 ([color=BLUE]getvar[/color] 'errno))
                   ([color=BLUE]princ[/color] [color=MAROON]"\nMissed, try again."[/color])
               )
               (   ([color=BLUE]=[/color] 'ename ([color=BLUE]type[/color] e))
                   ([color=BLUE]if[/color] ([color=BLUE]/=[/color] [color=MAROON]"LWPOLYLINE"[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 0 ([color=BLUE]entget[/color] e))))
                       ([color=BLUE]princ[/color] [color=MAROON]"\nInvalid object selected."[/color])
                   )
               )
           )
       )
   )
   ([color=BLUE]if[/color] e
       ([color=BLUE]progn[/color]
           ([color=BLUE]setq[/color] e ([color=BLUE]entget[/color] e)
                 l (LM:massoc 10 e)
                 q ([color=BLUE]length[/color] l)
                 c ([color=BLUE]mapcar[/color] '[color=BLUE]/[/color] ([color=BLUE]apply[/color] '[color=BLUE]mapcar[/color] ([color=BLUE]cons[/color] '[color=BLUE]+[/color] l)) ([color=BLUE]list[/color] q q))
                 v ([color=BLUE]mapcar[/color] '[color=BLUE]-[/color] c (mxv m c))
           )
           ([color=BLUE]entmake[/color]
               ([color=BLUE]append[/color]
                   ([color=BLUE]list[/color]
                      '(0 . [color=MAROON]"LWPOLYLINE"[/color])
                      '(100 . [color=MAROON]"AcDbEntity"[/color])
                      '(100 . [color=MAROON]"AcDbPolyline"[/color])
                       ([color=BLUE]assoc[/color] 90 e)
                       ([color=BLUE]assoc[/color] 70 e)
                       ([color=BLUE]assoc[/color] 38 e)
                   )
                   ([color=BLUE]mapcar[/color] '([color=BLUE]lambda[/color] ( p ) ([color=BLUE]cons[/color] 10 ([color=BLUE]mapcar[/color] '[color=BLUE]+[/color] (mxv m p) v))) l)
                   ([color=BLUE]list[/color] ([color=BLUE]assoc[/color] 210 e))
               )
           )
       )
   )
   ([color=BLUE]princ[/color])
)
[color=GREEN];; MAssoc  -  Lee Mac[/color]
[color=GREEN];; Returns all associations of a key in an association list[/color]
([color=BLUE]defun[/color] LM:MAssoc ( key lst [color=BLUE]/[/color] item )
   ([color=BLUE]if[/color] ([color=BLUE]setq[/color] item ([color=BLUE]assoc[/color] key lst))
       ([color=BLUE]cons[/color] ([color=BLUE]cdr[/color] item) (LM:MAssoc key ([color=BLUE]cdr[/color] ([color=BLUE]member[/color] item lst))))
   )
)
[color=GREEN];; Matrix x Vector  -  Vladimir Nesterovsky[/color]
[color=GREEN];; Args: m - nxn matrix, v - vector in R^n[/color]
([color=BLUE]defun[/color] mxv ( m v )
   ([color=BLUE]mapcar[/color] '([color=BLUE]lambda[/color] ( r ) ([color=BLUE]apply[/color] '[color=BLUE]+[/color] ([color=BLUE]mapcar[/color] '[color=BLUE]*[/color] r v))) m)
)
[color=GREEN];; Matrix x Scalar - Lee Mac 2010[/color]
[color=GREEN];; Args: m - nxn matrix, n - real scalar[/color]
([color=BLUE]defun[/color] mxs ( m s )
   ([color=BLUE]mapcar[/color] '([color=BLUE]lambda[/color] ( r ) ([color=BLUE]mapcar[/color] '([color=BLUE]lambda[/color] ( n ) ([color=BLUE]*[/color] n s)) r)) m)
)
([color=BLUE]princ[/color])

注意，上述示例不是真实投影，因为尺寸保持不变；取消注释代码中注明的比例因子，以获得真实的投影维数。

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

我怀疑你打开了osnaps，我应该用entmake而不是命令等价物anyhoo。。在按上/右/左的顺序指定直径和插入点后，我们可以合并沼泽中的代码来绘制椭圆和多边形。

nod684 · 发表于 2022-7-6 08:19:02

@MR；
再次尝试代码。是的，你是对的。它处于等轴测顶部模式，但是如果我更改为左或右，它仍然投影顶部等轴圆。
我喜欢这段代码，因为不需要预先绘制多边形或椭圆

@李；
谢谢李的帮助。惊讶于您如何将2d多边形“旋转”到等轴测视图中。这也帮了大忙！只需要先绘制多边形，然后再将其投影到等距中。。。但还是很酷！

@pBe公司
是的，我打开了OSNAPS

pBe · 发表于 2022-7-6 08:19:08

这就解释了结果“甚至不闭合多边形”，我之前建议您修改isoc例程，将多边形的创建一个接一个地包括在内。

marko_ribar · 发表于 2022-7-6 08:23:14

以下是我的改进版本，以满足您的需要：

copy


(defun transptisotop (pt)
 (list (+ (car (polar (list 0.0 0.0 0.0) (/ pi 6.0) (car pt))) 
       (car (polar (list 0.0 0.0 0.0) (* 5.0 (/ pi 6.0)) (cadr pt))) )
       (+ (cadr (polar (list 0.0 0.0 0.0) (/ pi 6.0) (car pt))) 
       (cadr (polar (list 0.0 0.0 0.0) (* 5.0 (/ pi 6.0)) (cadr pt))) )
       0.0
 )
)
(defun transptisoleft (pt)
 (list (+ (car (polar (list 0.0 0.0 0.0) (- (/ pi 6.0)) (car pt))) 
       (car (polar (list 0.0 0.0 0.0) (/ pi 2.0) (cadr pt))) )
       (+ (cadr (polar (list 0.0 0.0 0.0) (- (/ pi 6.0)) (car pt))) 
       (cadr (polar (list 0.0 0.0 0.0) (/ pi 2.0) (cadr pt))) )
       0.0
 )
)
(defun transptisoright (pt)
 (list (+ (car (polar (list 0.0 0.0 0.0) (- (* 5.0 (/ pi 6.0))) (car pt))) 
       (car (polar (list 0.0 0.0 0.0) (/ pi 2.0) (cadr pt))) )
       (+ (cadr (polar (list 0.0 0.0 0.0) (- (* 5.0 (/ pi 6.0))) (car pt))) 
       (cadr (polar (list 0.0 0.0 0.0) (/ pi 2.0) (cadr pt))) )
       0.0
 )
)
(defun isotop (vertlst squarelst ptci1 ptci2)
 (setq vertlstn (mapcar '(lambda (p) (transptisotop p)) vertlst))
 (setq isopoltop (entmakex 
                   (append
                     (list
                       '(0 . "LWPOLYLINE")
                       '(100 . "AcDbEntity")
                       '(100 . "AcDbPolyline")
                        (cons 90 (length vertlstn))
                       '(70 . 1)
                     )
                     (mapcar '(lambda (x) (cons 10 x)) vertlstn)
                     (list (list 210 0.0 0.0 1.0))
                   )
                 )
 )
 (setq sqarelstn (mapcar '(lambda (p) (transptisotop p)) squarelst))
 (setq isosquaretop (entmakex 
                      (append
                        (list
                          '(0 . "LWPOLYLINE")
                          '(100 . "AcDbEntity")
                          '(100 . "AcDbPolyline")
                           (cons 90 (length sqarelstn))
                          '(70 . 1)
                        )
                        (mapcar '(lambda (x) (cons 10 x)) sqarelstn)
                        (list (list 210 0.0 0.0 1.0))
                      )
                    )
 )
 (setq pta (transptisotop ptci1))
 (setq ptb (transptisotop ptci2))
 (setq ra (distance '(0.0 0.0 0.0) pta))
 (setq rb (distance '(0.0 0.0 0.0) ptb))
 (setq isocircletop (entmakex
                      (list
                        '(0 . "ELLIPSE")
                        '(100 . "AcDbEntity")
                        '(100 . "AcDbEllipse")
                        (cons 10 (list 0.0 0.0 0.0))
                        (cons 11 pta)
                        (list 210 0.0 0.0 1.0)
                        (cons 40 (/ rb ra))
                        '(41 . 0.0)
                        (cons 42 (* 2.0 pi))
                      )
                    )
 )
)
(defun isoleft (vertlst squarelst ptci1 ptci2)
 (setq vertlstn (mapcar '(lambda (p) (transptisoleft p)) vertlst))
 (setq isopolleft (entmakex 
                    (append
                      (list
                        '(0 . "LWPOLYLINE")
                        '(100 . "AcDbEntity")
                        '(100 . "AcDbPolyline")
                         (cons 90 (length vertlstn))
                        '(70 . 1)
                      )
                      (mapcar '(lambda (x) (cons 10 x)) vertlstn)
                      (list (list 210 0.0 0.0 1.0))
                    )
                  )
 )
 (setq sqarelstn (mapcar '(lambda (p) (transptisoleft p)) squarelst))
 (setq isosquareleft (entmakex 
                       (append
                         (list
                           '(0 . "LWPOLYLINE")
                           '(100 . "AcDbEntity")
                           '(100 . "AcDbPolyline")
                            (cons 90 (length sqarelstn))
                           '(70 . 1)
                         )
                         (mapcar '(lambda (x) (cons 10 x)) sqarelstn)
                         (list (list 210 0.0 0.0 1.0))
                       )
                     )
 )
 (setq pta (transptisoleft ptci1))
 (setq ptb (transptisoleft ptci2))
 (setq ra (distance '(0.0 0.0 0.0) pta))
 (setq rb (distance '(0.0 0.0 0.0) ptb))
 (setq isocircleleft (entmakex
                       (list
                         '(0 . "ELLIPSE")
                         '(100 . "AcDbEntity")
                         '(100 . "AcDbEllipse")
                         (cons 10 (list 0.0 0.0 0.0))
                         (cons 11 pta)
                         (list 210 0.0 0.0 1.0)
                         (cons 40 (/ rb ra))
                         '(41 . 0.0)
                         (cons 42 (* 2.0 pi))
                       )
                     )
 )
)
(defun isoright (vertlst squarelst ptci1 ptci2)
 (setq vertlstn (mapcar '(lambda (p) (transptisoright p)) vertlst))
 (setq isopolright (entmakex 
                     (append
                       (list
                         '(0 . "LWPOLYLINE")
                         '(100 . "AcDbEntity")
                         '(100 . "AcDbPolyline")
                          (cons 90 (length vertlstn))
                         '(70 . 1)
                       )
                       (mapcar '(lambda (x) (cons 10 x)) vertlstn)
                       (list (list 210 0.0 0.0 1.0))
                     )
                   )
 )
 (setq sqarelstn (mapcar '(lambda (p) (transptisoright p)) squarelst))
 (setq isosquareright (entmakex 
                        (append
                          (list
                            '(0 . "LWPOLYLINE")
                            '(100 . "AcDbEntity")
                            '(100 . "AcDbPolyline")
                             (cons 90 (length sqarelstn))
                            '(70 . 1)
                          )
                          (mapcar '(lambda (x) (cons 10 x)) sqarelstn)
                          (list (list 210 0.0 0.0 1.0))
                        )
                      )
 )
 (setq pta (transptisoright ptci1))
 (setq ptb (transptisoright ptci2))
 (setq ra (distance '(0.0 0.0 0.0) pta))
 (setq rb (distance '(0.0 0.0 0.0) ptb))
 (setq isocircleright (entmakex
                        (list
                          '(0 . "ELLIPSE")
                          '(100 . "AcDbEntity")
                          '(100 . "AcDbEllipse")
                          (cons 10 (list 0.0 0.0 0.0))
                          (cons 11 pta)
                          (list 210 0.0 0.0 1.0)
                          (cons 40 (/ rb ra))
                          '(41 . 0.0)
                          (cons 42 (* 2.0 pi))
                        )
                      )
 )
)
(defun c:isopolygon (/ pol vertlst rad ptci1 ptci2 squarelst ch)
 (vl-cmdf "_.ucs" "w")
 (vl-cmdf "_.plan" "")
 (vl-cmdf "_.zoom" "c" "0,0,0" "")
 (vl-cmdf "_.polygon" pause "0,0,0" "I" pause)
 (setq pol (entlast))
 (mapcar '(lambda (x) (if (= (car x) 10) (setq vertlst (cons (cdr x) vertlst)))) (entget pol))
 (setq vertlst (reverse vertlst))
 (setq rad (distance '(0.0 0.0 0.0) (car vertlst)))
 (setq ptci1 (polar '(0.0 0.0 0.0) (- (/ pi 4.0)) rad))
 (setq ptci2 (polar '(0.0 0.0 0.0) (/ pi 4.0) rad))
 (setq squarelst (list (list (- rad) (- rad) 0.0) (list rad (- rad) 0.0) (list rad rad 0.0) (list (- rad) rad 0.0)))
 (initget "Top Left Right All")
 (setq ch (getkword "\nEnter Top/Left/Right <All> : "))
 (cond ((or (eq ch "All") (null ch))
        (isotop vertlst squarelst ptci1 ptci2)
        (setq sstop (ssadd))
        (ssadd isopoltop sstop)
        (ssadd isosquaretop sstop)
        (ssadd isocircletop sstop)
        (vl-cmdf "_.move" sstop "" (cdr (assoc 10 (entget isosquaretop))) '(0.0 0.0 0.0) )
        (isoleft vertlst squarelst ptci1 ptci2)
        (setq ssleft (ssadd))
        (ssadd isopolleft ssleft)
        (ssadd isosquareleft ssleft)
        (ssadd isocircleleft ssleft)
        (vl-cmdf "_.move" ssleft "" '(0.0 0.0 0.0) (cdr (assoc 10 (entget isosquareleft))) )
        (isoright vertlst squarelst ptci1 ptci2)
        (setq ssright (ssadd))
        (ssadd isopolright ssright)
        (ssadd isosquareright ssright)
        (ssadd isocircleright ssright)
        (vl-cmdf "_.move" ssright "" '(0.0 0.0 0.0) (cdr (assoc 10 (entget isosquareright))) )
       )
       ((eq ch "Top")
        (isotop vertlst squarelst ptci1 ptci2)
       )
       ((eq ch "Left")
        (isoleft vertlst squarelst ptci1 ptci2)
       )
       ((eq ch "Right")
        (isoright vertlst squarelst ptci1 ptci2)
       )
 )
 (entdel pol)
 (vl-cmdf "_.ucs" "p")
 (princ)
)

M.R。

Lee Mac · 发表于 2022-7-6 08:26:41

下面是另一个版本，使用椭圆方程，基于活动等参平面：

[code][颜色=绿色]------------------=={Isometric Polygon}==----------------；；；；；；允许用户构造投影的正多边形；；；；在主动等轴测平面中；；；；-----------------------------------------------------------------；；；；作者：Lee Mac，版权所有©2012-www.Lee-Mac。通用域名格式；；；；-----------------------------------------------------------------；；（defunc:isopoly（/a b c i l m p r s）（if（nulln）（setqn 6））（while（

marko_ribar · 发表于 2022-7-6 08:30:32

如果我注意到的话，你的代码李的目的是什么？。。。我已经更新了我的，以匹配OP的图像，根据你的代码，投影多边形的比例不正确，你还没有包括顶部、左侧、右侧和所有投影的选项（可能我遗漏了什么-你的matrix变体比我的要先进得多，但所有这些都是真的必要的）？

M、 R。

Lee Mac · 发表于 2022-7-6 08:32:16

对不起，我忘了包括多边形半径乘数-我已经更新了上述代码，还包括了一个简短的演示。

然而，我要声明的是，原始程序将在每个等轴测平面中构造多边形（基于活动等轴测平面，如上图所示）。

[编程交流] 等距多边形

发表回复

精选推荐