nayipiantian999 发表于 2023-5-23 17:31:55

如何分色显示

如何实现分色显示

vitalgg 发表于 2023-5-23 19:15:41

本帖最后由 vitalgg 于 2023-5-23 19:18 编辑

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

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

https://atlisp.cn/stable/list-rec-wxh/readme.mp4


aws 发表于 2023-5-23 19:37:58

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

nayipiantian999 发表于 2023-5-25 12:32:29

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

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

是横平竖直的矩形

nayipiantian999 发表于 2023-5-25 12:34:02

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

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

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

李钊伟2012 发表于 2023-5-25 12:54:57

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

vitalgg 发表于 2023-5-26 09:09:26

本帖最后由 vitalgg 于 2023-5-26 09:22 编辑

(defun c:at-rc ()
;; 选择矩形
(setq recs
         (vl-remove-if-not 'curve:rectanglep
            (pickset:to-list(ssget '((0 . "lwpolyline"))))))
(foreach rec recs
    (setq box (entity:getbox rec 0))
    (setq h (- (cadadr box) (cadar box)))
    (setq w (- (caadr box) (caar box)))
    (if (> w h)
      ;; 水平矩形为红色
      (entity:putdxf rec 62 1)
      ;; 竖向矩形为绿色
      (entity:putdxf rec 62 3)
    )
)
)
页: [1]
查看完整版本: 如何分色显示