lixang 发表于 2007-10-19 11:08:00

画txt中多线到cad

有一个多断线的txt<br/>
mySpline.txt:内容如下！它里面放了好多多段线！<br/>
<br/>
spl  <br/>


10,100<br/>


20,300<br/>


40,50<br/>


60,100<br/>


98,120<br/>


60,78          <br/>

spl<br/>


100, 100<br/>


300, 500<br/>


600, 700<br/>


spl<br/>


1100,100<br/>


30,    450<br/>


620, 70<br/>


80, 41.5<br/>
<br/>
<br/>
<br/>
求高手编程：<br/>
<br/>
见到我的txt文件：就能正确按照我的文件正确画出多段线！<br/>
我的txt格式如下：<br/>
<br/>
spl  <br/>

10,100<br/>

20,300<br/>

40,50<br/>

60,100<br/>

98,120<br/>

60,78          <br/>
spl<br/>

100, 100<br/>

300, 500<br/>

600, 700<br/>

spl<br/>

1100,100<br/>

30,    450<br/>

620, 70<br/>

80, 41.5<br/>
<br/>
我的要求是在不改变我的txt的格式下：能够正确画出txt里面的所有多段线<br/>
<br/>
//0：提示我浏览寻找我的mySpline.txt，我找到后<br/>
1：在我的cad上建立一个层！“多段线”将所有多段线画在此层！<br/>
2：每遇到5的倍数比如<br/>
        第0,5,10,15,20。。条多线,多线加粗一倍，且使用用蓝色！其余使用白色！<br/>
如果水平比较高的话！<br/>
再附加一条：<br/>
询问我：<br/>
“非5倍数线”<br/>
线粗？         //我来选择<br/>
颜色？          //我来选择<br/>
“5倍数线”<br/>
线粗？          //我来选择<br/>

颜色？           //我来选择<br/>
<br/>
我使用的是CAD2008希望大家帮助！<br/>
<br/>
<br/>

sailorcwx 发表于 2007-10-19 12:05:00

<p>spline叫样条曲线，pline叫多段线，不知道你要画的是哪种</p>

lixang 发表于 2007-10-19 12:15:00

谢谢朋友！<br/>        使用pline<br/>

lixang 发表于 2007-10-19 17:34:00

希望大家都来帮忙！

ZZXXQQ 发表于 2007-10-19 19:43:00

本帖最后由 作者 于 2007-10-20 20:15:56 编辑

在网吧写的，未经调试。


(DEFUN C:TT ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETQ NM (IF NM NM ""))
(IF (SETQ NM (GETFILED "数据文件名" NM "txt" 2)) (PROGN
(SETQ LW (IF LW LW 0.0))
(PRINC "\n非5倍数线线宽 <") (PRINC LW)
(SETQ LLW (GETDIST ">:"))
(SETQ LW (IF LLW LLW LW) LW2 (+ LW LW))
(SETQ LC (IF LC LC 7))
(PRINC "\n非5倍数线颜色 <") (PRINC LC)
;(SETQ LLC (GETINT ">"))
(SETQ LLC (ACAD_COLLORDLG LC))
(SETQ LC (IF LLC LLC LC))
(SETQ LW2 (IF LW2 LW2 0.0))
(PRINC "\n5倍数线线宽 <") (PRINC LW2)
(SETQ LLW (GETDIST ">:"))
(SETQ LW2 (IF LLW LLW LW2))
(SETQ LC2 (IF LC2 LC2 4))
(PRINC "\n5倍数线颜色 <") (PRINC LC2)
;(SETQ LLC (GETINT ">:"))
(SETQ LLC (ACAD_COLLORDLG LC2))
(SETQ LC2 (IF LLC LLC LC2))
(SETQ F (OPEN NM "r"))
(SETQ I -1)
(COMMAND "LAYER" "M" "多段线" "")
(WHILE (SETQ LL (READ-LINE F))
   (IF (= LL "spl") (PROGN
    (IF (NOT STA)
   (COMMAND "")
   (SETQ I (1+ I) STA T)
    )
    (IF (> (REM I 5) 0)
   (IF STA (PROGN
      (COMMAND "COLOR" LC "PLINE" LL "W" LW)
      (SETQ STA nil)
   ))
   (IF STA (PROGN
      (COMMAND "COLOR" LC2 "PLINE" LL "W" LW2)
      (SETQ STA nil)
   ))
    )
   )
    (COMMAND LL)
   )
)
(CLOSE F)
))
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)

sailorcwx 发表于 2007-10-19 21:15:00

<p>我也写了一个</p><p></p>

lixang 发表于 2007-10-19 22:22:00

xiexie :<br/>个位朋友的帮助！<br/>我在测试测试！<br/>

cd8263810 发表于 2008-12-11 15:42:00

看不到,,
页: [1]
查看完整版本: 画txt中多线到cad