提取CAD中指定字符并排列

f4800

求助

提取 K10+840    Hs=1113.037 等数字 ，并去掉 K  +   Hs  =  等符号后，按照 K10+840中纯数字的大小排列

K10+840    Hs=1113.037  等数字是一一对应的。。

多谢了

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:lisp提取桩号和高程范本文件.rar 
下载次数:15  文件大小:160.05 KB 
下载权限: 不限 以上  [免费赚D豆]

hao3ren

根据桩号文字，按照距离范围提取Hs，组成表排序输出
或者直接导出文字在excel里面处理

f4800

hao3ren 发表于 2019-12-28 19:50
根据桩号文字，按照距离范围提取Hs，组成表排序输出
或者直接导出文字在excel里面处理

思路很不错  赞

但是个人水平有限。。

yangjian001

做一个热心并受欢迎的人

tzfcn

这是一个很好的代码，具有智能化的功能。

pxr201419

(defun c:tt()
   (setq file  (getfiled "指定文件保存位置" "" "txt" 33)
         fL    (open file "w")
         s10   (setq ss (ssget "x" '((1 . "*K*"))))
         hs=   (setq ss (ssget "x" '((1 . "*Hs=*"))))
         i     0
         lst_k nil)
   (while (< i (sslength s10))
      (setq wz (vl-list->string(vl-remove 32 (vl-string->list(vl-string-translate "K+""  " (cdr (assoc 1 (entget (ssname s10 i))))))))
            lst_k (append (list(list (atof wz) (cdr (assoc 11 (entget (ssname s10 i)))))) lst_k)
            i (1+ i)))
   (setq lst_k (vl-sort lst_k '(lambda(a b)(< (car a)(car b))))
         i 0 lst_hs nil)
   (while (< i (sslength hs=))
      (setq wz (vl-list->string(vl-remove 32 (vl-string->list(vl-string-translate "Hs=""   " (cdr (assoc 1 (entget (ssname hs= i))))))))
            lst_hs (append (list(list (cdr (assoc 11 (entget (ssname hs= i)))) wz)) lst_hs)
            i (1+ i)))
   (while lst_k
      (setq k (car (nth 0 lst_k)))
      (if (= (- k (fix k)) 0.0)(setq k (fix k)))
      (setq hs (cadr (nth (car(vl-sort-i (mapcar '(lambda(x)(distance (cadr(nth 0 lst_k)) (car x))) lst_hs) '<)) lst_hs)))
      (write-Line (strcat (vl-princ-to-string k) "\t" hs) fL)
      (setq lst_k (cdr lst_k)))
   (close fl)
   (startapp "notepad" file)
   (princ))

f4800

pxr201419 发表于 2019-12-29 12:31
(defun c:tt()
   (setq file  (getfiled "指定文件保存位置" "" "txt" 33)
         fL    (open file " ...

强  大神。。。。  太感谢你了   膜拜

yangjian001

做一个热心并受欢迎的人

845245015

学习学习，感谢大神们分享经验