请问如何判断直线的两个端点都在屏幕上？

669423907

请问如何判断直线的两个端点都在屏幕上？

Andyhon

;; 如果p1 p2 都在屏幕内,则
(cond
((and
   (ssget p1 '((0 . "LINE")))
   (ssget p1 '((0 . "LINE")))
  )
  (command "dimlinear" p1 p2 "\\")
)
(T
  ;;否则
  (while (not (setq oo (getpoint o"\n请指定标注第二点: "))))
  (command "dimlinear" o oo pause)
))

Andyhon

Command: L
LINE Specify first point: 0,0

Specify next point or [Undo]: 2,2

Specify next point or [Undo]:

Command: '_zoom
Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window/Object] <real time>: _w
Specify first corner: Specify opposite corner:
===>使该线端点屏幕外

Command: (ssget '(0 0))
nil

Command: (ssget '(2 2))
nil

669423907

Andyhon 发表于 2018-6-10 18:52
Command: L
LINE Specify first point: 0,0

看得不是很懂，不能用 zoom 吧？我是要：
(setq o(getpoint"\n请点选直线："))
(setq ss(ssget"c"o o))
然后判断直线 ss 的两个端点是否都在当前屏幕可见的范围之内

Andyhon

重点不在zoom...
如上例当 LINE 的两端点皆在屏幕外时
用以 ssget 作选取点返回 nil

elitefish

返回当前屏幕的左下角与右上角坐标，两点均在该范围内就算在屏幕上，函数在下贴

elitefish

2. (defun EF:View-Vport (
   
3.                       /
   
4.                       VSMax VSMin ViewCTR
   
5.                       fHeight fWidth fScale
   
6.                       )  
   
7.   (setq VSMax (getvar 'VSMAX))
   
8.   (setq VSMin (getvar 'VSMIN))
   
9.   
   
10.   (setq VIEWCTR (getvar 'VIEWCTR))
    
11.   
    
12.   (setq fHeight (- (cadr VSMax) (cadr VSMin)))
    
13.   (setq fWidth (- (car VSMax) (car VSMin)))
    
14.   (setq fScale (/ fWidth fHeight))
    
15.   
    
16.   (setq fHeight (getvar 'VIEWSIZE))
    
17.   (setq fWidth (* fHeight fScale))
    
18. 
    
19.   (setq VSMin (mapcar '- ViewCTR (list (/ fWidth 2) (/ fHeight 2) 0)))
    
20.   (setq VSMax (mapcar '+ ViewCTR (list (/ fWidth 2) (/ fHeight 2) 0)))
    
21.   (list VSMin VSMax)
    
22.   )

(defun EF:View-Vport (<br />                       /<br />                       VSMax VSMin ViewCTR<br />                       fHeight fWidth fScale<br />                       )  <br />   (setq VSMax (getvar 'VSMAX))<br />   (setq VSMin (getvar 'VSMIN))<br />   <br />   (setq VIEWCTR (getvar 'VIEWCTR))<br />   <br />   (setq fHeight (- (cadr VSMax) (cadr VSMin)))<br />   (setq fWidth (- (car VSMax) (car VSMin)))<br />   (setq fScale (/ fWidth fHeight))<br />   <br />   (setq fHeight (getvar 'VIEWSIZE))<br />   (setq fWidth (* fHeight fScale))<br /> <br />   (setq VSMin (mapcar '- ViewCTR (list (/ fWidth 2) (/ fHeight 2) 0)))<br />   (setq VSMax (mapcar '+ ViewCTR (list (/ fWidth 2) (/ fHeight 2) 0)))<br />   (list VSMin VSMax)<br />   )

669423907

唉，还是看不懂，，，

Andyhon

那儿卡了? 请拿您的 实地图面(*.dwg)来说事...

Gu_xl

1. ;;gxl-Sys-GetScreenCoords 取得当前绘图区屏幕的左下角和右上角的坐标
   
2. ;;返回：((x1 y1 z1)  (x2 y2 z2))
   
3. (defun gxl-Sys-GetScreenCoords (/ c03 c08 c04 c05 c07 c06 c09 c01 c02)
   
4.   (setq        c03 (getvar "viewctr")
   
5.         c03 (trans c03 1 2)
   
6.         c08 (getvar "viewsize")
   
7.         c04 (getvar "screensize")
   
8.         c07 (car c04)
   
9.         c06 (cadr c04)
   
10.         c09 (/ (* c08 c07) c06)
    
11.         c01 (list (- (car c03) (* 0.5 c09)) (- (cadr c03) (* 0.5 c08)))
    
12.         c02 (list (+ (car c03) (* 0.5 c09)) (+ (cadr c03) (* 0.5 c08)))
    
13.         c01 (trans c01 2 1)
    
14.         c02 (trans c02 2 1)
    
15.   )
    
16.   (list c01 c02)
    
17. )

;;gxl-Sys-GetScreenCoords 取得当前绘图区屏幕的左下角和右上角的坐标<br /> ;;返回：((x1 y1 z1)  (x2 y2 z2))<br /> (defun gxl-Sys-GetScreenCoords (/ c03 c08 c04 c05 c07 c06 c09 c01 c02)<br />   (setq        c03 (getvar "viewctr")<br />         c03 (trans c03 1 2)<br />         c08 (getvar "viewsize")<br />         c04 (getvar "screensize")<br />         c07 (car c04)<br />         c06 (cadr c04)<br />         c09 (/ (* c08 c07) c06)<br />         c01 (list (- (car c03) (* 0.5 c09)) (- (cadr c03) (* 0.5 c08)))<br />         c02 (list (+ (car c03) (* 0.5 c09)) (+ (cadr c03) (* 0.5 c08)))<br />         c01 (trans c01 2 1)<br />         c02 (trans c02 2 1)<br />   )<br />   (list c01 c02)<br /> )