664571221 发表于 2025-2-17 16:55:49

各位大神这句话可以改为选择cad视口范围吗，就是屏幕上cad的显示的黑色范围

(sssetfirst nil (ssget '((8 . "PM_AZ_GP_管道"))))这个是要手动选的(sssetfirst nil (ssget "A" '((8 . "PM_AZ_GP_管道")))) 这个是全图的，可以改为视口范围吗就是绘图区黑色视口的范围

e2002 发表于 2025-2-17 17:30:20

先获取当前视口的范围坐标值

xj6019 发表于 2025-2-17 19:18:07

(defun PM-duijiao (/ height width size middle)
(setq height (getvar "viewsize"))
(setq size (getvar "screensize"))
(setq middle (getvar "viewctr"))
(setq width (* height (/ (car size) (cadr size))))
(list      (list (- (car middle) (/ width 2.0))
                                                               (- (cadr middle) (/ height 2.0))
                                                       )
                (list (+ (car middle) (/ width 2.0))
                        (+ (cadr middle) (/ height 2.0))
                )
)
)
(sssetfirst nil (ssget "C" (car(PM-duijiao))(cadr(PM-duijiao)) '((8 . "PM_AZ_GP_管道"))))

664571221 发表于 2025-2-18 09:07:45

xj6019 发表于 2025-2-17 19:18
(defun PM-duijiao (/ height width size middle)
(setq height (getvar "viewsize"))
(setq size (g ...

谢谢陌路.....

dingtiedt 发表于 2025-2-18 22:52:26

此“视口”非彼“视口”，一个是view(s)，一个是viewport，都叫“视口”，有时真分不清

664571221 发表于 2025-2-19 09:04:17

dingtiedt 发表于 2025-2-18 22:52
此“视口”非彼“视口”，一个是view(s)，一个是viewport，都叫“视口”，有时真分不清

谢谢兄弟的回复.....
页: [1]
查看完整版本: 各位大神这句话可以改为选择cad视口范围吗，就是屏幕上cad的显示的黑色范围