社区 › VBA/VB/ActiveX/API 编程技术 › 选择集的问题

ugl 发表于 2012-10-31 18:06:40

选择集的问题

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

wuqiu1986 发表于 2012-11-4 16:07:43

我也想，好像还没找到

zkyzzy 发表于 2012-11-7 02:44:06

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

ugl 发表于 2012-11-22 22:18:59

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

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

nedy001 发表于 2014-7-13 11:10:11

(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")
)
这个程序在明经一个帖子看到的，按上面所说能不能选择后继续下步操作，复制或者移动！

查看完整版本: 选择集的问题