如何选择块内和Bylayer的各种非连续线型

yangist

请教一个问题:如何选择块内和Bylayer的各种非连续线型
(setq ss (ssget  '((0 . "arc,circle,ellipse,line,*polyline"))))    ;最好只选择下面四种线型
(setq ss1(ssget ss (       ;选取center线型和Bylayer为center的线型,包含块
(setq ss2(ssget ss (       ;选取dashed线型和Bylayer为dashed的线型,包含块
(setq ss3(ssget ss (       ;选取phantom线型和Bylayer为phantom的线型,包含块
(setq ss3(ssget ss (       ;选取divide线型和Bylayer为divide的线型,包含块
谢谢!

牢固

严重概念性错误！块内对象是不可以用选择集选择的！

ll_j

无法直接选。
块内实体用ssget无法直接选到。
属性（颜色、线形等）随层的实体，其属性是默认的，是不在实体表中直接显示的，要判断其属性，需要对其层进行判别（tblsearch），所以，这个工作量不是一步ssget就能完成的。

yangist

牢固 发表于 2013-7-3 08:51
严重概念性错误！块内对象是不可以用选择集选择的！

版主大大,你好
问题现在可能要分成几部分了:
(一)、不在块内的
     （1）.线型为Center、Dashed、Phantom、Divide的
     （2）.bylayer为Center、Dashed、Phantom、Divide的
     （3）.byblock为Center、Dashed、Phantom、Divide的
(二)、在块内的
     (1).线型为Center、Dashed、Phantom、Divide的
     (2).bylayer为Center、Dashed、Phantom、Divide的
     (3).byblock为Center、Dashed、Phantom、Divide的

是否可以帮我写一个包含(一).(1)(2)的选择集呢,这个我很需要 非常感谢版主大大了!

newer

.bylayer为Center、Dashed、Phantom、Divide的

这句话是啥意思？ 完整的主谓宾都说出来吧。

yangist

newer 发表于 2013-7-3 10:21
这句话是啥意思？ 完整的主谓宾都说出来吧。

线型分为bylayer,Center......
如果某条线在中心线层上 线型为bylayer,
那么在筛选的时候应该当这条线为Center线型处理,
嗯,,,就是这个意思噢!~~~{:soso_e100:}

newer

yangist 发表于 2013-7-3 10:36
线型分为bylayer,Center......
如果某条线在中心线层上 线型为bylayer,
那么在筛选的时候应该当这条线 ...

这句话你好像还是没说明白啊，

是不是这个意思：

线B的线型是BYLAYER， 在层 A 上， 而层A的线型设置是CENTER， 所以线B 线型也应该是CENTER

eachy

yangist 发表于 2013-7-3 09:49
版主大大,你好
问题现在可能要分成几部分了:
(一)、不在块内的

遍历图层，找出是这几个线形的图层，构造选择集

1. (ssget '((-4 . "<or")
   
2.   (6 . "center,dashed,phantom,divide")
   
3.   (-4 . "<and")
   
4.   (8 . "layer1,layer2")
   
5.   (6 . "bylayer")
   
6.   (-4 . "and>")
   
7.   (-4 . "or>")
   
8. )
   
9. )

(ssget '((-4 . "<or")<br />   (6 . "center,dashed,phantom,divide")<br />   (-4 . "<and")<br />   (8 . "layer1,layer2")<br />   (6 . "bylayer")<br />   (-4 . "and>")<br />   (-4 . "or>")<br /> )<br /> )

eachy

获取图层部分

1. (defun getltype (/ d r)
   
2.   (while (setq d (tblnext "layer" (null d)))
   
3.     (if (wcmatch (cdr (assoc 6 d)) "CENTER,DASHED,PHANTOM,DIVIDE")
   
4.       (setq r (cons (cdr (assoc 2 d)) r))
   
5.     )
   
6.   )
   
7.   (vl-string-translate
   
8.     " "
   
9.     ","
   
10.     (vl-string-trim "(,)" (vl-princ-to-string r))
    
11.   )
    
12. )

(defun getltype (/ d r)<br />   (while (setq d (tblnext "layer" (null d)))<br />     (if (wcmatch (cdr (assoc 6 d)) "CENTER,DASHED,PHANTOM,DIVIDE")<br />       (setq r (cons (cdr (assoc 2 d)) r))<br />     )<br />   )<br />   (vl-string-translate<br />     " "<br />     ","<br />     (vl-string-trim "(,)" (vl-princ-to-string r))<br />   )<br /> )

yangist

eachy 发表于 2013-7-3 11:04
遍历图层，找出是这几个线形的图层，构造选择集

谢谢 这段代码对我很有用,下面的那段看不懂噢!
现在我的程序好用了,非常感谢

newer

yangist 发表于 2013-7-3 14:03
谢谢 这段代码对我很有用,下面的那段看不懂噢!
现在我的程序好用了,非常感谢

把你写的程序贴上来吧。

eachy

yangist 发表于 2013-7-3 14:03
谢谢 这段代码对我很有用,下面的那段看不懂噢!
现在我的程序好用了,非常感谢

就是，贴上来可以得到更多的指点，进步更快{:soso_e100:}

yangist

eachy 发表于 2013-7-3 15:19
就是，贴上来可以得到更多的指点，进步更快

还没写好,没有达到我要的效果

麻烦再帮我看下这段代码能这样写吗?谢谢

1.   (setq        ss0 (ssget '((-4 . "<or") (6 . "*") (-4 . "<and") (8 . "*") (6 . "bylayer") (-4 . "and>") (-4 . "or>"))))
   
2.   (setq        ss1 (ssget ss0 '((6 . "center,center*,*center"))))
   
3.   (command "_.chprop" ss1 "" "la" "03Center" "c" "bylayer" "lt" "bylayer" "")

  (setq        ss0 (ssget '((-4 . "<or") (6 . "*") (-4 . "<and") (8 . "*") (6 . "bylayer") (-4 . "and>") (-4 . "or>"))))<br />   (setq        ss1 (ssget ss0 '((6 . "center,center*,*center"))))<br />   (command "_.chprop" ss1 "" "la" "03Center" "c" "bylayer" "lt" "bylayer" "")

eachy

yangist 发表于 2013-7-4 11:39
还没写好,没有达到我要的效果

麻烦再帮我看下这段代码能这样写吗?谢谢

ss0 是选择集了，后面不能嵌套在 ssget 里面，ssget 需要过滤表

yangist

eachy 发表于 2013-7-4 12:00
ss0 是选择集了，后面不能嵌套在 ssget 里面，ssget 需要过滤表

eachy 噢 那应该怎么写呢
我想把ss0 再按线型分成4个list 分别操作
即通过ss0 创建4个选择集