圆孔X，Y坐标分大小孔

啊业_48384 · 发表于 2014-9-28 16:12:27

D100
X729.7987 Y636.1477
X758.187 Y635.5801
X703.1137 Y635.5801
X674.7254 Y636.1477
D200
X729.8228 Y646.019
X758.2111 Y645.4515
X703.1378 Y645.4515
X674.7495 Y646.019
D300
X743.7333 Y644.876
X772.1216 Y644.3084
X717.0483 Y644.3084
X688.6601 Y644.876
D400
X742.9617 Y634.2891
X771.35 Y633.7216
X716.2767 Y633.7216
X687.8885 Y634.2891
D500
X730.8603 Y626.1589
X759.2486 Y625.5914
X704.1753 Y625.5914
X675.787 Y626.1589

LLXXZZ · 发表于 2014-9-28 17:52:28

本帖最后由 LLXXZZ 于 2014-9-28 17:54 编辑

如果是cad图, 要不试试下面的命令:
命令: _dataextraction

啊业_48384 · 发表于 2014-9-29 10:43:55

什么都没有

xiaotao · 发表于 2014-9-30 11:34:20

是不是数控加工用？

xyp1964 · 发表于 2014-10-4 17:46:17

ivde · 发表于 2014-10-4 21:17:43

(defun c:tt (/ _listFromfile fl lst radius p)
(defun _listFromfile (fl / f l ll)
(if (setq f (open (findfile fn) "r"))
(progn
(while (setq l (read-line f))
(setq ll (cons l ll))
)
(close f)
)
)
(reverse ll)
)
(if (setq fl (getfiled "select txt" "d://" "txt" 8))
(progn
(setq lst (_listFromfile fl))
(while lst
(if (wcmatch (car lst) "*D*")
(setq radius
(distof (substr (car lst)
(+ 2 (vl-string-search "D" (car lst)))
)
)
)
(progn
(setq p
(read (strcat "("
(vl-string-translate "XY" " " (car lst))
")"
)
)
)
(entmake (list '(0 . "circle")
(cons 10 p)
(cons 40 radius)
)
)
)
)
(setq lst (cdr lst))
)
)
)
(princ)
)

(defun c:tt (/ _listFromfile fl lst radius p) 
  (defun _listFromfile        (fl / f l ll) 
    (if        (setq f (open (findfile fn) "r")) 
      (progn 
        (while (setq l (read-line f)) 
          (setq ll (cons l ll)) 
        ) 
        (close f) 
      ) 
    ) 
    (reverse ll) 
  ) 
  (if (setq fl (getfiled "select txt" "d://" "txt" 8)) 
    (progn 
      (setq lst (_listFromfile fl)) 
      (while lst 
        (if (wcmatch (car lst) "*D*") 
          (setq        radius 
                 (distof (substr (car lst) 
                                 (+ 2 (vl-string-search "D" (car lst))) 
                         ) 
                 ) 
          ) 
          (progn 
            (setq p 
                   (read (strcat "(" 
                                 (vl-string-translate "XY" "  " (car lst)) 
                                 ")" 
                         ) 
                   ) 
            ) 
            (entmake (list '(0 . "circle") 
                           (cons 10 p) 
                           (cons 40 radius) 
                     ) 
            ) 
          ) 
        ) 
        (setq lst (cdr lst)) 
      ) 
    ) 
  ) 
  (princ) 
)

啊业_48384 · 发表于 2014-10-5 11:29:21

是的，我要的是圆心座标

啊业_48384 · 发表于 2014-10-23 20:34:25

我要的是这样的数

啊业_48384 · 发表于 2014-10-23 21:46:19

LLXXZZ 发表于 2014-9-28 17:52
如果是cad图, 要不试试下面的命令:
命令: _dataextraction

帮写个以这样读圆座标
D100
X729.7987 Y636.1477
X758.187 Y635.5801
X703.1137 Y635.5801
X674.7254 Y636.1477
D200
X729.8228 Y646.019
X758.2111 Y645.4515
X703.1378 Y645.4515
X674.7495 Y646.019
D300
X743.7333 Y644.876
X772.1216 Y644.3084
X717.0483 Y644.3084
X688.6601 Y644.876

llsheng_73 · 发表于 2014-10-23 22:00:43

你是想要把这样的数据用来画圆还是要把圆按这种格式导出数据？

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

[提问] 圆孔X，Y坐标分大小孔

本帖子中包含更多资源