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

清风明月10

求一个利用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用这三个坐标写一个单行文字，内容为孔号（即每行的第一个参数）

请点击此处下载

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

您的用户组是：游客

文件名称:一条记录多个参数用镡分隔连接.rar 
下载次数:10  文件大小:266 Bytes 
下载权限: 不限 以上  [免费赚D豆]

可利用晓东的LSP函数或学院派的函数

dnbcgrass

2. (defun c:hzk()
   
3.     (vl-load-com)
   
4.     (setq cm (mapcar 'getvar  '("cmdecho" "osmode")))
   
5.     (mapcar 'setvar '("cmdecho" "osmode") '(0 0))
   
6.     (command "_undo" "be")
   
7.     (if (setq wjm (getfiled "请选取数据文件" "e:\" "txt" 2))
   
8.         (progn
   
9.             (setq fff (open wjm "r")
   
10.                   sjb nil
    
11.             )
    
12.             (while (setq zfc (read-line fff))
    
13.                 (while (vl-string-search "镡" zfc)
    
14.                      (setq zfc (vl-string-subst " " "镡" zfc))
    
15.                 )
    
16.                 (setq zfc (read (strcat "(" zfc ")"))
    
17.                       sjb (cons zfc sjb)
    
18.                 )
    
19.             )
    
20.             (close fff)
    
21.             (mapcar '(lambda(x)
    
22.                          (setq wzgd (last x)  R (* 0.5 wzgd)
    
23.                                p1   (list (nth 2 x) (nth 3 x) (nth 4 x))
    
24.                                p2   (mapcar '+ p1 (list R 0 0))
    
25.                          )
    
26.                          (command "_circle" p1 R)
    
27.                          (command "_text" p2 wzgd 0 (vl-princ-to-string (car x)))
    
28.                      )
    
29.                      (cdr (reverse sjb))
    
30.            )
    
31. 
    
32.         )
    
33.     )
    
34.     (command "_undo" "e")
    
35.     (mapcar 'setvar '("cmdecho" "osmode") cm)
    
36.     (princ)
    
37. )

(defun c:hzk()<br />     (vl-load-com)<br />     (setq cm (mapcar 'getvar  '("cmdecho" "osmode")))<br />     (mapcar 'setvar '("cmdecho" "osmode") '(0 0))<br />     (command "_undo" "be")<br />     (if (setq wjm (getfiled "请选取数据文件" "e:\" "txt" 2))<br />         (progn<br />             (setq fff (open wjm "r")<br />                   sjb nil<br />             )<br />             (while (setq zfc (read-line fff))<br />                 (while (vl-string-search "镡" zfc)<br />                      (setq zfc (vl-string-subst " " "镡" zfc))<br />                 )<br />                 (setq zfc (read (strcat "(" zfc ")"))<br />                       sjb (cons zfc sjb)<br />                 )<br />             )<br />             (close fff)<br />             (mapcar '(lambda(x)<br />                          (setq wzgd (last x)  R (* 0.5 wzgd)<br />                                p1   (list (nth 2 x) (nth 3 x) (nth 4 x))<br />                                p2   (mapcar '+ p1 (list R 0 0))<br />                          )<br />                          (command "_circle" p1 R)<br />                          (command "_text" p2 wzgd 0 (vl-princ-to-string (car x)))<br />                      )<br />                      (cdr (reverse sjb))<br />            )<br /> <br />         )<br />     )<br />     (command "_undo" "e")<br />     (mapcar 'setvar '("cmdecho" "osmode") cm)<br />     (princ)<br /> )

st788796

找那些Lisp替换去吧

1. (defun c:tt (/ fl lst h)
   
2.   (if (setq fl (getfiled "Select Txt" "" "txt" 8))
   
3.     (progn
   
4.       (setq lst        (XD::List:FromFile fl) ;_读文件
   
5.             lst        (mapcar '(lambda (x) (xdrx_string_split x "镡")) lst) ;_拆分
   
6.             h        (getvar "textsize")
   
7.       ) ;_字高
   
8.     )
   
9.     (mapcar
   
10.       '(lambda (x)
    
11.          (xdrx_circle_make
    
12.            (mapcar 'read (cddr x)) ;_点坐标
    
13.            (* 0.5
    
14.               h ;_半径
    
15.            )
    
16.            ;; （X+字高/2） Y  Z
    
17.            (xdrx_text_make
    
18.              (list (* (+ h (read (nth 2 x))) 0.5)
    
19.                    (read (nth 3 x))
    
20.                    (read (last x))
    
21.              ) ;_点坐标
    
22.              (car x) ;_字串
    
23.              h ;_高
    
24.              0. ;_角度
    
25.            )
    
26.          )
    
27.          lst
    
28.        )
    
29.     )
    
30.   )
    
31.   (princ)
    
32. )

(defun c:tt (/ fl lst h)<br />   (if (setq fl (getfiled "Select Txt" "" "txt" 8))<br />     (progn<br />       (setq lst        (XD::List:FromFile fl) ;_读文件<br />             lst        (mapcar '(lambda (x) (xdrx_string_split x "镡")) lst) ;_拆分<br />             h        (getvar "textsize")<br />       ) ;_字高<br />     )<br />     (mapcar<br />       '(lambda (x)<br />          (xdrx_circle_make<br />            (mapcar 'read (cddr x)) ;_点坐标<br />            (* 0.5<br />               h ;_半径<br />            )<br />            ;; （X+字高/2） Y  Z<br />            (xdrx_text_make<br />              (list (* (+ h (read (nth 2 x))) 0.5)<br />                    (read (nth 3 x))<br />                    (read (last x))<br />              ) ;_点坐标<br />              (car x) ;_字串<br />              h ;_高<br />              0. ;_角度<br />            )<br />          )<br />          lst<br />        )<br />     )<br />   )<br />   (princ)<br /> )

windowns456

好贴。顶起