[求助] [求助]：请问如何获取扩展数据信息

[复制链接]

linhui12

发表于 2009-5-13 23:12:05 | 显示全部楼层 |阅读模式

【广而告之】积分规则、D豆获取攻略 窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

命令: (setq a (entget (car (entsel)) '("*") ))
选择对象: ((-1 . <图元名: 7efa3c88>) (0 . "POLYLINE") (330 . <图元名:
7ef64cf8>) (5 . "3D11") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"PipeLine") (62 . 160) (100 . "AcDb3dPolyline") (66 . 1) (10 0.0 0.0 0.0) (70 .
8) (40 . 0.0) (41 . 0.0) (210 0.0 0.0 1.0) (71 . 0) (72 . 0) (73 . 0) (74 . 0)
(75 . 0) (-3 ("PipeWay-CP1-19" (1000 . "CP1-19") (1000 . "140X6.5") (1000 .
"标准号：7001.9\r\n托盘：80\r\n区域：203C"))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:cx()
(setq xdata (cdr (cadadr (assoc -3 (entget (car (entsel)) (list "PipeSolid-*" "PipeWay-*"))))))
)
用以上代码可以成功提取出"CP1-19",

请问:

1.要如何才能同时提取出"140X6.5"中的"140",

2.如何用SSGET实现提取以上信息啊

向大家讨教了...

0.0, 取出, 图元

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；

如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；

如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！

使用道具举报

返回列表发新帖

账号		自动登录	找回密码
密码			立即注册