请教一个问题：选择当前可见范围内的所有东西 该怎么写

669423907

请教一个问题：
选择当前可见范围内的所有东西 该怎么写。
我想用这个程序来切换到不同的地方，这样就不用反复的用鼠标缩放了

Andyhon

已有一个选择集 sk
(command "Select" sk "")
(setq SS (ssget "p" '((8 . "名称1,图号2,数量3,材质4"))))

Andyhon

请参考
https://groups.google.com/forum/ ... Nsof90/SyecyxS1h7QJ
ZoomPts

669423907

Andyhon 发表于 2013-5-24 16:13
请参考
https://groups.google.com/forum/#!msg/alt.answers/ybi87Nsof90/SyecyxS1h7QJ
ZoomPts

打不开啊，长老。

Andyhon

那您就直接以 Key Word "Defun ZoomPts" 搜索呗

669423907

太深奥了............

669423907

Andyhon 发表于 2013-5-24 19:49
那您就直接以 Key Word "Defun ZoomPts" 搜索呗

;（hbllw 2010-11-6）
(defun c:1S( / $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)))


向长老请教一个关于选择集的问题不知道方不方便？：


已有一个选择集 sk，

我想从选择集 sk 中抽取 "名称1,图号2,数量3,材质4"

图层作为一个新的选择集 sk1


这个该怎么写呢？谢谢

Andyhon

是有一字串 "名称1,图号2,数量3,材质4" ???
是有一图层 "名称1,图号2,数量3,材质4" ???
or

669423907

Andyhon 发表于 2013-5-25 14:43
是有一字串 "名称1,图号2,数量3,材质4" ???
是有一图层 "名称1,图号2,数量3,材质4" ???
or   ...

是图层名，(setq SS (ssget'((8 . "名称1,图号2,数量3,材质4")))),

669423907

Andyhon 发表于 2013-5-25 17:59
已有一个选择集 sk
(command "Select" sk "")
(setq SS (ssget "p" '((8 . "名称1,图号2,数量3,材质4"))) ...

非常感谢长老是帮助