测量CAD展点号坐标

梁旭武

格式
1,568418.1050,2404939.5620,5.4680
2,568379.7020,2404931.4580,5.3700
3,568335.0760,2404929.9880,5.6990
4,568314.5200,2404930.4590,5.3500
5,568295.0160,2404942.7280,5.3550
6,568270.9730,2404942.9750,5.6150

程序内容：
(defun C:txt ()
    (setvar "cmdecho" 0)
(setq ff(getfiled "  选取一个TXT文本(梁旭武设计QQ75278336)..." "" "" 2))
(setq f(open ff "r"))
   (while (setq aa (read-line f))
      (setq i 0 j 0  lxw "")
      (repeat (strlen aa);计算逗号所在的位置
           (setq j (+ j 1))
           (setq lsd (substr aa j 1))
                   (if (= "," lsd)
                 (progn
                 (setq i(+ i 1))

                       (if (= i 1)
                         (setq k j)
                         )
                        (if (= i 2)
                         (setq k2 j)
                         )
                       (if (= i 3)
                         (setq k3 j)
                         )                       
                 )
               
               )
             );计算逗号所在的位置
      
     (setq k-1 (- k 1)) (setq k+1(+ k 1));截取字符串
      (setq k2-1 (- k2 1)) (setq k2+1(+ k2 1))
     (setq k3-1 (- k3 1)) (setq k3+1(+ k3 1))
     (setq c(- k2-1 k)) (setq c1(- k3-1 k2))
     (setq dh (substr aa 1 k-1))
     (setq x (substr aa k+1 c))
     (setq y (substr aa k2+1 c1));截取字符串

     (setq xy(list (atof y) (atof x)))
   
     (command "_text" xy 1.5 0 dh)
    (command "_point" xy)
   
)      
)       
   
程序有一点粗糙，但是可能用的  
       
             
            


             

leedun

为什么我的z都是0