放羊去的 发表于 2014-8-15 17:22:16

刚开始学习lisp，文字的颜色怎么设置啊？

本帖最后由 放羊去的 于 2014-8-15 17:25 编辑

刚开始学习lisp，代码贴在二楼，菜鸟求助！

放羊去的 发表于 2014-8-15 17:23:35

(defun c:pw-x2(/ p1 p2 p3 p4 p5 p6 p7 n x1 );
(setq p1 (getpoint "\n请输入第一个点" ))
(setq p2 (getpoint "\n请输入第二个点：" ))

(setq x1(fix(abs(-(car p1)(car p2)))))
(setq n(/ x1 400))
(while (> n 0)
   
    (setq p3(list (+(car p1)(* n 400))(cadr p1)))
    (setq p4(list (car p3)(-(cadr p3) 65)))
    (setq p5(list (-(car p3) 400)(cadr p4)))
    (setq p6(list (car p5)(cadr p3)))
    (command "pline" p3 p4 p5 p6 "c")
    (setq p7(list (+(car p6) 200)(+(cadr p5) 32.5)))
    (command "text" "mc" p7 50 0 "这里的字体颜色怎么设置" "" "" "" )
    (setq n(- n 1))
    )
(princ)
)

ysq101 发表于 2014-8-15 17:39:13

你可以用ENTMAKE来生成文字
这样就更好地用变量来控制了

ZZXXQQ 发表于 2014-8-15 19:53:07

(defun c:pw-x2(/ p1 p2 p3 p4 p5 p6 p7 n x1 );
(setq p1 (getpoint "\n请输入第一个点" ))
(setq p2 (getpoint "\n请输入第二个点：" ))
(setq x1(fix(abs(-(car p1)(car p2)))))
(setq n (/ x1 400))
(while (> n 0)
    (setq p3(list (+(car p1)(* n 400))(cadr p1)))
    (setq p4(list (car p3)(-(cadr p3) 65)))
    (setq p5(list (-(car p3) 400)(cadr p4)))
    (setq p6(list (car p5)(cadr p3)))
    (command "pline" p3 p4 p5 p6 "c")
    (setq p7(list (+(car p6) 200)(+(cadr p5) 32.5)))
    (command "text" "mc" p7 50 0 "文字内容")
    (command "_CHPROP" "L" "" "C" 1 "");颜色号1
    (setq n(- n 1))
    )
(princ)
)

放羊去的 发表于 2014-8-16 08:17:41

本帖最后由 放羊去的 于 2014-8-16 08:22 编辑

ZZXXQQ 发表于 2014-8-15 19:53 static/image/common/back.gif

多谢“ZZXXQQ”版主！！想问一下这个是怎么实现给文字改变颜色的？加颜色的那一行代码是什么意思，完整的用法是怎么样的呢？

lsjj 发表于 2014-8-16 10:13:30

照著指令打一次不就知道了!
页: [1]
查看完整版本: 刚开始学习lisp，文字的颜色怎么设置啊？