悟沧 发表于 2018-8-8 21:39:49

怎么得到某个块右下角的坐标

本帖最后由 悟沧 于 2018-8-9 09:57 编辑

想得到某个块右下角的坐标列表，下面程序显示函数错误，请帮忙看下哪里有问题，谢谢了。



;;;@计算块右下角坐标 调用 (GetsBox ss) 即可
(defun GetsBox (ss1 / n pt1 x y pt3)
      (repeat (setq n (sslength ss1))
                (vla-getboundingbox (vlax-ename->vla-object (ssname ss1 (setq n (1- n)))) 'x 'y)
                (setq pt1 (vlax-safearray->list x))
                (setq pt3 (vlax-safearray->list y))
                (list (car pt1)(cadr pt3))
      )
)
******************************回复，问题已解决，自己理解错函数的意思了。

Andyhon 发表于 2018-8-8 22:32:49

借道 ACET-*

Command: (setq pts (acet-ent-geomextentsee))
Command: (list (caadrpts) (cadar pts))
(1.0 -1.0)

悟沧 发表于 2018-8-9 09:57:40

问题已解决。
页: [1]
查看完整版本: 怎么得到某个块右下角的坐标