救助一个能读取矩形长宽的代码

h806600727

求助大佬，，怎么取得矩形长宽的数值，效果是：点选矩形，获取长宽值，并写出来，

kkq0305

(defun c:tt (/ ent ptlst a b)
  (if (setq ent (car (entsel)))
    (progn
      (setq ptlst (mapcar 'cdr
                          (vl-remove-if-not
                            '(lambda (a) (= 10 (car a)))
                            (entget ent)
                          )
                  )
      )
      (setq a (distance (car ptlst) (cadr ptlst)))
      (setq b (distance (cadr ptlst) (caddr ptlst)))
      (alert (strcat "矩形为：" (rtos a 2 3) "X" (rtos b 2 3)))
      (princ)
    )
  )
)

tigcat

kkq0305 发表于 2021-11-16 21:15
(defun c:tt (/ ent ptlst a b)
  (if (setq ent (car (entsel)))
    (progn

感谢分享,非常实用

vitalgg

http://atlisp.cn/package-info/list-rec-wxh-stable.html

列出矩形宽高表.矩形包括倒角或圆角矩形，缺一角或两个角的矩形。矩形可不与坐标轴正交。

h806600727

kkq0305 发表于 2021-11-16 18:44
(defun c:tt (/ ent ptlst a b)
  (if (setq ent (car (entsel)))
    (progn

很赞