BDYCAD進來下,謝謝!我看見你在.

wocall · 发表于 2004-10-7 09:11:00

问command "line" p77 p88 p11 p44 "")
怎样给这条线加顏色?谢谢

BDYCAD · 发表于 2004-10-7 09:18:00

画好这个线后在后面加上一句例如改为绿色[绿色的色句是 3]
(vl-cmdf ".chprop" (entlast) "" "c" 3 "")

wocall · 发表于 2004-10-7 09:21:00

谢谢!我马上试下,问的问题很弱智吧,我以前搞ARX的,现在转LISP了,刚开始看,什么也不懂,以后要多请教你了.

wocall · 发表于 2004-10-7 09:33:00

还有个问题问你:
(command "pline" p77 p88 p11 p44 "")
   (vl-cmdf ".chprop" (entlast) "" "c" 3 "")
这样可以改整条线,因为是"pline",那如果是"line"就只能改最后一天线顏色,如果分开这样写
(command "line" p77 p88    "")
(vl-cmdf ".chprop" (entlast) "" "c" 3 "")
(command "line"    p88 p11    "")
(vl-cmdf ".chprop" (entlast) "" "c" 3 "")
(command "line" p11 p44 "")
(vl-cmdf ".chprop" (entlast) "" "c" 3 "")

就太麻烦了,有简单方法吗?还有能简单讲下这句吗?我手边没有LISP的书籍,也没有时间看,工作太忙了,你帮我下,谢谢!

wocall · 发表于 2004-10-7 09:40:00

谢谢

BDYCAD · 发表于 2004-10-7 09:43:00

(vl-cmdf    "COLOR" 3 "");先改使用的顏色, 3 为绿色 1 为红色 .....
(command "line" p77 p88    ""); 再画线
(command "line"    p88 p11    "");再画线
(command "line" p11 p44 "");再画线
(vl-cmdf    "COLOR" 0 ""); 画完了再改回原来的默认顏色