[求助]选取一条POLYLINE后同时获取扩展数据和坐标数据要怎么做?

linhui12

某些通过CAD二次开发生成的“POLYLINE”储存着一些信息，用该软件的“查寻”功能就能方便的得到相应信息。而利用CAD自带的LIST命令却只能查询到图层，颜色，线形，句柄等基本信息。而那些隐藏信息要怎么才能获取到呢？请教各位。。。

ljttjl

你说的这些线内可能含有扩展数据。在命令行输入以下代码查询试试,  (setq a (entget (car (entsel)) '("*") ))  

linhui12

谢谢回复

果然象你说的那样,运行(setq a (entget (car (entsel)) '("*") ))后得到以下代码,

请问要如何才能分别提取出每个"POLYLINE"中,下列数据中的"AH111-01"和"273X5"位置的值呢

(既:敲命令->选取"POLYLINE"->命令行输出A:"AH111-01",B:"273X5"),先谢谢了

"ni ^*+0;:,4 ^*+0\\^[ nh ^LR iqoqjqhook QK mk K*: R>& nm mmeoiemm moof ") (1 .
"n fqfffffffffffffffj:rooh n:rono ") (1 . ">,27:>;:- {rn rn _nm mogqoqjqhook
|") (1 . "=0;& {rn rn {rn {m {rn {rn |") (1 . "3*2/ {rn rn {rn {rn {l {n |") (1
. ",7:33 {rn rn {rn {rn {rn {k {rn {m |") (1 . "9><: {rn rn {rn {rn {j {l {rn
{i 90-(>-; ,6183: |") (1 . "300/ {rn rn {rn {h {g {k |") (1 . "<01:r,*-9><: {rn
rn {rn llnoqjhhihhhknfhmk noooqooooooooooghn noooqooooooooooghn n
mqgoljonhggljijlmh:ronl mqgoljonhggljijlmh:ronl rnqmgomfooilkmiklgj:romh
rfiqjmoohjilnfilhkf fiqjmoohjilnfilhkf n V V o n nliqj 90-(>-; V V V V |") (1 .
"300/ {rn rn {rn {rn {f {k |") (1 . "<0:;8: {rn rn {rn {g {g {rn {no -:):-,:;
{j {rn |") (1 . "<0:;8: {rn rn {rn {f {f {rn {nn 90-(>-; {h {rn |") (1 . ":;8:
{rn rn {rn {nm nqnhhgjomilljhiiom:ronj {nm iqmglngjlohnhfjghn {g {nl 90-(>-; _h
*1410(1 |") (1 . ":;8: {rn rn {rn {nk rnqjifijmifomgnil:romj {nk
iqmglngjlohnhfjgim {f {nj 90-(>-; _h *1410(1 |") (1 . "):-+:' {rn rn {rn {no
{ni |") (1 . ":336/,:r<*-): {rn rn {rn llnoqjhhihhhknfhmk noooqooooooooooghn
noooqooooooooooghn rn rjqiomfjifgkmjoiigg:ronl gqjjlkilogjnklimjh:roni
jqknimlknmhgikohng:ronn rfiqjmoohjilnfilhkf fiqjmoohjilnfilhkf n V V |") (1 .
"):-+:' {rn rn {rn {nn {nh |") (1 . ":336/,:r<*-): {rn rn {rn jooo
noooqooooooooojioh noooqooooooooojioh rn rjqiomfjifgkmjoiigg:ronl
gqjjlkilogjnklimjh:roni jqknimlknmhgikohng:ronn rfiqjmoohjilnfilhkf
fiqjmoohjilnfilhkf n V V |") (1 . "/061+ {rn rn {rn llnoqjhhihhhkmomi
folqkhffmklignmlkm nofiqjmoohjilmojn |") (1 . "/061+ {rn rn {rn jooo
folqkhffmkligjfhok nofiqjmoohjilmjmkk |") (-3 ("PipeSolid-AH111-01" (1000 .
"AH111-01") (1000 . "273X5"))))

linhui12

用以上代码可以成功提取出"AH111-01",

请问:

1.要如何才能同时提取出"273X5"中的"273",

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

向大家讨教了...

jdhszh

分析过滤

linhui12

楼上兄弟，能否具体介绍一下，怎么“分析过滤”啊？？？怎么用LSP表达啊。谢谢

linhui12

这个功能对我来说很重要，希望大家出手相助，谢谢。

yshf

试一试：

2. (defun c:cx()
3. (setq xdata (mapcar 'cdr (cdr (cadr (assoc -3 (entget (car (entsel)) (list "PipeSolid-*" "PipeWay-*" )))))))
4. )

(defun c:cx() (setq xdata (mapcar 'cdr (cdr (cadr (assoc -3 (entget (car (entsel)) (list "PipeSolid-*" "PipeWay-*" ))))))) )

linhui12

感谢楼上兄弟,可以用了.

另外再请教各位,8楼的程序与下面这句我要出现在同一个程序里,也就是说ENTGET和SSGET选择的是同一个实体而我又只想选择一次.要怎么处理啊?

(SETQ SST (SSGET '((0 . "*POLYLINE")))

谢谢

yshf

entget是获取图元的数据列表,它并不能选择实体,应该是entsel吧。建议使用entsel,直接可以选取你需要的实体，因ssget有可能选择到多于1个的实体，还需经过判断才能确定谁是你需要。