按颜色划分的海拔高度-半对称

teknomatika · 发表于 2022-7-6 08:04:47

autocad 2009许可证持有人

irneb · 发表于 2022-7-6 08:06:43

实际上我在这里遇到了一个问题。在我的2012年，它与那些VLA方法配合得非常好，但当我使用entmod时，什么都没有发生。查看此命令调用是否适用于您的：
只需更换另一个c:PLCOLOR defun。

teknomatika · 发表于 2022-7-6 08:10:20

(vl-load-com)
(setq *PLColor:ACI_Range* '(10 . 199)
     *PLColor:Z_Range* '(0.0 . 100.0))
(defun PLColour:CalcColour (elevation / z aci)
 (setq z (- (cdr *PLColor:Z_Range*) (car *PLColor:Z_Range*) -1.0)
       z (/ (rem elevation z) z))
 (+ (car *PLColor:ACI_Range*) (fix (* (- (cdr *PLColor:ACI_Range*) (car *PLColor:ACI_Range*)) z))))
(defun c:PLColour  (/ ss n ed z eList minZ maxZ)
 (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
   (progn (setq minZ 1.7976931348623158e308
                maxZ -1.7976931348623158e308)
          (repeat (setq n (sslength ss))
            (setq eList (cons (setq ed (entget (ssname ss (setq n (1- n))))) eList)
                  z (cond ((cdr (assoc 38 ed))) (0.0))
                  minZ  (min z minZ)
                  maxZ  (max z maxZ)))
          (setq *PLColor:Z_Range* (cons minZ maxZ))
          (foreach ed eList
            (setq z (cond ((cdr (assoc 38 ed))) (0.0)))
            (entmod (list (assoc -1 ed) (cons 62 (PLColour:CalcColour z)))))))
 (princ))