[求助]请教各位老师

runkeji · 发表于 2003-9-17 16:53:00

请教各位怎样才能取得矩形的长宽
并且所取得长宽与矩形一一对应
怎样取得矩形的各角点准确的属于哪个矩形的点。

meflying · 发表于 2003-9-17 17:03:00

怎样取得矩形的各角点准确的属于哪个矩形的点。
读不懂，难道在这里我还要来做句子分析？
说清楚点。

e2002 · 发表于 2003-9-17 17:11:00

说清楚你的要求,最好附图上来,大家才好帮你
另外: AutoCAd没有"矩形"这种对象,rectangle命令生成的是LwPolyline对象

runkeji · 发表于 2003-9-17 17:33:00

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:ti0igoev05i.dwg
下载次数:0 文件大小:18.08 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

meflying · 发表于 2003-9-17 17:52:00

你发的图根本说明不了什么，希望你提问时说清楚些，看别人的回复时也要看清楚些。
e2002说让你发图是另外说明的，主要还是让你把问题说明白，你为什么只看后一半，而不看前一半，就这么发一个图上来一点用都没有。

runkeji · 发表于 2003-9-17 18:28:00

今天晚上整理一下，明天发出

runkeji · 发表于 2003-9-18 08:56:00

一个画好的矩形，可能用直线工具画的，可以是矩形，也可能通过别的编辑命令得到。
怎样提取矩形的四个角点，他的长宽通过什么方法提取出来。

BDYCAD · 发表于 2003-9-18 09:23:00

不知你所說的是不是這個. 呵呵 ! 看看吧.
;;;提取矩形的長度和寬度程序.
;;;編寫日期2003-09-18
;;;編寫: BDYCAD
(DEFUN C:Y01()
  (princ "請選取一個矩形吧:")
  (SETQ A (entsel))
  (SETQ AS (car A)
      ac (ENTGET AS)
      AF (CDR (ASSOC 10 AD)))
  (setq n 0)
  (repeat (length ac)
(setq qend (nth n ac))
(if (= (car qend) 10)
   (setq one (cdr qend))
   (setq n (1+ n))))
  (setq tow (cdr (nth (+ n 4) ac)))
  (setq trhee (cdr (nth (+ n 8) ac)))
  (setq fou (cdr (nth (+ n 12) ac)))
  (SETQ XLENGTH (distance one tow)) ;; ; 這是矩形的長度
  (setq ylength (distance one fou)) ;; ; 這是矩形的寬度
  (princ "\n矩形的長度=" )(princ xlength)
  (princ "\n矩形的寬度=" )(princ ylength)
  (princ))
----------------------------------------------------------------
我愛CAD . 革命嘗未成功, 同志多多努力

lyy · 发表于 2003-9-18 09:33:00

问题是这矩形到底是什么对象或者都有可能？
line、*polyline、region、solid 、3dface、trace、shape等?

runkeji · 发表于 2003-9-18 09:49:00

最终转化为面域，面域能提取矩形的长宽吗？

[求助]请教各位老师

发表回复

精选推荐