[求助]：请教一个标注文本位置的问题

snoopychen · 发表于 2004-9-17 12:42:54

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

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

×

请问如何获取标注时的标注文本位置

好像那些10，11，13，14等的代码都不是文本的位置

比如在entget一个标注后，对标注文本进行夹点移动，但是得到的entget结果都是一样

请问是要搜索子实体么？谢谢

提出这个问题是希望编写一段恢复标注文本到原始默认位置（比如这些标注文本给夹点移动过了的）的小程序

aidraft · 发表于 2004-9-17 13:21:47

http://www.xdcad.net/forum/showthread.php?s=&threadid=253100

snoopychen · 发表于 2004-9-17 16:52:20

谢谢高手啊，我仔细学学

墨色寒冰 · 发表于 2004-9-17 22:45:40

我也正想问这个问题呢，多谢2楼楼主了

梦断江南 · 发表于 2004-9-17 23:40:13

;;取标注文本的位置.
;; (get-dimtext-pt (setq dm (car(entsel))))
(defun get-dimtext-pt (dm / e el)
(setq e (cdr (assoc -2 (tblsearch "block" (cdr (assoc 2 (entget dm)))))))
(while (and (setq e (entnext e))
(not (member '(100 . "AcDbMText") (setq el (entget e)))))
)
(if e (cdr (assoc 10 el)) nil)
)

snoopychen · 发表于 2004-9-18 10:06:12

非常谢谢aidraft兄和梦断江南斑竹的解答
昨天本来就着aidraft兄的思路往下走，搜索block中mtext部分，然后得到其座标
按照ename中各个尺寸特征点10，11，13，14等计算默认点的位置，也完成了
不过一旦夹点移动之后，不能自动更新。
后来发现假如要恢复默认点，居然可以很简单，：）
仔细看了ename的各个参数，原来70这个点对就是在控制默认点的。
比如dim linear（包括vertical和horizontal）的70属性是32，拖动之后变成160
dim align的70属性是33，拖动之后变成161
dim angular的70属性是34，拖动之后变成162
dim diameter的70属性是35，拖动之后变成163
dim radius的70属性是36，拖动之后变成164
dim ordinate的70属性是102，拖动之后变成230
dim baseline和continue的70属性似乎是和其跟随的标注有关
大致所有的70属性在拖动后都增加了128。
所以恢复文本默认位置的程序就变成了将70属性-128就可以了
再次谢谢aidraft兄，让我明白了dim里面各个参数的提取。
如下附上简单的恢复默认位置的程序，见笑了

(defun c:ddd ()
  (setq dimset (ssget '((0 . "DIMENSION"))))
  (setq n (sslength dimset))
  (setq i 0)
  (repeat n
(setq ename (ssname dimset i))
(setq entname (entget ename))
(setq ali (cdr (assoc 70 entname)))
(if (>= ali 129)
   (entmod (subst
(cons 70 (- ali 128))
(assoc 70 entname)
entname
      )
   )
)
(setq i (1+ i))
  )
)

jx2008 · 发表于 2006-11-16 23:20:23

对编成有点还是有些帮助，支持搂主

heifeng · 发表于 2006-12-10 02:20:50

最初由 snoopychen 发布
[B]非常谢谢aidraft兄和梦断江南斑竹的解答
昨天本来就着aidraft兄的思路往下走，搜索block中mtext部分，然后得到其座标
按照ename中各个尺寸特征点10，11，13，14等计算默认点的位置，也完成了
不过一旦夹点移动之?.. [/B]

老大，用你这个程序不能使尺寸值恢复原位。

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

[求助] [求助]：请教一个标注文本位置的问题

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

相关帖子