规则化多边形（建筑规则化）

newer · 发表于 2025-1-10 09:24:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:tt ()
(if (and (setq
min_len
(getreal (xdrx-string-multilanguage
"\n主方向最小长度<退出>:"
"\nMinimum length in main direction <exit>:"
)
)
)
(setq
m_offset
(getreal
(xdrx-string-multilanguage
"\n相邻平行边最大距离<退出>:"
"\nMaximum distance between adjacent parallel edges <exit>:"
)
)
)
(setq
m_angle (getreal (xdrx-string-multilanguage
"\n最大夹角(度)<退出>:"
"\nMaximum angle (degrees) <Exit>:"
)
)
)
(setq m_angle (xdrx_math_degtor m_angle))
(setq ss (xdrx-ssget
(xdrx-string-multilanguage
"\n选择规则化的多边形<退出>:"
"\nSelect regularized polygons <exit>:"
)
'((-4 . "<and")
(0 . "*polyline")
(-4 . "&=")
(70 . 1)
(-4 . "and>")
)
)
)
)
(progn
(if (setq
ss (xdrx_points->regularContour ss min_len m_angle m_offset)
)
(progn
(foreach m (xdrx-pickset->ents ss)
(xdrx-setpropertyvalue m "color" 1 "constantwidth" 5.0)
)
)
)
)
)
(princ)
)

(defun c:tt () 
  (if (and (setq 
             min_len 
              (getreal (xdrx-string-multilanguage 
                         "\n主方向最小长度<退出>:" 
                         "\nMinimum length in main direction <exit>:" 
                       ) 
              ) 
           ) 
           (setq 
             m_offset 
              (getreal 
                (xdrx-string-multilanguage 
                  "\n相邻平行边最大距离<退出>:" 
                  "\nMaximum distance between adjacent parallel edges <exit>:" 
                ) 
              ) 
           ) 
           (setq 
             m_angle (getreal (xdrx-string-multilanguage 
                                "\n最大夹角(度)<退出>:" 
                                "\nMaximum angle (degrees) <Exit>:" 
                              ) 
                     ) 
           ) 
           (setq m_angle (xdrx_math_degtor m_angle)) 
           (setq ss (xdrx-ssget 
                      (xdrx-string-multilanguage 
                        "\n选择规则化的多边形<退出>:" 
                        "\nSelect regularized polygons <exit>:" 
                      ) 
                      '((-4 . "<and") 
                        (0 . "*polyline") 
                        (-4 . "&=") 
                        (70 . 1) 
                        (-4 . "and>") 
                       ) 
                    ) 
           ) 
      ) 
    (progn 
      (if (setq 
            ss (xdrx_points->regularContour ss min_len m_angle m_offset) 
          ) 
        (progn 
          (foreach m (xdrx-pickset->ents ss) 
            (xdrx-setpropertyvalue m "color" 1 "constantwidth" 5.0) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

账号		自动登录	找回密码
密码			立即注册

[每日一码] 规则化多边形（建筑规则化）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。