新手问题希望高手帮忙！！！！在线等待谢谢了

gzxl · 发表于 2013-5-1 17:44:02

本帖最后由 gzxl 于 2013-5-1 17:45 编辑

cuyongping 发表于 2013-5-1 17:36
这个程序第一次运行有错误提示！错误: 参数类型错误: lselsetp nil，第二次运行就正常了！我调试了好几天 ...

好想法，不知道你们绘图是不是CASS,如是CASS编码是不是应该和CASS编码统一，
例如点状符号的话编码统一的话一次性绘出，省却再去画

高程点后面加什么标识？

cuyongping · 发表于 2013-5-1 17:51:02

gzxl 发表于 2013-5-1 17:44
好想法，不知道你们绘图是不是CASS,如是CASS编码是不是应该和CASS编码统一，
例如点状符号的话编码统一 ...

我现在只想到这了！参考论坛的程序写的这个程序！还没有想到这么远了！程序的问题想了好几天了！都没有找到问题症结所在，所以发出来让个高手看看帮忙改改，可是没有高手帮忙！郁闷

cuyongping · 发表于 2013-5-1 17:55:06

gzxl 发表于 2013-5-1 17:44
好想法，不知道你们绘图是不是CASS,如是CASS编码是不是应该和CASS编码统一，
例如点状符号的话编码统一 ...

我编这个程序主要把外业人员采集的数据统一起来，好内业编辑，我们也在CASS中绘图，关键是外业使用它的编码，外业人员不理解和不好记忆！

cuyongping · 发表于 2013-5-1 19:51:27

高手帮帮忙啊！新手在此谢谢了！

cuyongping · 发表于 2013-5-1 20:06:45

cuyongping 发表于 2013-5-1 17:36
这个程序第一次运行有错误提示！错误: 参数类型错误: lselsetp nil，第二次运行就正常了！我调试了好几天 ...

附图及数据格式！

cuyongping · 发表于 2013-5-1 21:11:05

高手应该五一过完了吧！帮帮我吧！谢谢了！

cuyongping · 发表于 2013-5-1 22:08:59

哎！自己再顶起来！

yshf · 发表于 2013-5-1 22:58:51

本帖最后由 yshf 于 2013-5-1 23:15 编辑

剩下的自己去改(注意：没有进行测试过)

(if (setq file (getfiled "选择文件" "f:\" "dat" 8))
(progn
(setq ff (open file "r")
ptb nil
)
(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
)
)
)
)
)

(if (setq file (getfiled "选择文件" "f:\" "dat" 8)) 
        (progn 
            (setq ff   (open file "r") 
                  ptb  nil 
            ) 
           (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 
                   ) 
 
               ) 
           ) 
        ) 
   
    )

cuyongping · 发表于 2013-5-2 07:59:00

yshf 发表于 2013-5-1 22:58
剩下的自己去改(注意：没有进行测试过)

谢谢您了！我试试！

Gu_xl · 发表于 2013-5-2 13:54:57

cuyongping 发表于 2013-5-2 07:59
谢谢您了！我试试！

(make_xianhao text-sp front-p0) 中 text-sp未赋值！要学会用VLIDE查找错误！
错误调试方法请看帖子如何快速检查出自己编写lsp中的错误？？ 5楼的演示！

账号		自动登录	找回密码
密码			注册

[函数] 新手问题希望高手帮忙！！！！在线等待谢谢了

本帖子中包含更多资源