cjrun 发表于 2010-7-9 18:02:00

[求助] 怎样在lisp里得到块的左下及右上角点

怎样在lisp里得到块的左下及右上角点?<div><font class="Apple-style-span" face="Arial, Helvetica, sans-serif" size="3">多谢了!</font></div>

crazylsp 发表于 2010-7-9 18:14:00

<p>(defun c:yy ()</p>
<p>(setq p1 (getpoint "\n拾取左上角点"))</p>
<p>(setq p2 (getcorner p1&nbsp;"\n拾取右下角点"))</p>
<p>(princ"\n你做的很好")</p>
<p>)</p>

cjrun 发表于 2010-7-9 18:19:00

不好意思写错了，应该是得到插入块的左下角点和右上角点

ZZXXQQ 发表于 2010-7-9 21:39:00

搜一下“物体最小包围框”

cjrun 发表于 2010-7-11 15:35:00

搜了一下，有一个帖子，但没有回复!

ZZXXQQ 发表于 2010-7-11 19:28:00

对SPLINE有BUG


(DEFUN C:TT ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(IF (SETQ S1 (CAR (ENTSEL "\nSelect One Object 选择一个图元 :"))) (PROGN
(vla-getboundingbox (vlax-ename->vla-object S1) 'minpoint 'maxpoint)
(setq pmax (vlax-safearray->list maxpoint)
      pmin (vlax-safearray->list minpoint))
(SETVAR "OSMODE" 0)
(COMMAND ".RECTANG" PMIN PMAX)
(SETVAR "OSMODE" OLDOS)
))
(SETVAR "CMDECHO" 1)
(PRINC)
)

cjrun 发表于 2010-7-13 08:48:00

多谢版主！非常好用!Vlisp函数功能真强，要好好学习下!

dabao146 发表于 2010-7-14 09:36:00

<p>真的好用，只有努力學習了</p>

iuguhsnait 发表于 2010-12-19 00:43:18

挖坟，想看一下到底怎么搞，最近学习lisp，通过搞一个批量打印来锻炼一下。

xiaobao02 发表于 2010-12-19 16:45:25

顶ZZXXQQ版主，超级强！功能非常强大！
页: [1] 2
查看完整版本: [求助] 怎样在lisp里得到块的左下及右上角点