怎么加颜色

lxqun · 发表于 2004-3-5 17:24:00

在lisp里调用(command)画图，怎么给图上个颜色呢，比如我用（command 'arc' ....)画一道弧，能不能把弧和它的圆心都加个颜色

meflying · 发表于 2004-3-5 17:45:00

画完一个对象后，(setcolor (entlast) 1) (defun setcolor(sname color / sinf)
(setq sinf (entget sname))
(if (assoc 62 sinf)
(setq sinf (subst (cons 62 color) (assoc 62 sinf) sinf))
(setq sinf (append sinf (list (cons 62 color))))
)
(entmod sinf)
)

ljcgq · 发表于 2004-3-5 19:29:00

(DEFUN C:cv( / )

(setq ss (ssget ) )
(setq cl (getint "请输入要改变的颜色1.红的2.黄色3.绿色4.青色7.白色"))

(SETQ N (SSLENGTH SS))
(SETQ A (- N 1))
(REPEAT N

(setq name(ssname ss A))

(command "change" name "" "p" "c" cl "")

(SETQ A (- A 1))
)
)

lxqun · 发表于 2004-3-11 15:59:00

这几天真郁闷，装了个防火墙，禁止了广告，结果我居然不能发帖子了，老说出错，连qq都上不了。把禁止广告去掉看行不行。

谢谢各位的回帖，只是我想再问一下，现在我画的圆弧能变色，但圆心那一点呢，也能让它变色吗？

再顺便问个问题，在autolisp中，编写对话框会否不方便，麻烦。

lxqun · 发表于 2004-3-11 16:05:00

刚才网页死了，居然还发成功了，呵呵

meflying · 发表于 2004-3-11 19:35:00

圆心那点？画一个圆弧，圆心是没有点的，如果你自己加的点，同样可以使用2楼或3楼的程序

lxqun · 发表于 2004-3-11 20:47:00

哦，是这样，谢谢

账号		自动登录	找回密码
密码			注册