求一个利用TXT的多参数批量画图元的LSP代码

清风明月名字

求一个利用TXT的多参数批量画图元的LSP代码参数的性质如下：

孔号镡孔性镡X坐标镡Y坐标镡Z坐标镡字高

文本文件中的参数具体内容如下：
ZK1镡一般孔镡1镡11镡1.3镡2.5
ZK2镡一般孔镡2镡12镡2.3镡2.5
ZK3镡一般孔镡3镡13镡3.3镡2.5
ZK4镡一般孔镡4镡14镡4.3镡2.5
ZK5镡一般孔镡5镡15镡5.3镡2.5
ZK6镡一般孔镡6镡16镡6.3镡2.5
ZK7镡一般孔镡7镡17镡7.3镡2.5
ZK8镡一般孔镡8镡18镡8.3镡2.5
ZK9镡一般孔镡9镡19镡9.3镡2.5
ZK10镡一般孔镡10镡20镡10.3镡2.5

我需要将每行参数分解，利用分解出来的X Y Z画一个圆，圆的直径为字高。再用 （X+字高/2） Y  Z用这三个坐标写一个单行文字，内容为孔号（即每行的第一个参数）
可利用晓东的LSP函数或学院派的函数

wwwbxd

看看这段代码吧  写了半个小时啊

(defun C:mjb (/ fath a name is x y z d p1 p2 r)
  (setvar "osmode" 0)
  (vl-load-com)
  (setq path (getfiled "选择数据文件" "c:/" "TXT" 4))
  (setq ff (open path "r"))
  (setq a (read-line ff))
  (while a
    (setq a (read-line ff))
    (setq name (substr a 1 (vl-string-position (ascii "镡") a)))
    (setq a (substr a (+ 3 (strlen name))))
    (setq ls (substr a 1 (vl-string-position (ascii "镡") a)))
    (setq a (substr a (+ 3 (strlen ls))))
    (setq ls (substr a 1 (vl-string-position (ascii "镡") a)))
    (setq x (substr a 1 (vl-string-position (ascii "镡") a)))
    (setq a (substr a (+ 3 (strlen x))))
    (setq Y (substr a 1 (vl-string-position (ascii "镡") a)))
    (setq a (substr a (+ 3 (strlen Y))))
    (setq z (substr a 1 (vl-string-position (ascii "镡") a)))
    (setq a (substr a (+ 3 (strlen Z))))
    (setq d (substr a 1 (vl-string-position (ascii "镡") a)))
    (setq x (atof x))
    (setq y (atof y))
    (setq z (atof z))
    (setq d (atof d))
    (setq p1 (list x y z))
    (setq r (/ d 2))
    (setq p2 (list (+ x r) y z))
    (command "_circle" p1 r)
    (command "_.text" "j" "ml" p2 d "0" name "" "")
  )
  (close ff)
  (setvar "osmode" 15359)
)

xyp1964

先贴个示意图

清风明月名字

上面就是数据，孔号镡孔性镡X坐标镡Y坐标镡Z坐标镡字高，即以X Y Z坐标画一个单行文本图元“孔号”

清风明月名字

xyp1964 发表于 2013-12-19 22:48
先贴个示意图

上面就是数据，孔号镡孔性镡X坐标镡Y坐标镡Z坐标镡字高，即以X Y Z坐标画一个单行文本图元“孔号”

xyp1964

2. 
   
3. ;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url]
   
4. 
   
5. 
   
6. (defun c:tt ()
   
7.   (xyp-CMDLAsc0)
   
8.   (setq        lst (xyp-txt2list "一条记录多个参数用镡分隔连接.txt")
   
9.         lst (cdr lst)
   
10.         lst (mapcar '(lambda (x) (xyp-Get-HzEngNum x 3)) lst)
    
11.   )
    
12.   (foreach a lst
    
13.     (setq pt (list (cadr a) (caddr a) (cadddr a))
    
14.           pt (mapcar 'distof pt)
    
15.           rr (* (distof (last a)) 0.25)
    
16.           bh (strcat "ZK" (car a))
    
17.           p1 (xyp-Pt2X pt rr)
    
18.           s1 (xyp-circle pt rr)
    
19.           s2 (xyp-Text 4 p1 bh)
    
20.     )
    
21.     (xyp-SubUpd s2 40 rr)
    
22.   )
    
23.   (xyp-CMDLA1)
    
24. )
    

<br /> ;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url]<br /> <br /> <br /> (defun c:tt ()<br />   (xyp-CMDLAsc0)<br />   (setq        lst (xyp-txt2list "一条记录多个参数用镡分隔连接.txt")<br />         lst (cdr lst)<br />         lst (mapcar '(lambda (x) (xyp-Get-HzEngNum x 3)) lst)<br />   )<br />   (foreach a lst<br />     (setq pt (list (cadr a) (caddr a) (cadddr a))<br />           pt (mapcar 'distof pt)<br />           rr (* (distof (last a)) 0.25)<br />           bh (strcat "ZK" (car a))<br />           p1 (xyp-Pt2X pt rr)<br />           s1 (xyp-circle pt rr)<br />           s2 (xyp-Text 4 p1 bh)<br />     )<br />     (xyp-SubUpd s2 40 rr)<br />   )<br />   (xyp-CMDLA1)<br /> )<br />

清风明月名字

我试了，是可以画图，但跑题了。因为ZK1也可以是ZK1A1 ZK1B1,这们种种，你的代码就会出错。等于说，必须是以“镡”来分割得到的列表，这一步是不能变通的。

xyp1964

清风明月名字 发表于 2013-12-20 14:52
我试了，是可以画图，但跑题了。因为ZK1也可以是ZK1A1 ZK1B1,这们种种，你的代码就会出错。等于说，必须是以 ...

只对"样品"负责！