如何遍历选择集?急!

andyamy · 发表于 2005-7-31 17:42

如何遍历选择集?依次打印出选择中的每个元素?

xiaomihu · 发表于 2005-8-1 09:35

(setq sset (ssget))

(setq num (sslength sset))
(repeat num
(setq ent (ssname sset ct))

…………

）

sieben · 发表于 2005-8-2 10:47

(setq sset (ssget))

(setq num (sslength sset))
(repeat num
(setq ent (ssname sset ct))

(setq ct (1+ ct))

…………

）

yedajiang · 发表于 2005-8-19 13:26

看来这里也有一些LISP的高手。

HuaiYu · 发表于 2005-8-19 18:45

(vl-load-com)
(setq *AcadDocument* (Vla-Get-ActiveDocument (Vlax-Get-Acad-Object)))
(if (ssget)
    (progn
      (setq ss (Vla-Get-ActiveSelectionset *AcadDocument*))
      (vlax-for en ss
(princ (strcat "\n" (Vla-Get-ObjectName en))) ;;en为 vla 对象
...........
)
    )
)

cexoss2349 · 发表于 2005-8-20 18:41

(setq st (ssget))

(if(/= st nil)

(progn

(setq ct (sslength st))

(while (> ct 0)

(setq ct(- ct 1)

la (ssname st ct)

)

.........

)

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