求大神帮忙解决相同矩形编号问题

那个猎人

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

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

edata

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

那个猎人

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

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

xyp1964

;; 正邪全认

那个猎人

xyp1964 发表于 2014-5-15 13:06
;; 正邪全认

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

xyp1964

2. ;; (XYP-GET-VERTEXS (setq s1 (car (entsel "\n选择: "))))
   
3. (defun XYP-GET-VERTEXS (s1 / lst ptn x y)
   
4.   (setq lst (vlax-get (vlax-ename->vla-object s1) 'Coordinates)
   
5.         ptn '()
   
6.   )
   
7.   (while lst
   
8.     (setq x (car lst)
   
9.           lst (cdr lst)
   
10.           y   (car lst)
    
11.           lst (cdr lst)
    
12.           ptn (cons (list x y) ptn)
    
13.     )
    
14.   )
    
15.   (reverse ptn)
    
16. )

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

fan_zh

院长出手，一个顶十

feng83

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

834798417

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

香田里浪人

edata 发表于 2014-5-14 09:47

美中不足是倾斜矩形不能辨认。