(XD::Linetype:MaxLength)获取指定线型的最大长度

newer · 发表于 2016-8-13 15:51:33

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

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

×

本帖最后由 newer 于 2016-8-13 15:53 编辑

(defun XD::Linetype:MaxLength (lt / el1 el2 i len len1 max1 numDashes
obj
)
(if (setq obj (xdrx_object_get "linetype" lt))
(progn
(setq numDashes (xdrx_linetype_NumDashes obj))
(setq i 0
len 0
)
(while (< i numDashes)
(setq len1 (xdrx_linetype_dashlengthAt obj i))
(if (>= len1 0)
(setq el1 (cons len1 el1))
(setq el2 (cons len1 el2))
)
(setq i (1+ i))
)
(setq max1 (apply
'max
el1
)
)
(if (> max1 1e-3)
max1
(if el2
(abs (apply
'min
el2
)
)
)
)
)
)
)

(defun XD::Linetype:MaxLength (lt / el1 el2 i len len1 max1 numDashes 
                                       obj 
                                   ) 
  (if (setq obj (xdrx_object_get "linetype" lt)) 
    (progn 
      (setq numDashes (xdrx_linetype_NumDashes obj)) 
      (setq i 0 
            len 0 
      ) 
      (while (
        (setq len1 (xdrx_linetype_dashlengthAt obj i)) 
        (if (>= len1 0) 
          (setq el1 (cons len1 el1)) 
          (setq el2 (cons len1 el2)) 
        ) 
        (setq i (1+ i)) 
      ) 
      (setq max1 (apply 
                   'max 
                   el1 
                 ) 
      ) 
      (if (> max1 1e-3) 
        max1 
        (if el2 
          (abs (apply 
                 'min 
                 el2 
               ) 
          ) 
        ) 
      ) 
    ) 
  ) 
)

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

[其他] (XD::Linetype:MaxLength)获取指定线型的最大长度

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