autocad 2009许可证持有人 实际上我在这里遇到了一个问题。在我的2012年，它与那些VLA方法配合得非常好，但当我使用entmod时，什么都没有发生。查看此命令调用是否适用于您的：
只需更换另一个c:PLCOLOR defun。 (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))
仍然不起作用。
为了更好地理解，我附上了正在测试的文件。
cadforum_测试。图纸 也许 吧：
3
-大卫 大卫，
坦克的帮助。
在“基本目标”中，效果完美。
然而，在选择中，我希望除了LWpolyline之外，还可以考虑线条 以下是另一个变体：
指定代码顶部的颜色范围（颜色必须在1-255（包括1-255）之间，cmin不能等于cmax）。
不是没有很多工作。我会在打电话之前试着把台词删掉-大卫 李，谢谢你的帮助。
它也可以完美地工作。
设置颜色范围的选项同样有趣。
正如我在《大卫密码》中所说的那样，扩展选择线也很有趣。
坦克！
直线不是平面对象，因此不定义高程。正如David所建议的那样，我将使用PEDIT命令将任何直线转换为LWDPolyline，并选择将具有重合端点的直线连接起来，以形成连续的平面LWDPolyline。 李和大卫。
我感谢你的解释。
然而，你的工作现在符合我的需要。
感谢您的可用性和兴趣。
储罐也连接至irneb。
页:
1
[2]