本帖最后由 gzxl 于 2013-5-1 17:45 编辑
cuyongping 发表于 2013-5-1 17:36 http://bbs.mjtd.com/static/image/common/back.gif
这个程序第一次运行有错误提示！错误: 参数类型错误: lselsetp nil，第二次运行就正常了！我调试了好几天 ...
好想法，不知道你们绘图是不是CASS,如是CASS编码是不是应该和CASS编码统一，
例如点状符号的话编码统一的话一次性绘出，省却再去画
高程点后面加什么标识？
gzxl 发表于 2013-5-1 17:44 static/image/common/back.gif
好想法，不知道你们绘图是不是CASS,如是CASS编码是不是应该和CASS编码统一，
例如点状符号的话编码统一 ...
我现在只想到这了！参考论坛的程序写的这个程序！还没有想到这么远了！程序的问题想了好几天了！都没有找到问题症结所在，所以发出来让个高手看看帮忙改改，可是没有高手帮忙！郁闷
gzxl 发表于 2013-5-1 17:44 static/image/common/back.gif
好想法，不知道你们绘图是不是CASS,如是CASS编码是不是应该和CASS编码统一，
例如点状符号的话编码统一 ...
我编这个程序主要把外业人员采集的数据统一起来，好内业编辑，我们也在CASS中绘图，关键是外业使用它的编码，外业人员不理解和不好记忆！
高手帮帮忙啊！新手在此谢谢了！
cuyongping 发表于 2013-5-1 17:36 static/image/common/back.gif
这个程序第一次运行有错误提示！错误: 参数类型错误: lselsetp nil，第二次运行就正常了！我调试了好几天 ...
附图及数据格式！
高手应该五一过完了吧！帮帮我吧！谢谢了！
哎！自己再顶起来！
本帖最后由 yshf 于 2013-5-1 23:15 编辑
剩下的自己去改(注意：没有进行测试过)
(if (setq file (getfiled "选择文件" "f:\\" "dat" 8))
(progn
(setq ff (open file "r")
ptbnil
)
(while (setq zfc (read-line ff))
(setq zfc (vl-string-translate "," " " zfc)
zfc (read (strcat "(" zfc ")"))
xh(vl-prin1-to-string (car zfc))
Bz(vl-prin1-to-string (cadr zfc))
p0(list (nth 2 zfc) (nth 3 zfc))
p1(mapcar '+ p0 '(-0.38 -0.13))
p2(mapcar '+ p0 '( 0.26 -0.24))
p3(polar p0 pi 0.02)
p4(polar p0 0 0.02)
bg(rtos (last zfc) 2 3)
)
(if (setq jgb (assoc Bz ptb))
(setq ptb (subst (cons (car jgb) (cons (cons 10 p0) (cdr jgb))) jgb ptb))
(setq ptb (cons (list Bz (cons 10 p0)) ptb))
)
(entmake(list '(0 . "TEXT")
'(100 . "AcDbEntity") '(100 . "AcDbText")
'(67 . 0)
'(8 . "ZDH")
(cons 10 p1)
'(40 . 0.2)
(cons 1 xh)
)
)
(entmake (list '(0 . "TEXT")
'(100 . "AcDbEntity")'(100 . "AcDbText")
'(67 . 0)
'(8 . "GCD")
(cons 10 p2)
'(40 . 0.4)
(cons 1 bg)
)
)
(entmake (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity") '(100 . "AcDbPolyline")
'(67 . 0)
'(8 . "GCD")
'(90 . 2)
'(70 . 129)
'(43 . 0.5)
'(38 . 0.0)
'(39 . 0.0)
(cons 10 p3)
'(40 . 0.5)
'(41 . 0.5)
'(42 . 1.0)
(cons 10 p4)
'(40 . 0.5)
'(41 . 0.5)
'(42 . 1.0)
'(210 0.0 0.0 1.0)
)
)
)
(close ff)
(if ptb
(progn
(setq ptb (reverse ptb)
ptb (mapcar '(lambda(x)(cons (car x) (reverse (cdr x)))) ptb)
)
(mapcar '(lambda(x)
(entmake (append '((0 . "LWPOLYLINE") (100 . "AcDbEntity") (100 . "AcDbPolyline"))
(cons (cons 90(length (cdr x))) (cdr x))
)
)
)
ptb
)
)
)
)
)
yshf 发表于 2013-5-1 22:58 static/image/common/back.gif
剩下的自己去改(注意：没有进行测试过)
谢谢您了！我试试！
cuyongping 发表于 2013-5-2 07:59 static/image/common/back.gif
谢谢您了！我试试！
(make_xianhao text-sp front-p0) 中 text-sp未赋值！要学会用VLIDE查找错误！
错误调试方法请看帖子如何快速检查出自己编写lsp中的错误？？ 5楼的演示！