关于选择屏幕外的对象（附图）

刘炎华

谢谢大师！原贴用的ssget“x“，图档大了就会卡，不知道有没有其它方法改善？

刘炎华

Andyhon 发表于 2020-9-17 08:36
少了需纳入考量的资讯...

且说或可先 Zoom 再选

谢谢！用zoom试了下，屏幕闪，用到标注还是不好

czb203

感谢楼主分享下载试试!

669423907

关于判断点是否在屏幕上，想到一个另类一点的方法，大师们帮看看准确性如何
(defun c:13()
(setq p1 (getpoint "\n 指定矩形第一点："))
(if (setq p2 (getcorner p1 "\n 指定矩形第二点："))
(P判断点在屏幕上 p1)
)
(if (P判断点在屏幕上 p1) (princ"\n点在屏幕上"))
)

(defun P判断点在屏幕上(pt)
(entmake (list '(0 . "point") (cons 10 pt)))
(if (not (nentselp pt)) (setq pt nil))
(vl-cmdf "_.erase"(ssadd (entlast) (ssadd))"")
pt)

tigcat

start4444 发表于 2020-9-16 11:03
看看这个函数对你有无帮助
;;当前视图屏幕角点坐标
(defun dt:viewport-getcoords (/ height width size  ...

众里寻他千百度

Wu_Enwu

感谢楼主分享下载试试!