API之对齐标注转线性转角标注

eachy · 发表于 2013-9-20 09:30:02

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

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

×

审核的时候可能把主题删除了，补充上

(defun c:tt (/ ss p1 p2 p3 sty dm)
(if (setq ss (ssget "x" '((0 . "Dimension")))) ; _默认全转，自行修改
(progn
(xd::begin)
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(if (= "AcDbAlignedDimension" (xdrx_getpropertyvalue e "IsA"))
(progn
(setq p1 (xdrx_getpropertyvalue e "XLine1Point")
p2 (xdrx_getpropertyvalue e "XLine2Point")
p3 (xdrx_getpropertyvalue e "DimLinePoint")
sty (xdrx_getpropertyvalue e "DimensionStyle")
dm (xdrx_dimension_makerotate
p1
p2
p3
(angle p1 p2)
(car sty)
)
)
(xdrx_entity_setpropertiesfrom dm e)
(xdrx_object_swapId dm e)
(xdrx_entity_delete dm)
)
)
)
(xd::end)
)
(princ)
)
)

(defun c:tt (/ ss p1 p2 p3 sty dm) 
  (if (setq ss (ssget "x" '((0 . "Dimension")))) ; _默认全转，自行修改 
    (progn 
      (xd::begin) 
      (xdrx_setsstodb ss 0) 
      (while (setq e (xdrx_getentdata 0)) 
    (if (= "AcDbAlignedDimension" (xdrx_getpropertyvalue e "IsA")) 
      (progn 
        (setq p1  (xdrx_getpropertyvalue e "XLine1Point") 
          p2  (xdrx_getpropertyvalue e "XLine2Point") 
          p3  (xdrx_getpropertyvalue e "DimLinePoint") 
          sty (xdrx_getpropertyvalue e "DimensionStyle") 
          dm  (xdrx_dimension_makerotate 
            p1 
            p2 
            p3 
            (angle p1 p2) 
            (car sty) 
              ) 
        ) 
        (xdrx_entity_setpropertiesfrom dm e) 
        (xdrx_object_swapId dm e) 
        (xdrx_entity_delete dm) 
      ) 
    ) 
      ) 
      (xd::end) 
    ) 
    (princ) 
  ) 
)

Free-Lancer · 发表于 2013-9-20 09:56:57

是不是我发了两遍主题，第一个显示了，把那个没有通过的删除时就把相同的主题帖都删除了？

Lispboy · 发表于 2013-9-20 14:17:02

ID转换了，是不是最后删除的应该是新建的实体啊，实体名是ROTATED返回的那个？

是不是最后应该是： (xdrx_entity_delete (entlast)) ? or (xdrx_entity_delete dm) ?

Free-Lancer · 发表于 2013-9-20 14:31:54

Lispboy 发表于 2013-9-20 14:17
ID转换了，是不是最后删除的应该是新建的实体啊，实体名是ROTATED返回的那个？

是不是最后应该是： (xd ...

没搞明白这个 SwapId 是实体 "交换" ,还是 ID "交换“，前者就删除 dm，后者删除 e

Lispboy · 发表于 2013-9-20 14:42:59

本帖最后由 Lispboy 于 2013-9-20 14:44 编辑

Free-Lancer 发表于 2013-9-20 14:31
没搞明白这个 SwapId 是实体 "交换" ,还是 ID "交换“，前者就删除 dm，后者删除 e

OBJECTID交换了，实体名也就交换了，一体的。实体附带的扩展实体数据，扩展词典。。。都跟着对象指针走的，ID交换给了谁，谁就带上这些额外的东西。

你可以测试下交换后，两个实体的 entget

Free-Lancer · 发表于 2013-9-20 14:52:02

明白了，以前只知道 Lisp 用 dxf、 handle, ARX 用ObjectId , Id 交换后其所代表的实体已经发生了变化，所以删除应是 dm，e 是线性标注了

Free-Lancer · 发表于 2013-9-20 20:04:56

刚测试了下，SwapID 后实体发生了变化，以前用Alisp的时候知道 Handle 是一成不变的，用了SwapID才知道那都是“浮云”:D

newer · 发表于 2013-9-20 20:35:02

Free-Lancer 发表于 2013-9-20 20:04
刚测试了下，SwapID 后实体发生了变化，以前用Alisp的时候知道 Handle 是一成不变的，用了SwapID才知道那 ...

也可以说改变实体“显示顺序”除了了DRAWORDER外，还可以通过交换ID，来"硬“实现。

Free-Lancer · 发表于 2013-9-20 20:38:20

SwapId 就是一个“破坏者”，打破了CAD原有的“秩序”！

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

[每日一码] API之对齐标注转线性转角标注

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

点评

点评

点评