[求助]：请进, 求助

yin_12345678 · 发表于 2008-2-9 14:45:40

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(setq ss (ssget))
(command "copy" ss "" (list 0 2 0) (list 55 52 0) )

zxq0220 · 发表于 2008-2-10 13:48:24

(setq ss (ssget))
(setq s1 (entlast) s2 (ssadd))
(command "copy" ss "" (list 0 2 0) (list 55 52 0) )
(while (setq s1 (entnext s1)) (setq s2 (ssadd s1 s2)))

yin_12345678 · 发表于 2008-2-10 13:57:08

多谢,再来一问
当(setq OX (ssget ))进行选择时，不想选了，想执行line, 请问如何设置开关
如下:(意思是将entsel改成ssget)
(initget "R")
(setq en (entsel "\n请选择物件[画直线(R)]:"))
(cond ((= en "R")(command "line")))

as-4245 · 发表于 2008-2-14 23:49:06

(setq ss (ssget))
(setq s1 (entlast) s2 (ssadd))
(command "copy" ss "" (list 0 2 0) (list 55 52 0) )
(while (setq s1 (entnext s1)) (setq s2 (ssadd s1 s2)))

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

[求助] [求助]：请进, 求助

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子