vsmax vsmin

[hanhphuc]

Hi me again..

This snippet used for ssget "C" or "W" (crossing/window)

(defun c:test (/ l x y) 

(setq l (mapcar '(lambda (x)
                           (setq x (getvar x))
                     (if
                       (listp x)
                       (trans x 1 2)
                       x
                     )
                   )
                  '(viewsize viewctr vsmax vsmin)
          )
        x (* 0.5
             (car l)
             (apply '/
                    (vl-remove 0.0 (apply 'mapcar (cons '- (cddr l))))
             )
          )
        y (* (car l) 0.5)

  )
  
  (entmakex
  (cons
    '(0 . "LINE")
    (mapcar
      '(lambda (f i)
	 (cons
	   i
	   (mapcar '(lambda (a b c) ((eval a) b c)) f (cadr l) (list x y))
	 )
       )
      '((- -) (+ +))
      '(10 11)
    )
  )
 )
(princ)
)

 

entmake line for visibility showing 2 corners connected.

it should look like screenshot (ps or ms) 

Autocad has no issue

can you report your vsmin vsmax in new dwg or any dwg (Bricscad)?

 

thanks!