选择指定长度范围内的LINE

marting · 发表于 2016-12-25 15:24:35

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

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

×

(defun c:getlines ( / a e i m n p q s x )
    (initget 6)
    (setq m (cond ((getdist "\nSpecify lower bound for length <none>: ")) (0.0)))
    (initget 6)
    (setq n (cond ((getdist "\nSpecify upper bound for length <none>: ")) (1e308)))
    (if (setq s (ssget "_X" (list '(0 . "LINE") (if (= 1 (getvar 'cvport)) (cons 410 (getvar 'ctab)) '(410 . "Model")))))
        (repeat (setq i (sslength s))
            (setq e (ssname s (setq i (1- i)))
                  x (entget e)
                  p (cdr (assoc 10 x))
                  q (cdr (assoc 11 x))
                  a (rem (angle p q) (/ pi 2.0))
            )
            (if (not (and (<= m (distance p q) n) (or (equal 0.0 a 1e-8) (equal (/ pi 2.0) a 1e-8))))
                (ssdel e s)
            )
        )
        (princ "\nNo lines found in the current layout.")
    )
    (sssetfirst nil s)
    (princ)
)

ynhh · 发表于 2016-12-25 20:54:00

谢谢你的分享

kqqt6236 · 发表于 2016-12-25 21:55:50

支持分享源码。

xvjiex · 发表于 2021-11-23 06:05:00

感谢分享选择指定长度范围内的LINE

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

[每日一码] 选择指定长度范围内的LINE

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

浏览过的版块