一个选择问题

行雲

Lisphk 发表于 2016-12-23 21:43

谢谢你，程序没改成

行雲

newer 发表于 2016-12-23 17:39

版主好，想请教你另外一个问题
(if (< cd jc)
     (setvar "cecolor" 3);;;当cd<jc时，给cd定义一个颜色属性，怎么定义
)

newer

行雲 发表于 2016-12-24 00:28

从你代码看，CD是一个整数， 怎么能给整数定义一个颜色？你是想给实体，或者层定义颜色？

(setvar "cecolor" "3") 是设置系统变量，然后以后新生成的实体默认使用这个颜色。注意，值是字符串，不是整数。

这个相当于在CAD窗口

newer

行雲 发表于 2016-12-24 00:28

多看帮助文件


AutoCAD 2008 命令参考 > 系统变量 > 字母 C 开头的系统变量 > CECOLOR >
CECOLOR

[img][/img]

概念

[img][/img]

[img][/img]

操作步骤

[img][/img]

[img][/img]

快速参考

[img][/img]

类型:	字符串
保存位置:	图形
初始值:	BYLAYER（随层）

设置新对象的颜色。有效值包括随层、随块以及从 1 到 255 的整数。

真彩色的有效值是一个前面带有 RGB 的整数字符串，每个整数（1 到 255）之间用逗号分隔。真彩色设置的输入方式如下：
RGB:000,000,000。

行雲

newer 发表于 2016-12-24 00:43

这么详细的资料，非常感谢

上面表达不够充分，是这样
(if (< cd jc)
      (setvar "cecolor" 3);;;当cd<jc时，给cd定义一个颜色属性
)
然后列印(command "text" p "3"  "0"  cd)字符颜色依cd值变化而变化，当cd<jc时，字符颜色变更为3，当cd<jc不成立时，字符颜色不变

或者在(command "text" p "3"  "0"  cd)里面，给cd定义颜色属性可行否？

newer

行雲 发表于 2016-12-24 01:05

(command "text" p "3"  "0"  cd)， 你自己在命令行粘贴下，看能执行不？

p是点，"3"是字高，"0"是角度， 再接下来就是要写的字符串了， cd是什么？ 要设颜色，也不能在command的你写的位置。

例子：

(setq p (getpoint "\nPick Point:"))
(command "text" p "3" "0" "晓东CAD")
(command ".chprop" (entlast)  "" "c"  1 "")  ;;设置成红色

记住，command后面的参数，就是你在命令行交互时候需要输入的， 回车 用 ""

行雲

newer 发表于 2016-12-24 01:25

cd是个变量
我搞错了，，，
这里应是这样(command "text" p "3"  "0"  (strcat (rtos cd 2 4)) )

那么，我想让"(rtos cd)"列印出来的字符颜色，依(if (< cd jc) (setvar "cecolor" 3)) 条件的变化而变化，该怎么弄呀？

这句的颜色定义(command ".chprop" (entlast)  "" "c"  1 "") 是固定的吧，不能随机

newer

行雲 发表于 2016-12-24 01:41

建议你别在修改别人的程序，要自己多写，新写，从最基础的开始，养成自己的习惯和逻辑风格。你现在修改别人的程序对你没什么好处。