请教高手？能否用lisp程序自动连线？

kgd4510

已知n个点（假定N=5），点位有点号、坐标及标高，其展点的格式为：                                                                                                                                                                 “1，，100.12，200.12，10.30”；“2，，300.12，400.12，20.30”等等,后面还有n个点，姑且不论它多少吧。上述格式解释：１——点位点号；两‘，，’－－两逗之间还有一项内容，由于缺省故用两逗号分隔；100.12，200.12是点位坐标；10.30是点位标高。现在本人的想法是：能否在标高后面加多一项标识，即格式如下：　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　“1，，100.12，200.12，10.30，X1”；“2，，300.12，400.12，20.30，X1”，其中Ｘ１的作用就是能让lisp程序知道这两个点要连成一条直线，当然连第二条直线就得用                 Ｘ２等等依些类，第Ｎ条直线就用ＸＮ。

ljpnb

试试： (defun c:test ()
(SETQ F_ID (OPEN "C:data.dat" "r"))
(setq xx nil)
(while (SETQ text0 (READ-LINE F_ID))
(setq len (strlen text0))
(setq XX0 (substr text0 (- len 1) 2))
(setq n (vl-string-position (ascii ",") text0))
(setq n1 (vl-string-position (ascii ",") text0 (+ n 2)))
(setq n2 (vl-string-position (ascii ",") text0 (1+ n1)))
(setq n3 (vl-string-position (ascii ",") text0 (1+ n2)))
(setq xh (substr text0 1 n)
x (atof (substr text0 (+ n 3) (- n1 (+ n 2))))
y (atof (substr text0 (+ n1 2) (- n2 (1+ n1))))
p0 (list x y)
p1 (list (- (car p0) 0.38) (- (cadr p0) 0.13))
p2 (list (+ (car p0) 0.26) (- (cadr p0) 0.24))
bg (substr text0 (+ n2 2) (- n3 (1+ n2)))
)
(setq text1 (list '(0 . "TEXT")
'(100 . "AcDbEntity")
'(67 . 0)
'(8 . "0")
(cons 10 p1)
'(40 . 0.2)
(cons 1 xh)
)
)
(setq text2 (list '(0 . "TEXT")
'(100 . "AcDbEntity")
'(67 . 0)
'(8 . "0")
(cons 10 p2)
'(40 . 0.4)
(cons 1 bg)
)
)
(entmake text1)
(entmake text2)
(if (/= xx0 xx)
(progn
(command "")
(command "line" p0)
)
(command p0)
)
(setq xx xx0) )
(command "")
(CLOSE F_ID)
)
data.dat数据文件，放在C:\根目录下 1,,100.12,200.12,10.30,X1
2,,300.12,400.12,20.30,X1
3,,200.12,350.12,40.30,X1
4,,400.12,150.12,20.30,X2
5,,500.12,650.12,50.30,X2
6,,200.12,850.12,70.30,X2

kgd4510

太厉害啦，谢谢，我试试看。

kgd4510

谢谢，问题解决啦。

ljpnb

如果做得完美一点，需要在程序加再加几句，如 (setq os (getvar "OSMODE"))
(setvar "CMDECHO" 0)
(setvar "OSMODE" 0)
.
.
.
(setvar "OSMODE" os)
(setvar "CMDECHO" 1)

kgd4510

谢谢，祝您一生平安。您热诚的帮助我很感动。你为我的工作减轻了很多负担，我在外面还发了另外一个求助，跟这个差不多，不过多了几个要求。你有空的时候再帮我看看OK？在此先谢过啦。

cuyongping

test ; 错误: 参数类型错误: FILE nil
使用程序出现上面的错误，为什么，新手求助

cuyongping

怎么没有人帮忙了？

tongtong3489

出错，是不是我的cad的问题