如何将选择集选择为可视窗口内的实体

kizj · 发表于 2013-8-2 18:36

RT,请各位大师指点一二。

自贡黄明儒 · 发表于 2013-8-2 21:27

(command "zoom" "O" ss "")好像是这样

lsjj · 发表于 2013-8-2 21:48

本帖最后由 lsjj 于 2013-8-2 21:50 编辑

樓上的朋友倒因為果了

669423907 · 发表于 2013-8-2 21:52

;可见区域重生成（hbllw 2010-11-6）
(defun c:re( / $screen atio ce ch ch2 hh hh2 k p1 p2 ss)
(setq $screen (getvar "SCREENSIZE"))
(setq ch (getvar "viewsize"))
(setq ch2 (/ ch 2)) (setq ce (getvar "viewctr"))
(setq atio (/ (car $screen) (cadr $screen)))
(setq hh (* atio ch))
(setq hh2 (/ hh 2))
(setq p1 (polar (polar ce 0 hh2)
(* 1.5 pi) ch2))
(setq p2 (polar (polar ce pi hh2)
(* 0.5 pi) ch2))
(setq SK (ssget "C" p1 p2))
(setq k -1)
(if (> (sslength SK) 0)
(repeat (sslength SK)
(entupd (ssname SK (setq k (1+ k))))))

;(command "要执行的命令" SK "")

(princ))

ZZXXQQ · 发表于 2013-8-3 08:19

(defun c:rr ()
(if (setq ss i -1 (ssget "c" (getvar "EXTMIN") (getvar "EXTMAX")))
(repeat (sslength ss) (entupd (ssname ss (setq i (1+ i)))))
)
(princ)
)

kizj · 发表于 2013-8-3 10:38

自贡黄明儒发表于 2013-8-2 21:27
(command "zoom" "O" ss "")好像是这样

不是把选择实体最大化好吗

kizj · 发表于 2013-8-3 10:39

lsjj 发表于 2013-8-2 21:48
樓上的朋友倒因為果了

[em0]这位大师有何高招

kizj · 发表于 2013-8-3 10:40

669423907 发表于 2013-8-2 21:52
;可见区域重生成（hbllw 2010-11-6）
(defun c:re( / $screen atio ce ch ch2 hh hh2 k p1 p2 ss)
(setq ...

多谢啊，这个应该可以研究一下，

kizj · 发表于 2013-8-3 10:41

本帖最后由 kizj 于 2013-8-3 10:46 编辑

ZZXXQQ 发表于 2013-8-3 08:19

怎么用,2014显示未知命令

kizj · 发表于 2013-8-3 10:46

669423907 发表于 2013-8-2 21:52
;可见区域重生成（hbllw 2010-11-6）
(defun c:re( / $screen atio ce ch ch2 hh hh2 k p1 p2 ss)
(setq ...

2014显示未知命令

账号		自动登录	找回密码
密码			注册

[提问] 如何将选择集选择为可视窗口内的实体

相关帖子

点评

点评

点评