选择集复制的问题

kqqt6236 · 发表于 2013-6-5 19:08:24

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

×

有0、1、2这三个图层，我想用选择集把这三个图层的实体分别复制出来，程式如下，但是很奇怪，如果被复制的实体在视窗范围内，程式没有问题，但是超过视窗范围，程式就有问题。请问是什么问题？怎样才能在被复制的实体超过视窗外还能复制？

(defun C:TT()
(setq pt1 (getpoint "\n第一角点:"))
(setq pt2 (getcorner pt1 "\n第二角点:"))
(setq ss0 (ssget "w" pt1 pt2 (list (cons 0 "lwpolyline,line,circle") (cons 8 "0"))))
(command ".copy" ss0 "" pt1 pause)
(setq ss1 (ssget "w" pt1 pt2 (list (cons 0 "lwpolyline,line,circle") (cons 8 "1"))))
(command ".copy" ss1 "" pt1 pause)
(setq ss2 (ssget "w" pt1 pt2 (list (cons 0 "lwpolyline,line,circle") (cons 8 "2"))))
(command ".copy" ss2 "" pt1 pause)
(princ)
)

Lispboy · 发表于 2013-6-5 19:28:28

AUTOLISP的函数SSGET 除了 “X" 可以选取所有实体外，其他的”w" "wp" "cp" "f" .....都只能选取到屏幕内的实体。

解决办法，你选取边线后，先ZOOM 对象到屏幕内，把这个选择集或者对象完全显示到屏幕内，然后在用ssget "w" 等方法选它内部的实体。

sicky111 · 发表于 2013-6-5 20:16:57

调整一下位置即可，请自行测试。修改如下：

(defun C:TT()
(setq pt1 (getpoint "\n第一角点:"))
(setq pt2 (getcorner pt1 "\n第二角点:"))
(setq ss0 (ssget "w" pt1 pt2 (list (cons 0 "lwpolyline,line,circle") (cons 8 "0"))))
(setq ss1 (ssget "w" pt1 pt2 (list (cons 0 "lwpolyline,line,circle") (cons 8 "1"))))
(setq ss2 (ssget "w" pt1 pt2 (list (cons 0 "lwpolyline,line,circle") (cons 8 "2"))))
(command ".copy" ss0 "" pt1 pause)
(command ".copy" ss1 "" pt1 pause)
(command ".copy" ss2 "" pt1 pause)
(princ)
)

kqqt6236 · 发表于 2013-6-5 21:31:42

谢谢两位大哥，问题已解决。

pengfei2010 · 发表于 2013-6-11 14:35:55

sicky111 发表于 2013-6-5 20:16
调整一下位置即可，请自行测试。修改如下：

充分说明细节决定成败，以前也遇到过，这样调整位置是很好的做法

grs432 · 发表于 2014-11-5 12:22:00

这个总结不错呀！！

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

[求助] 选择集复制的问题