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

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

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

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

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

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

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

樓上的朋友倒因為果了

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

;可见区域重生成（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:24

(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:52

自贡黄明儒 发表于 2013-8-2 21:27 static/image/common/back.gif
(command "zoom" "O" ss "")好像是这样

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

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

lsjj 发表于 2013-8-2 21:48 static/image/common/back.gif
樓上的朋友倒因為果了

这位大师有何高招

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

669423907 发表于 2013-8-2 21:52 static/image/common/back.gif
;可见区域重生成（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:31

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

ZZXXQQ 发表于 2013-8-3 08:19 static/image/common/back.gif

怎么用,2014显示未知命令

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

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

2014显示未知命令
页: [1]
查看完整版本: 如何将选择集选择为可视窗口内的实体