选择集的问题

ugl

请教如何将在程序中选择的对象返回到CAD中？即在程序中选择的对象在程序运行完毕后仍然保持选择状态，以便在CAD中直接用于复制，移动等编辑,没有发现有相应的办法？

wuqiu1986

我也想，好像还没找到

zkyzzy

(sssetfirst nil nil)
(sssetfirst nil ABC)
ABC为你的选择集，即将你的选择集内的对象都选中

ugl

zkyzzy 发表于 2012-11-7 02:44
(sssetfirst nil nil)
(sssetfirst nil ABC)
ABC为你的选择集，即将你的选择集内的对象都选中

厉害,感谢!果然还是LISP强大,就是感觉有点难,习惯了VBA的语法,怎么看都觉得LISP别扭

nedy001

(defun c:test ( / end i lineobj num plst start)
  (vl-load-com)
  (setq lineObj (vlax-ename->vla-object (car (entsel "the polyline")))
        start (vlax-curve-getStartParam lineObj)
        end (vlax-curve-getEndParam lineObj)
        i 0
  )
  (while (< i (setq num 100))
    (setq plst (append
                 plst
                 (list (vlax-curve-getPointAtParam lineObj
                                                               (* i
                                                                  (/
                                                                     (- end start)
                                                                     num
                                                                  )
                                                               )
                                   )
                       
                 )
               )
          i (1+ i)
    )
  )
  (ssget "WP" plst)
  (command "select" "p")
)
这个程序在明经一个帖子看到的，按上面所说能不能选择后继续下步操作，复制或者移动！