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

vken7az2p

[[求助]：[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 "")
)

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

vken7az2p

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

不知道这样解释清楚吗?

 

 

 

alin

(defun c:sys12 ()
  (COMMAND "UCS" "W")
  (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 "")
  (COMMAND "UCS" "P")
)