entmake创建垂直线性标注文字方向为什么被反转了?

liucc

如图,左边是entmake创建的,右边是手动命令行创建的,同一个标注样式同一种设置,为什么创建出来的文字方向不一样呢?
标注样式管理器里面的文字方向都是从左至到右的,然后如果把它改成从右到左,那么这两个标注的文字又都会被翻转
水平标注又没有这个问题,不管是entmake还是手动创建都是正常的从左到右的
好疑惑啊,找了很久的原因找不出来,AI都问不出来....
下面是创建代码:

(entmake (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension")
               (cons 10 pt) '(70 . 32) '(1 . "")'(71 . 5) '(3 . "ISO-25")'(100 . "AcDbAlignedDimension")
               (cons 13 pt1) (cons 14 pt2) '(50 . 4.71239) '(100 . "AcDbRotatedDimension")
               ))
有没有大佬解答一下...

叮咚

50组码的问题。用 0.5 pi表示

xyp1964

1. (defun Vdim (pt pt1 pt2)
   
2.   (entmakex (list '(0 . "DIMENSION")
   
3.                   '(100 . "AcDbEntity")
   
4.                   '(100 . "AcDbDimension")
   
5.                   (cons 10 pt)
   
6.                   '(70 . 32)
   
7.                   '(100 . "AcDbAlignedDimension")
   
8.                   (cons 13 pt1)
   
9.                   (cons 14 pt2)
   
10.                   (cons 50 (* pi 0.5))
    
11.                   '(100 . "AcDbRotatedDimension")
    
12.             )
    
13.   )
    
14. )

(defun Vdim (pt pt1 pt2)<br />   (entmakex (list '(0 . "DIMENSION")<br />                   '(100 . "AcDbEntity")<br />                   '(100 . "AcDbDimension")<br />                   (cons 10 pt)<br />                   '(70 . 32)<br />                   '(100 . "AcDbAlignedDimension")<br />                   (cons 13 pt1)<br />                   (cons 14 pt2)<br />                   (cons 50 (* pi 0.5))<br />                   '(100 . "AcDbRotatedDimension")<br />             )<br />   )<br /> )

xtjd

(defun xtjd:mk-dim_v(pt pt1 pt2)
  (entmakex
    (list
      '(0 . "DIMENSION")
      '(100 . "AcDbEntity")
      '(100 . "AcDbDimension")
      (cons 10 pt)
      '(1 . "")
      '(70 . 32)
      '(100 . "AcDbAlignedDimension")
      (cons 13 pt1)
      (cons 14 pt2)
      (cons 50(* pi 0.5))
      '(100 . "AcDbRotatedDimension")
    )
  )
)

liucc

[img][/img]

自贡黄明儒

楼主比较过组码没有？

bhxhenshuai

我刚试了一下 2楼 说的对 确实是 50的 群码有问题 4.71239应该是0.5的pi才对

liucc

xyp1964 发表于 2025-7-25 13:27

我真的服了,确实50组码的问题,但是你知道吗,不是数值的问题,因为我本来就是用的0.5pi的值,因为不行我才改的1.5pi的值去试的,然后我试了你的代码,居然没问题了,但是我仔细对比了你我的差别,居然是一个是cons函数组成的,一个直接是'(),关键就出在这里,只要用cons函数组合的,就算是1.5pi也是可以的,感谢感谢!!!

liucc

xtjd 发表于 2025-7-25 08:08
(defun xtjd:mk-dim_v(pt pt1 pt2)
  (entmakex
    (list

搞定了,不是数值的问题,居然是cons函数跟'()的区别,用你这个可以,把(cons 50(* pi 0.5))换成'(50 . 1.5708)又不行了

liucc

自贡黄明儒 发表于 2025-7-25 09:18
楼主比较过组码没有？

现在搞定了,当时我entget时组码是一摸一样的,我本来就是尝试'(50 . 1.5708),发现是反的,然后我把数值改成了1.5pi,还是不行,但是我试了他们提供的代码,对比发现居然是cons函数跟'()的区别,(cons 50(* pi 0.5))换成'(50 . 1.5708)又不行了,又是反的了