那个猎人 发表于 2014-5-15 10:30:36

edata 发表于 2014-5-15 10:01 static/image/common/back.gif
(setq i (sslength recs))开始的代码要放在判断是否是矩形(progn内。)

感谢大神指点，小弟初学，只是不知为啥要放在里面。在判断是否是矩形后，所有矩形的中心坐标和高宽数据已经存入两个数列，下面就是对数列进行处理，我放到外面并没有出现运行错误，也能够得到想要的结果。

edata 发表于 2014-5-15 11:22:49

你选个不是矩形的试试就知道结果了。
相对的。后面的程序需要运用到某个变量，那么要考虑前面变量是否存在。如果前面的判断不成立，那么相应的变量没有赋值计算，会造成后面程序因为变量为nil出错。

那个猎人 发表于 2014-5-15 12:18:31

edata 发表于 2014-5-15 11:22 static/image/common/back.gif
你选个不是矩形的试试就知道结果了。
相对的。后面的程序需要运用到某个变量，那么要考虑前面变量是否存在 ...

选非矩形也没问题，自动就过滤，没造成错误

xyp1964 发表于 2014-5-15 13:06:21

本帖最后由 xyp1964 于 2014-5-15 13:07 编辑

;; 正邪全认


那个猎人 发表于 2014-5-15 13:34:00

xyp1964 发表于 2014-5-15 13:06 static/image/common/back.gif
;; 正邪全认

版主大人，运行之后显示
"no function definition: XYP-SS2LIST"

xyp1964 发表于 2014-5-15 14:23:38

;; (XYP-GET-VERTEXS (setq s1 (car (entsel "\n选择: "))))
(defun XYP-GET-VERTEXS (s1 / lst ptn x y)
(setq lst (vlax-get (vlax-ename->vla-object s1) 'Coordinates)
        ptn '()
)
(while lst
    (setq x (car lst)
          lst (cdr lst)
          y   (car lst)
          lst (cdr lst)
          ptn (cons (list x y) ptn)
    )
)
(reverse ptn)
)

fan_zh 发表于 2014-5-16 10:58:46

院长出手，一个顶十

feng83 发表于 2014-5-20 21:33:25

不错的源码，辛苦了,新手向楼主学习一下~

834798417 发表于 2014-10-13 20:18:40

什么时候我也能像大师们这么厉害啊，太羡慕了

香田里浪人 发表于 2015-2-28 13:03:22

edata 发表于 2014-5-14 09:47 static/image/common/back.gif


美中不足是倾斜矩形不能辨认。
页: 1 [2] 3
查看完整版本: 求大神帮忙解决相同矩形编号问题