请教创建选择集的对象类型问题

imoses

我想创建一个选择集选出所有的转角标注，但是用类型为RotatedDimension选不出来。那这个转角标注的类型名是啥呢？另外每种对象的类型名在哪里可以查到呢。一般line和text、mtext都可以猜出来，但是像转角标注、对齐标注之类的就猜不出来了。

aihuyujian

(car (assoc 0 (entget (car (entsel))))) 就是对象类型了

sutai

转角标注，实际就是线性标注，因可水平可垂直可旋转所以叫转角标注，在组码70中表明。
70 组码
    标注类型：值 0-6 是整数值，表示标注类型。值 32、64 和 128 是添加到整数值的位值（在 R13 及以后的版本中始终设置为 32）
      0 = 旋转、水平或垂直；
      1 = 对齐
      2 = 角度；
      3 = 直径；
      4 = 半径
      5 = 三点角度；
      6 = 坐标
     32 = 表示块参照（组码 2）仅由该标注参照。
     64 = 坐标类型。这是一个位值（位 7），仅与整数值 6 一起使用。如果设置该值，则坐标为 X 类型；如果不设置，则坐标为 Y 类型。
    128 = 这是一个添加到其他组 70 值的位值（位 8）（如果标注文字已放置到用户定义的位置，而不是放置到默认位置）

简单点说，判断一个转角标注只需提取70组码，设enlst为entget标注图元名，若(cdr (assoc 70 enlst)) 32)或(cdr (assoc 70 enlst)) 64)——按上述说法R13版本以后只需为32即可（即32+0）——(70 . 32)

imoses

在VisualLisp编辑器里面我用（princ (car (assoc 0 (entget (car (entsel)))))），然后选择转角标注，返回1。我是用VB写程序，对lisp不太懂，帮人帮到底，我应该怎么操作得到这个转角标注的图元名呢？谢谢先

imoses

sutai 发表于 2015-2-15 13:43
转角标注，实际就是线性标注，因可水平可垂直可旋转所以叫转角标注，在组码70中表明。
70 组码
    标注类 ...

根据你的提示，我按组码70，值按32确实可以选出了转角标注。对齐标注怎么选出呢？我用VB，对lisp非常不熟，谢谢帮忙

imoses

搞懂了，谢谢楼上两位

sutai

imoses 发表于 2015-2-15 14:04
搞懂了，谢谢楼上两位

聪明人，我满头大汗地赶来已经来不及了……

vectra

初步过滤出选择集后用用子类标记，即组码100检查是否有AcDbRotatedDimension标记

xyp1964

2. (setq ss (ssget '((0 . "DIMENSION")
   
3.                   (100 . "AcDbDimension")
   
4.                   (100 . "AcDbAlignedDimension")
   
5.                   (100 . "AcDbRotatedDimension")
   
6.                  )
   
7.          )
   
8. )

(setq ss (ssget '((0 . "DIMENSION")<br />                   (100 . "AcDbDimension")<br />                   (100 . "AcDbAlignedDimension")<br />                   (100 . "AcDbRotatedDimension")<br />                  )<br />          )<br /> )

vectra

xyp1964 发表于 2015-2-16 09:31

试了 转角标注和对齐标注一起被选中 ，好像对100组码内容直接过滤有漏洞

AutoCAD2008 32bit