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

放羊去的

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

放羊去的

2. (defun c:pw-x2(/ p1 p2 p3 p4 p5 p6 p7 n x1 );
   
3.   (setq p1 (getpoint "\n请输入第一个点" ))
   
4.   (setq p2 (getpoint "\n请输入第二个点：" ))
   
5.   
   
6.   (setq x1(fix(abs(-(car p1)(car p2)))))
   
7.   (setq n(/ x1 400))
   
8.   (while (> n 0)
   
9.    
   
10.     (setq p3(list (+(car p1)(* n 400))(cadr p1)))
    
11.     (setq p4(list (car p3)(-(cadr p3) 65)))
    
12.     (setq p5(list (-(car p3) 400)(cadr p4)))
    
13.     (setq p6(list (car p5)(cadr p3)))
    
14.     (command "pline" p3 p4 p5 p6 "c")
    
15.     (setq p7(list (+(car p6) 200)(+(cadr p5) 32.5)))
    
16.     (command "text" "mc" p7 50 0 "这里的字体颜色怎么设置" "" "" "" )
    
17.     (setq n(- n 1))
    
18.     )
    
19.   (princ)
    
20. )

(defun c:pw-x2(/ p1 p2 p3 p4 p5 p6 p7 n x1 );<br />   (setq p1 (getpoint "\n请输入第一个点" ))<br />   (setq p2 (getpoint "\n请输入第二个点：" ))<br />   <br />   (setq x1(fix(abs(-(car p1)(car p2)))))<br />   (setq n(/ x1 400))<br />   (while (> n 0)<br />     <br />     (setq p3(list (+(car p1)(* n 400))(cadr p1)))<br />     (setq p4(list (car p3)(-(cadr p3) 65)))<br />     (setq p5(list (-(car p3) 400)(cadr p4)))<br />     (setq p6(list (car p5)(cadr p3)))<br />     (command "pline" p3 p4 p5 p6 "c")<br />     (setq p7(list (+(car p6) 200)(+(cadr p5) 32.5)))<br />     (command "text" "mc" p7 50 0 "这里的字体颜色怎么设置" "" "" "" )<br />     (setq n(- n 1))<br />     )<br />   (princ)<br /> )

ysq101

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

ZZXXQQ

2. (defun c:pw-x2(/ p1 p2 p3 p4 p5 p6 p7 n x1 );
   
3.   (setq p1 (getpoint "\n请输入第一个点" ))
   
4.   (setq p2 (getpoint "\n请输入第二个点：" ))
   
5.   (setq x1(fix(abs(-(car p1)(car p2)))))
   
6.   (setq n (/ x1 400))
   
7.   (while (> n 0)
   
8.     (setq p3(list (+(car p1)(* n 400))(cadr p1)))
   
9.     (setq p4(list (car p3)(-(cadr p3) 65)))
   
10.     (setq p5(list (-(car p3) 400)(cadr p4)))
    
11.     (setq p6(list (car p5)(cadr p3)))
    
12.     (command "pline" p3 p4 p5 p6 "c")
    
13.     (setq p7(list (+(car p6) 200)(+(cadr p5) 32.5)))
    
14.     (command "text" "mc" p7 50 0 "文字内容")
    
15.     (command "_CHPROP" "L" "" "C" 1 "");颜色号1
    
16.     (setq n(- n 1))
    
17.     )
    
18.   (princ)
    
19. )

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

放羊去的

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

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

lsjj

照著指令打一次不就知道了!