匹配方向

pBe · 发表于 2022-7-6 10:07:52

快速问题：
切换“将文字方向与布局匹配”的DXF代码是什么
该代码旋转“文本”实体。

 
(defun c:test ()
 (cond ((setq lin-a (car (entsel "\n Select Line")))
 (setq lin-a (entget lin-a)
       pt1   (trans (cdr (assoc 10 lin-a)) 1 0)
       pt2   (trans (cdr (assoc 11 lin-a)) 1 0)
 )
 (setq txt-lst (car (entsel)))
 (entmod (subst (cons 50 (angle pt1 pt2))
  (assoc 50 (entget txt-lst))
  (entget txt-lst)
  )
 )
)
 )
)

问题是，如果“匹配文本方向”切换为“是”。。它不会旋转
DXF中的开关在哪里，我尝试将72设置为0，但它仍然不会旋转？

Tharwat · 发表于 2022-7-6 10:16:34

你这是什么意思？

pBe · 发表于 2022-7-6 10:24:17

这个

我知道您可以在“文本样式”对话框中取消选中此选项。
但是如果它已经存在了呢。。。我在寻找DXF时被难住了

Tharwat · 发表于 2022-7-6 10:36:33

我无法在我的2010版本中获得它。

**编辑**我刚找到它，让我们核对一下，我可能可以帮你。

Lee Mac · 发表于 2022-7-6 10:41:33

注释性内容存储在扩展数据中，我相信您提到的项目位于Appname下：AcadAnnoPO

copy


  (-3
     (
        "AcadAnnotative"
        (1000 . "AnnotativeData")
        (1002 . "{")
        (1070 . 1)
        (1070 . 1)
        (1002 . "}")
     )
[color=blue][b]      (
        "AcadAnnoPO"
        (1070 . 1)
     )[/b][/color]
  )

Tharwat · 发表于 2022-7-6 10:48:54

检查10号帖子，然后尝试其中包含的例程。

http://www.theswamp.org/index.php?topic=29722.0

希望这有帮助。

塔瓦特

pBe · 发表于 2022-7-6 10:59:02

好的。。这是否意味着，如果我可以检索它，我可以修改和更新它？

pBe · 发表于 2022-7-6 11:03:00

谢谢Tharwat我会调查的

Lee Mac · 发表于 2022-7-6 11:10:11

我不处理注释性的东西，但我相信是的。

可能是这样的：

copy


(defun RemoveMatchOrientation ( entity )
 (if (assoc -3 (entget entity '("AcadAnnoPO")))
   (entmod (list (cons -1 entity) (list -3 '("AcadAnnoPO"))))
 )
)

或者两者兼而有之：

copy


;; entity: Entity Name
;; flag  : T=MatchOrientation, else nil
(defun MatchOrientation ( entity flag )
 ;; © Lee Mac 2010
 (if (assoc -3 (entget entity '("AcadAnnotative")))
   (entmod (list (cons -1 entity) (list -3 (cons "AcadAnnoPO" (if flag (list '(1070 . 1)))))))
 )
)

[编程交流] 匹配方向

发表回复

精选推荐