弱弱地问一下，如何提取长方体(box)的拐点坐标？？？

挚友01 · 发表于 2018-3-18 08:07:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

长方体内部表没搞明白，我在二维环境中用box绘制一个长方体，想提取某长方形的坐标（起始点和终止点）、和宽度，如何实现?

marting · 发表于 2018-3-18 08:30:26

什么是长方体的拐点？
某长方形是什么？
可不可以贴个图说明下。

挚友01 · 发表于 2018-3-18 11:26:49

4个捌点.....

挚友01 · 发表于 2018-3-21 14:35:31

是CAD三维建模box长方体,提取所有端点坐标，(entget ？？？？？？？？如何提取

挚友01 · 发表于 2018-4-11 11:18:03

有谁知道吗?
(entget 返回的是一堆乱码...
3>1:r,*-9><: {rn rn {rn mgqignoknifogfogjg moqmokffohhkgkghfj m o o
n n o o 90-(>-;@) V V V V |") (1 . "<0:;8: {rn rn {rn {jo {hg {jk {hj -:):-,:;
{lf {rn |") (1 . "<0:;8: {rn rn {rn {kn

挚友01 · 发表于 2018-4-15 18:37:51

用命令list 可以查看到立方体的对角坐标和高度，用VLISP怎么获取啊，请高手们指点指点llll

sicky111 · 发表于 2018-4-16 00:04:59

四个顶点？

挚友01 · 发表于 2018-4-16 09:10:51

随便，只要能返回立方体的各点的坐标就可以，困扰了我好长时间啊...

挚友01 · 发表于 2018-4-16 10:54:02

(defun lft_XYZ(e / b bb e c tem list_1 h w l) ; 返回在面域的线段
(setq e (tblobjname "REGION" (cdr (assoc 8 (entget e)))))
;(setq e (cdr (assoc 330 (entget e))))
(prin1 e)
(while (setq e (entnext e))
  (if (= "LINE" (cdr (assoc 0 (setq el (entget e)))))  ; GJXT_1_4
   (progn
   (setq list_1 (cons (list (cdr (assoc 10 el))(cdr (assoc 11 el))) list_1))
   )
)
)
(setq e (tblobjname "REGION" (cdr (assoc 8 (entget e))))) 是错了，这个怎么改?

账号		自动登录	找回密码
密码			立即注册

[求助] 弱弱地问一下，如何提取长方体(box)的拐点坐标？？？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。