请教，怎么批量获取多个矩形左下角坐标？

sbwdx

   请教大神，怎么批量获取多个矩形左下角坐标？就是简单矩形，谢谢！

NewBug

可以的哦，看附件

sbwdx

NewBug 发表于 2023-9-24 13:08
可以的哦，看附件

大神。我不想要括号，就想要纯坐标点，我用move可以移动的那种，能去掉括号不咯

NewBug

这又是另外一个问题了，恕我理解能力差

woxin168

(defun c:ggt( / pt1 ent pt2 i nb pt3 xx yy )

  (command "osmode" "0")
  (setq pt1 (getpoint "选择范围:\n")
          pt2 (getpoint "指定对角点:\n"))
  (setq ent (ssget "_c" pt1 pt2 '((0 . "LWPOLYLINE"))))
  (if (/= ent nil)
    (progn
    (setq i 0 nb (sslength ent) )
    (princ (strcat"共需输出"(rtos nb)"个矩形左下角坐标点。 \n"))

   (repeat nb
    (setq ept (entget (ssname ent i)))
    (setq pt3 (cdr (assoc 10 ept)))
    (setq xx (car pt3) yy (cadr pt3))
    (princ (strcat"第"(rtos i)"个矩形左下角坐标是:"(rtos xx) ","(rtos yy) "\n") )
    (setq i (1+ i))
     )))
  (princ)
  )

运行结果：
命令: GGT
osmode
输入 OSMODE 的新值 <0>: 0
命令: 选择范围:
指定对角点:
共需输出14个矩形左下角坐标点。
第0个矩形左下角坐标是:224.7,656.15
第1个矩形左下角坐标是:216.59,491.55
第2个矩形左下角坐标是:206.59,481.55
第3个矩形左下角坐标是:257.48,795.43
第4个矩形左下角坐标是:249.37,630.84
第5个矩形左下角坐标是:239.37,620.84
第6个矩形左下角坐标是:66.95,817.97
第7个矩形左下角坐标是:58.84,653.37
第8个矩形左下角坐标是:48.84,643.37
第9个矩形左下角坐标是:-64.16,639.76
第10个矩形左下角坐标是:-72.27,475.17
第11个矩形左下角坐标是:-82.27,465.17
第12个矩形左下角坐标是:-65.42,739.02
第13个矩形左下角坐标是:-233.07,817.13

woxin168

具体见更贴，请过目。

ssyfeng

楼主不用搞的这么复杂，直接说出最终目的就好了，不然弄来弄去都不是你想要的东西。

飞雪神光

sbwdx 发表于 2023-9-24 13:32
大神。我不想要括号，就想要纯坐标点，我用move可以移动的那种，能去掉括号不咯

是对角点的点表吧  car一下不就行了