[LISP程序]：如何将字符依据X坐标排序依次写入TXT文件？

ahwu · 发表于 2004-11-18 23:45:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

向各位老师求救：

一幅图纸上有若干字符，现要求将这些字符根据X座标进行排序，依次写入一个TXT文件中，要求一个字符一行。当几个字符X座标相同时，再根据Y坐标排序。

先谢谢了!

急！！！！！！！

lsjjm · 发表于 2004-11-19 05:35:23

[PHP]
(defun c:test ()
  (setq tt (ssget '((0 . "*TEXT"))) n 0)
  (setq tt (acet-ss-sort tt 'getx))
  (setq fname "c:/mytxt.txt")
  (setq fn (open fname "w"))
  (while (< n (sslength tt))
(setq str (cdr (assoc 1 (entget (ssname tt n)))))
(write-line str fn)
(setq n (1+ n))
  )
)
(defun getx (ent)(car (cdr (assoc 10 ent))))
[/PHP]

梦断江南 · 发表于 2004-11-19 10:23:49

(defun c:ttt ( / ss i e en lst fn)
(setq ss (ssget '((0 . "TEXT"))) i -1)
(while (setq e (ssname ss (setq i (1+ i))))
(setq en (entget e)
lst (cons (cons (cdr(assoc 1 en)) (cdr(assoc 10 en))) lst))
)
(setq lst (mapcar 'car (vl-sort (vl-sort lst '(lambda(x y)(< (caddr x)(caddr y)))) '(lambda(x y)(< (cadr x)(cadr y))))))
(setq fn (open (getfiled "\n输入文件名" "" "" 1) "a"))
(mapcar '(lambda(x)(write-line x fn)) lst)
(close fn)
)

ahwu · 发表于 2004-11-19 20:43:02

非常感谢lsjjm 和梦断江南老师的热心帮助，使困扰我多天的问题给解决的，
特别是梦断江南老师的程序能够直接用到我的实际工作中。
再此，本人再次两位老师表示感谢！

现在本人遇到一个新的问题：
以上程序是在整幅图中运用很好，当整幅图纸自上而下有规律的分成大小完全相同的若干矩形区域时，需自上而下先对第一区域进行以上操作，而后是第二区域，依此类推，这就不行了。
我在试用以上程序时，是先将各个矩形区域移至水平位置，再进行以上操作，效果很好，但是当区域很多时，进行以上操作就很麻烦了。
各位老师能否再帮我想想办法，解决这个问题。

狂刀 · 发表于 2004-11-20 09:33:31

建议附件dwg转为dwf文件，可以直接显示

ahwu · 发表于 2004-11-20 10:55:08

狂刀老师好！

不知怎么能将dwg转为dwf文件，请告知方法，我用的是acad2000.

狂刀 · 发表于 2004-11-20 18:32:14

r14: dwfout
200x：plot,打印配置选dwf

ahwu · 发表于 2004-11-21 00:12:56

谢谢狂刀老师！

狂刀 · 发表于 2004-11-21 02:05:45

我不是老师
你想要什么效果呢？还是不太明白

xumaling · 发表于 2004-11-21 10:00:30

我的问题：假如我要在CAD中筐选一个n行m列个text（可能包括直线使用来分行分列制表），使得他们存储到文本中，文本中也是一行对应一行，每行有m个内容，用空格分开怎么编个lisp程序，谢谢！

jyzas · 发表于 2013-8-11 08:49:26

支持2和3楼:)

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

[LISP程序]：如何将字符依据X坐标排序依次写入TXT文件？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子