请问如何删除选择集？

c3a139 · 发表于 2008-7-16 12:08:00

我建了一个选择集

(COMMAND "LINE" SLCPT "@365<90" "")
    (SETQ ELINE (ENTLAST))
    (SETQ SS1 (SSADD ELINE SS1))
    (SETQ I (1+ I))
)

现在想把选择集删除，用下面删除不了

(SETQ X 0)
(REPEAT (SSLENGTH SS1)
    (SETQ SS11 (SSNAME SS1 X))
    (SETQ SS (ENTDEL SS11))
    )

问题在哪？谢谢

sailorcwx · 发表于 2008-7-16 19:37:00

你的程序X没有递增，在反复的拿第一个图元洗涮
图元存在的时候，entdel会把它删除；图元不存在的时候，entdel会把它恢复

oyxx1023 · 发表于 2008-7-16 12:26:00

(command ".erase" ss1 "")

caoyin · 发表于 2008-7-16 13:00:00

command 无疑是最方便的方法，用ENTDEL写：

(REPEAT (setq x (SSLENGTH SS1))
(ENTDEL (ssname ss1 (setq x (1- x))))
)

c3a139 · 发表于 2008-7-16 16:38:00

谢谢两位，我上面写的怎么就不行呢？

byghbcx · 发表于 2008-7-16 16:59:00

(setq ss1 nil) 不行吗?

c3a139 · 发表于 2008-7-16 17:14:00

应该不行

sailorcwx · 发表于 2008-7-16 19:34:00

(SETQ SS (ENTDEL SS11))
后面再加一个(setq X (1+ X))

c3a139 · 发表于 2008-7-16 22:14:00

明白了，谢谢！

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