想获取矩形的边长，选择集运行后出错，求帮忙调试

richine001

想获取矩形的边长，选择集运行后出错，“错误: 参数类型错误: lentityp <Selection set: 5b4e>，求高手帮忙调试下


(defun c:tt()
     (setvar "cmdecho" 0)
     (vl-load-com)
     (setq  layn "WALL_边缘构件轮廓_S")
     (setq en (ssget ":s" (list(cons 8 layn))))
     (princ "\n选择要计算的矩形构件")
     (setq endata(entget en))
     (setq ent2(cdr (assoc 330 endata)))
     (vla-getboundingbox(vlax-ename->vla-object ent2) 'minp 'maxp)
     (setq tt1(vlax-safearray->list minp)
     tt2(vlax-safearray->list maxp))
     (setq pdx (abs(-(car tt1)(car tt2))))
     (setq pdy (abs(-(cadr tt1)(cadr tt2))))
     (setq pdx1 (/ pdx 5))
     (setq pdy1 (/ pdy 5))  
     (if (> pdx pdy) (setq b pdy1  h pdx1))
     (if (< pdx pdy) (setq b pdx1  h pdy1))
     (setq b0 (rtos b 2 0))
     (setq h0 (rtos h 2 0 ))
     (prin1)
)

Andyhon

(setq en (ssget ":s" (list(cons 8 layn))))
改成
(setq ss (ssget ":s" (list(cons 8 layn))))
那么这句即成了
(setq endata(entget ss))    ; <==参数类型错误

sunny20102

     (setq endata(entget en))
     (setq ent2(cdr (assoc 330 endata)))
改成:
    (setq ent2 (ssname en 0))

     (setq pdx1 (/ pdx 5))
     (setq pdy1 (/ pdy 5))
改成:
     (setq pdx1 (/ pdx 5.0)) ;强制实数运算
     (setq pdy1 (/ pdy 5.0))  ;强制实数运算

sunny20102

另外, 上述代码仅对水平放置的矩形有效, 一旦矩形旋转就不可了

因此用获取边界点的方法不可取, 应该用 (assoc 10 entlist) 获取多段线的顶点
再来运算

Btw: 我也是初学者,

richine001

是的，我这个是为了算剪力墙边缘构件的，一般都是水平放置， (assoc 10 entlist) ，矩形的群码10取不到矩形的各个坐标点哈，