更改选择se的颜色
大家好！我正在寻找一个lisp例程，它可以帮助我解决这个问题：我需要创建一个命令，该命令可以在激活时更改allready现有选择集的颜色。例如，我有一个创建立方体的命令，其中每个特定的行组被添加到不同的选择集。所以我的问题是-我如何通过名称回忆任何创建的选择集并更改其颜色？ （定义C:cube_int（）
（setq bb（getpoint“\起始点：”）
（setq t1（getdist“\n立方体长度：”）
（setq k1x（汽车bb）
k1y（cadr bb）
k1z（caddr bb）
k1（列表k1x k1y k1z））
（setq k2x（+（汽车bb）t1）
k2y（cadr bb）
k2z（caddr bb）
k2（列表k2x k2y k2z））
（setq k3x（+（汽车bb）t1）
k3y（+（cadr bb）t1）
k3z（caddr bb）
k3（列表k3x k3y k3z））
（setq k4x（汽车bb）
k4y（+（cadr bb）t1）
k4z（caddr bb）
k4（列表k4x k4y k4z））
（setq k5x（汽车bb）
k5y（cadr bb）
k5z（+（caddr bb）t1）
k5（列表k5x k5y k5z））
（setq k7x（+（汽车bb）t1）
k7y（+（cadr bb）t1）
k7z（+（caddr bb）t1）
k7（列表k7x k7y k7z））
（setq k6x（+（汽车bb）t1）
k6y（cadr bb）
k6z（+（caddr bb）t1）
k6（列表k6x k6y k6z））
（setq k8x（汽车bb）
k8y（+（cadr bb）t1）
k8z（+（caddr bb）t1）
k8（列表k8x k8y k8z））
（setq HORFONT（ssadd））
（setq horprof（ssadd））
（setq前端（ssadd））
（命令“-LAYER”“m”“konturas”“s”“konturas”“c”“red”“”“lw”“0.25”“”“”
（命令行“k1 k2”）（ssadd（entlast）HORFONT）
（命令行“k5 k6”）（ssadd（entlast）HORFONT）
（命令行“k3 k4”）（ssadd（entlast）HORFONT）
（命令行“k7 k8”）（ssadd（entlast）HORFONT）
（命令行“k1 k4”）（ssadd（entlast）horprof）
（命令行“k5 k8”）（ssadd（entlast）horprof）
（命令行“k2 k3”）（ssadd（entlast）horprof）
（命令行“k6 k7”）（ssadd（entlast）horprof）
（命令行“k2 k6”）（ssadd（entlast）前端）
（命令行“k1 k5”）（ssadd（entlast）前端）
（命令行“k3 k7”）（ssadd（entlast）Profront）
（命令行“k4 k8”）（ssadd（entlast）Profront）
) ;代码结束
这是我用来绘制立方体的代码，我正在尝试创建一个单独的函数，它可以改变，例如，“horfront”集中所有线条的颜色。 您可以使用LISP深入研究对象的属性并在那里进行操作，但只使用命令会简单得多。试试这样的
(command "._-CH" horfront "" "P" "CO" newcolor "") 请阅读代码发布指南并编辑您的帖子，将代码包含在代码标签中。
页:
[1]