明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
12
返回列表 发新帖
楼主: urdiafa

[已解答] 提取字符串一部份

[复制链接]
发表于 2014-4-22 09:22 | 显示全部楼层

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2014-4-22 09:26 | 显示全部楼层
顶起来                    
发表于 2014-4-23 09:57 | 显示全部楼层
院长的程序
总是出神入化
发表于 2014-4-23 10:27 | 显示全部楼层
  1. ;; 需要e派工具箱(XCAD)的支持:http://yunpan.cn/QXQKsW9gAPmpF 访问密码 2ffa
  2. ;; 提取字符串一部份
  3. (defun c:test1579 ()
  4.   (if (and (setq e1 (entsel "\n选择要截取的首位文本<退出>: "))
  5.            (setq s1 (car e1))
  6.            (setq p0 (cadr e1))
  7.            (xyp-etype s1 "text")
  8.       )
  9.     (progn
  10.       (setq p1 (xyp-Pt2X p0 (- (car (xyp-9pt s1 3)) (car p0)))
  11.             tx (cadr (xyp-Text-List s1 p0 p1 nil))
  12.             tx (car (xyp-Get-HzEngNum tx 0))
  13.             s2 (xyp-SubUpd (xyp-copy s1) 1 tx)
  14.       )
  15.       (xyp-GrreadMove s2 (xyp-9pt s2 5))
  16.     )
  17.   )
  18.   (princ)
  19. )
 楼主| 发表于 2014-4-24 21:17 | 显示全部楼层
謝謝大家幫忙
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 21:18 , Processed in 0.165525 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表