柱哥 发表于 2015-1-9 13:15:24

如何获取尺寸标注中的文字角度


图中有线性标注 对齐标注 半径标注 直径标注
如何求文字角度
线性标注 对齐标注 可以用组码 13 14 算出
15.499326.8513可以算

线性21.9264   半径4.0935   直径 8.187
这三个文字角度怎么算 请有思路的出来说说，谢谢了。



自贡黄明儒 发表于 2015-1-9 14:32:45

http://bbs.xdcad.net/thread-676666-1-1.html
可以取得包围盒，也包括转角了

菜卷鱼 发表于 2015-1-10 10:55:39

把它炸了，取得角度之后再恢复

sutai 发表于 2015-1-11 11:36:15

菜卷鱼 发表于 2015-1-10 10:55 static/image/common/back.gif
把它炸了，取得角度之后再恢复

哈哈，我最近已用了2次如此神功了，好用~

鱼与熊掌 发表于 2015-1-11 15:11:00

自贡黄明儒 发表于 2015-1-9 14:32 static/image/common/back.gif
http://bbs.xdcad.net/thread-676666-1-1.html
可以取得包围盒，也包括转角了

黄工的包容盒准备引用去

柱哥 发表于 2015-1-12 16:20:09

本帖最后由 柱哥 于 2015-1-13 13:37 编辑

有相关的代码么，发一个，或给个链接看看。
谢谢上面的回答，我用炸开的方法，取得角度再还原，很好用！

菜鸟冒充老鸟A 发表于 2017-8-24 16:23:48

小白不会操作，求代码

柱哥 发表于 2017-8-25 10:45:12

        (command "undo""be")
        (command "explode" en);炸开尺寸对象
        (setq ss (ssget "p"'((0 . "mtext")))) 　　
        (setq en1 (ssname ss 0))
        (setq pt10 (cdr (assoc 10 (entget en1))))
        (setq hd (cdr (assoc 50 (entget en1))));文字角度
        (command "undo""e")
        (command "undo" 1)

fools 发表于 2017-8-26 16:23:14


;;尺寸文字角度
(DEFUN c:test1 (/ BLK BN E LST)
(IF (SETQ e (CAR (ENTSEL "\n选择尺寸： ")))
    (PROGN (SETQ bn(CDR (ASSOC 2 (ENTGET e)))
               blk (TBLOBJNAME "block" bn)
           )
           (WHILE (/= (CDR (ASSOC 0 (SETQ lst (ENTGET (SETQ blk (ENTNEXT blk)))))) "MTEXT"))
           (PRINC (/ (* 180. (CDR (ASSOC 50 (ENTGET blk)))) PI))
    )
)
(PRINC)
)


菜鸟冒充老鸟A 发表于 2017-10-8 11:45:49

都是大神啊
页: [1]
查看完整版本: 如何获取尺寸标注中的文字角度