帮忙！！
不知道多边形有几个端点他的元素名称是：ss1怎么得到选择集是这个多边形围成的范围呢
根据选定对象创建选择集<BR>(ssget ] )
选择集中可以包含图纸空间和模型空间两个空间中的对象，但该选择集用于某操作时，那些在当前无效的空间中的对象会被 ssget 过滤掉。由 ssget 函数返回的选择集中仅包含主图元（不包含属性和多段线顶点）。
参数
sel-method
字符串，指定对象选择方法。有效选择方法包括：<BR>C 窗交。<BR><FONT color=#ff0000><b><U>CP 圈交（指定多段线内和与该多段线相交的所有对象</U></b></FONT>）。<BR>F 栏选。<BR>I 隐含窗口选择（在执行 PICKFIRST 期间选择的对象）。<BR>L 添加到数据库的最后一个可见对象。<BR>P 最后一个创建的选择集。<BR>W 窗口选择。<BR> 小弟比较笨，冷冲模大侠让你见笑了，还是厚着脸皮问：意思是说就算不知道
这个多边形有多少个端点也一样可以由选择集(ssetq ss "x" "w" ???)选中由这个多边形所
围成的所实体？ 试试看行不
(defun c:hh (/ ed10-list ss ed n ed10 ss1)<BR> (setq ed10-list nil)<BR> (setq ss (entsel "\n请选择多边形:"))<BR> (if ss<BR> (progn<BR> (setq ed (entget (car ss)))<BR> (setq n 0)<BR> (while (> (length ed) n)<BR> (setq ed10 (nth n ed))<BR> (if (= (car ed10) 10)<BR> (setq ed10-list (append (list (cdr ed10)) ed10-list))<BR> )<BR> (setq n (1+ n))<BR> )<BR> )<BR> )<BR> (setq ss1 (ssget "cp" ed10-list))<BR> <FONT color=#ff0000><b><U>(command "_.MOVE" ss1 "" pause)<BR></U></b></FONT> (princ)<BR>)
程序的最后是移动选择的物体.
我要的就是这样的效果，令弧冲大侠，你的招数可真多，何日才能与君同起同坐!!!谢了! 冷冲模变成了令弧冲? 呵呵。。。。我可是故意的，这名适合他，可别说我没有诚意!!!有机会我会在这里找一个任盈盈。 (setq pt '( 520 520))
(setq pt1 '(110 120))
(setq s ( getdist pt pt1))
这样是不行的!!!能否不在键盘上输入，或者不用在屏幕上拾取呢来实现呢？ 取这两点的这样做
<TABLE class=tablebody2 style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" width="90%" border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 9pt; LINE-HEIGHT: 12pt" width="100%">
<IMG alt=发贴心情 src="http://www.mjtd.com/bbs/skins/default/topicface/face1.gif" border=0> <B></B><BR>(setq pt '(520 520 ))
(setq pt1 '(110 120))
(setq s (distance pt pt1))
</TD></TR></TBODY></TABLE> 梁旭武发表于2004-8-23 13:51:00static/image/common/back.gif呵呵。。。。我可是故意的，这名适合他，可别说我没有诚意!!!有机会我会在这里找一个任盈盈。
<BR>晕倒,这适合你吧,你漫漫找任盈盈吧.
页:
[1]
2