提取字符串一部份

xyp1964

ymcui

顶起来                    

ynhh

院长的程序
总是出神入化

xyp1964

2. ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF 访问密码 2ffa
   
3. ;; 提取字符串一部份
   
4. (defun c:test1579 ()
   
5.   (if (and (setq e1 (entsel "\n选择要截取的首位文本<退出>: "))
   
6.            (setq s1 (car e1))
   
7.            (setq p0 (cadr e1))
   
8.            (xyp-etype s1 "text")
   
9.       )
   
10.     (progn
    
11.       (setq p1 (xyp-Pt2X p0 (- (car (xyp-9pt s1 3)) (car p0)))
    
12.             tx (cadr (xyp-Text-List s1 p0 p1 nil))
    
13.             tx (car (xyp-Get-HzEngNum tx 0))
    
14.             s2 (xyp-SubUpd (xyp-copy s1) 1 tx)
    
15.       )
    
16.       (xyp-GrreadMove s2 (xyp-9pt s2 5))
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )

;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF 访问密码 2ffa<br /> ;; 提取字符串一部份 <br /> (defun c:test1579 ()<br />   (if (and (setq e1 (entsel "\n选择要截取的首位文本<退出>: "))<br />            (setq s1 (car e1))<br />            (setq p0 (cadr e1))<br />            (xyp-etype s1 "text")<br />       )<br />     (progn<br />       (setq p1 (xyp-Pt2X p0 (- (car (xyp-9pt s1 3)) (car p0)))<br />             tx (cadr (xyp-Text-List s1 p0 p1 nil))<br />             tx (car (xyp-Get-HzEngNum tx 0))<br />             s2 (xyp-SubUpd (xyp-copy s1) 1 tx)<br />       )<br />       (xyp-GrreadMove s2 (xyp-9pt s2 5))<br />     )<br />   )<br />   (princ)<br /> )

urdiafa

謝謝大家幫忙