社区 › Auto Lisp › 匹配方向

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
 

(-3
   (
      "AcadAnnotative"
      (1000 . "AnnotativeData")
      (1002 . "{")
      (1070 . 1)
      (1070 . 1)
      (1002 . "}")
   )
      (
      "AcadAnnoPO"
      (1070 . 1)
   )
)

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

 
我不处理注释性的东西，但我相信是的。
 
可能是这样的：
 

(defun RemoveMatchOrientation ( entity )
(if (assoc -3 (entget entity '("AcadAnnoPO")))
   (entmod (list (cons -1 entity) (list -3 '("AcadAnnoPO"))))
)
)
 
或者两者兼而有之：
 

;; 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)))))))
)
)

查看完整版本: 匹配方向