社区 › AutoLISP/Visual LISP 编程技术 › 请教创建选择集的对象类型问题

imoses 发表于 2015-2-15 12:51:02

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

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

aihuyujian 发表于 2015-2-15 13:10:04

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

sutai 发表于 2015-2-15 13:43:33

转角标注，实际就是线性标注，因可水平可垂直可旋转所以叫转角标注，在组码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 发表于 2015-2-15 13:49:16

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

imoses 发表于 2015-2-15 14:02:09

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

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

imoses 发表于 2015-2-15 14:04:52

搞懂了，谢谢楼上两位

sutai 发表于 2015-2-15 14:09:38

imoses 发表于 2015-2-15 14:04 static/image/common/back.gif
搞懂了，谢谢楼上两位

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

vectra 发表于 2015-2-15 14:28:34

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

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

(setq ss (ssget '((0 . "DIMENSION")
                  (100 . "AcDbDimension")
                  (100 . "AcDbAlignedDimension")
                  (100 . "AcDbRotatedDimension")
               )
         )
)

vectra 发表于 2015-2-16 13:33:57

xyp1964 发表于 2015-2-16 09:31 static/image/common/back.gif


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

AutoCAD2008 32bit

查看完整版本: 请教创建选择集的对象类型问题