如何分色显示

nayipiantian999

如何实现分色显示

vitalgg

有规律就能实现，你这全是横平竖直的矩形吗？

视频后半部分是按不同的的矩形分色的，一种长宽一种颜色。

如果无法播放，请点击此处在新窗口打开

aws

问题来了，如果是竖着的101的图元，该是粉色，还是绿色呢

nayipiantian999

vitalgg 发表于 2023-5-23 19:15
有规律就能实现，你这全是横平竖直的矩形吗？

视频后半部分是按不同的的矩形分色的，一种长宽一种颜色。 ...

是横平竖直的矩形

nayipiantian999

vitalgg 发表于 2023-5-23 19:15
有规律就能实现，你这全是横平竖直的矩形吗？

视频后半部分是按不同的的矩形分色的，一种长宽一种颜色。 ...

横的矩形，一种色，竖的矩形一种色

李钊伟2012

简单得不行，你找到论坛代码，可以读取长宽，在cond

vitalgg

1. (defun c:at-rc ()
   
2.   ;; 选择矩形
   
3.   (setq recs
   
4.          (vl-remove-if-not 'curve:rectanglep
   
5.             (pickset:to-list(ssget '((0 . "lwpolyline"))))))
   
6.   (foreach rec recs
   
7.     (setq box (entity:getbox rec 0))
   
8.     (setq h (- (cadadr box) (cadar box)))
   
9.     (setq w (- (caadr box) (caar box)))
   
10.     (if (> w h)
    
11.       ;; 水平矩形为红色
    
12.       (entity:putdxf rec 62 1)
    
13.       ;; 竖向矩形为绿色
    
14.       (entity:putdxf rec 62 3)
    
15.     )
    
16.   )
    
17. )

(defun c:at-rc ()<br />   ;; 选择矩形<br />   (setq recs <br />          (vl-remove-if-not 'curve:rectanglep<br />             (pickset:to-list(ssget '((0 . "lwpolyline"))))))<br />   (foreach rec recs <br />     (setq box (entity:getbox rec 0))<br />     (setq h (- (cadadr box) (cadar box)))<br />     (setq w (- (caadr box) (caar box)))<br />     (if (> w h)<br />       ;; 水平矩形为红色<br />       (entity:putdxf rec 62 1)<br />       ;; 竖向矩形为绿色<br />       (entity:putdxf rec 62 3)<br />     )<br />   )<br /> )