aegisfang 发表于 2008-11-19 15:00:00

[求助]怎样对多个对象实现对单一对象的先执行后选择的vlx命令

<p>我有几个vlx的命令，但这些命令都是对单一对象的先执行后选择命令，并且需要对多个对象实现这些命令，我该怎么办？</p><p>谢谢指点</p>

liu_kunlun 发表于 2008-11-19 15:59:00

本帖最后由 作者 于 2008-11-19 16:01:32 编辑 <br /><br /> ;;一次选择执行方式<br/>(defun c:multyourvlxcommand (/ ss s1 n)<br/>&nbsp; (setq n -1 ss (ssget))<br/>&nbsp; (if ss<br/>&nbsp;&nbsp;&nbsp; (repeat (sslength ss)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq s1 (ssadd (ssname ss (setq n (+ n 1))) (ssadd)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (sssetfirst nil s1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (c:yourvlxcommand)<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (princ)<br/>)<br/>;;逐一选择执行方式<br/>(defun c:multyourvlxcommand (/ ss&nbsp;ent s1)<br/>&nbsp; (while (setq ent (car (entsel)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq s1 (ssadd ent (ssadd)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (sssetfirst nil s1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (c:yourvlxcommand)&nbsp;&nbsp; <br/>&nbsp; )<br/>&nbsp; (princ)<br/>)&nbsp;
页: [1]
查看完整版本: [求助]怎样对多个对象实现对单一对象的先执行后选择的vlx命令