[[求助]：[0214]请问如何获取CAD绘图区范围的尺寸座标.

xyz518mm · 发表于 2006-2-14 21:28:03

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

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

×

[[求助]：[0214]请问如何获取CAD绘图区范围的尺寸座标.

小弟看了吴老师书有各范例
是取得绘图区范围的尺寸座标
但是在ucs画面下
却会出现问题,
请问该程序该怎样改良呢?
附上程序
(defun c:sys12()
  (setq cp (trans (getvar "viewctr") 1 2))
  (setq pt1 (trans (getvar "vsmin") 1 2))
  (setq pt2 (trans (getvar "vsmax") 1 2))
  (setq xscl (- (car pt2) (car pt1)))
  (setq yscl (- (cadr pt2) (cadr pt1)))
  (setq sh (getvar "viewsize"))
  (setq sw (* sh (/ xscl yscl)))
  (setq p1 (list (- (car cp) (* 0.5 sw)) (- (cadr cp) (* 0.5 sh))))
  (setq p3 (list (+ (car cp) (* 0.5 sw)) (+ (cadr cp) (* 0.5 sh))))
  (setq p2 (list (car p3) (cadr p1)))
  (setq p4 (list (car p1) (cadr p3)))
  (command "pline" p1 "w" 1 1 p2 p3 p4 "c")
  (command "chprop" (entlast) "" "c" 1 "")
)

以上问题烦请各位帮忙解答一下
谢谢~

xyp1964 · 发表于 2006-2-14 22:06:15

有何问题？

[FONT=courier new](defun c:test ()
(command "ucs" "")
(setq cp (trans (getvar "viewctr") 1 2)
pt1 (trans (getvar "vsmin") 1 2)
pt2 (trans (getvar "vsmax") 1 2)
sh (getvar "viewsize")
sw (* sh (/ (- (car pt2) (car pt1)) (- (cadr pt2) (cadr pt1))))
p1 (list (- (car cp) (* 0.5 sw)) (- (cadr cp) (* 0.5 sh)))
p3 (list (+ (car cp) (* 0.5 sw)) (+ (cadr cp) (* 0.5 sh)))
)
(command "rectang" p1 p3)
(command "chprop" (entlast) "" "c" 1 "")
(princ)
)[/FONT]

xyz518mm · 发表于 2006-2-14 22:24:29

我所说的ucs出错
不是要将画面转回"世界座标"
是说在 'ucs 座标' 的 '绘图区范围' 下
会出错~
请问该怎样处理呢?

xyp1964 · 发表于 2006-2-14 22:42:02

最初由 xyz518mm 发布
[B]我所说的ucs出错
不是要将画面转回"世界座标"
是说在 'ucs 座标' 的 '绘图区范围' 下
会出错~
请问该怎样处理呢? [/B]

没说清到底是什么问题？！

xyz518mm · 发表于 2006-2-14 23:27:30

问题在于
正常的座标系统,可以顺利定位做图区的两点
但在 ucs 时,则会出现问题

不知道这样解释清楚吗?

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

[求助] [[求助]：[0214]请问如何获取CAD绘图区范围的尺寸座标.

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

相关帖子