求 导入txt 然后按text里面条件绘制直线
本帖最后由 daiguafan 于 2011-3-18 14:54 编辑具体效果如下图希望各位大侠可以帮帮忙
本人初学lsp
其中斜直线坡面已经确定，其他直线由文本导入
依图解意似乎不难,但见了 '直线参数.txt' 就....
您得加以解说其关联性,否则就得静待有能力解读的高手了 回复 Andyhon 的帖子
明白您的意思了，我修改下，您在看下，估计就可以了 回复 Andyhon 的帖子
明白您的意思了，我修改下，您在看下，估计就可以了 这个不太好写，代码比较多。
我想知道你这个txt的文本是怎么来的？是其他软件生产的，还是手工写入的？ 回复 yucpp 的帖子
手工输入
呵呵， 本帖最后由 yucpp 于 2011-3-14 20:33 编辑
daiguafan 发表于 2011-3-14 13:21 http://bbs.mjtd.com/static/image/common/back.gif
回复 yucpp 的帖子
手工输入
各个字符之间，你是用空格分隔的。用Tab更好，可以用excel编辑后另存为txt。
图中的44°是什么？怎么得来的？
回复 yucpp 的帖子
这个角度是我自己设定的，呵呵，可以为其他任意值 本帖最后由 ZZXXQQ 于 2011-3-16 20:40 编辑
;按文本文件内容画线 明经 ZZXXQQ 2011.3.15
;排数竖向间距 长度角度 直线说明
;1 2000 250025 受力1kn
;2 3200 450032 受力2kn
(defun c:tt ()
(setvar "CMDECHO" 0)
(setq fname (if (= (type fname) 'STR) fname ""))
(setq an1 (getreal "\n起始线角度 <44> :"))
(setq an1 (/ (* (if an1 an1 44) pi) 180))
(if (and (setq pt (getpoint "\n起始点 :"))
(setq fname (getfiled "选择文本文件" fname "txt" 2))) (progn
(setq fp (open fname "r"))
(read-line fp) ;跳过第一行
(setq snn 0)
(while (setq dn (read-line fp))
(setq dn (strcat "(" dn ")"))
(setq nn (cadr dn) nl (caddr dn) an (/ (* (nth 3 dn) pi) 180))
(repeat (car dn)
(setq snn (+ snn nn))
(command ".LINE" (polar pt an1 snn) (polar pt1 an nl) "")
)
)
(command ".LINE" pt (polar pt an1 snn) "")
))
(setvar "CMDECHO" 1)
(princ)
)
回复 ZZXXQQ 的帖子
你这个程序是不是没有去除前面的文字部分，而且应该对文件的书写方式有要求吧，
我怎么都不成功