CAD里面如何创建一个选择集，使其包含全部落入窗口
3个回答
展开全部
(defun $Vport ( / A B C D X )
(setq B (getvar "VIEWSIZE") A (* B (/ (car (getvar "SCREENSIZE")) (cadr (getvar "SCREENSIZE")))))
(setq X (trans (getvar "VIEWCTR") 1 2) C (trans (list (- (car X) (/ A 2.0)) (+ (cadr X) (/ B 2.0))) 2 1))
(setq D (trans (list (+ (car X) (/ A 2.0)) (- (cadr X) (/ B 2.0))) 2 1))
(list C D)
)
(setq &ss1 ($Vport))
(setq &kw1 (ssget "c" (car &ss1) (cadr &ss1)));选择窗口对象
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
