[求助]：怎样去掉引线标注的关联性？

snsj · 发表于 2004-3-24 01:34:01

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

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

×

标注关联类似发应器，移动文字位置的时候，引线别跟着乱跑，怎么把引线给锁住不跟着文字乱跑，且不用炸开等破坏标注的方法？

eachy · 发表于 2004-3-24 05:43:03

最初由 snsj 发布
[B]标注关联类似发应器，移动文字位置的时候，引线别跟着乱跑，怎么把引线给锁住不跟着文字乱跑，且不用炸开等破坏标注的方法？ [/B]

查Mtext的DXF可以看到有个反应器实体关联，下面的方法最简单。

[PHP]
(defun c:test (/ e)
(if (setq e (entsel "\n选择引线标注文字: "))
(progn
(entdel e)
(entdel e)
)
)
)[/PHP]

陌生人 · 发表于 2004-3-24 09:41:35

ddim里面有设置。系统参数也有一个，一时间想不起来是哪个了，你查查

snsj · 发表于 2004-3-24 10:42:33

我试过这个些系统变量，奇怪的是对线性标注倒是实用，对引线不起作用：（
DIMASSOC
类型：整数
保存位置：图形
初始值：2
控制标注对象的关联性。
0  创建分解标注。标注的不同元素之间没有关联。直线、圆弧、箭头和标注的文字均作为独立的对象绘制。
1  创建非关联标注对象。标注的各种元素组成一个单一的对象。如果在对象上的定义点有所移动，标注的值将被更新。
2  创建关联标注对象。标注的各种元素组成单一的对象，并且标注的一个或多个定义点与几何对象上的关联点相联结。如果几何对象上的关联点移动，那么标注位置、方向和值将更新。
DIMASSOC 的值不存储在标注样式中。
以 AutoCAD 2002 之前的版本格式保存的图形保留 DIMASSOC 系统变量的设置。当在 AutoCAD 2002 或后续版本中重新打开图形时，将恢复标注的关联性设置。如果在 AutoCAD 2002 中打开传统图形，DIMASSOC 系统变量将采用传统图形的 DIMASO 系统变量的值。
DIMTMOVE
类型：整数
保存位置：图形
初始值：0
设置标注文字的移动规则。
0  尺寸线和标注文字一起移动
1  在移动标注文字时添加一条引线
2  允许标注文字自由移动而不用添加引线
EA的方法我不是太清楚，能具体说明怎么解决么？

ywx0576 · 发表于 2004-3-24 15:28:12

最初由 eachy 发布
[B]

查Mtext的DXF可以看到有个反应器实... [/B]

你这段lsp不起作用呵。

心梦相随 · 发表于 2004-3-24 20:39:02

我做过200+的标注创建，在297组吗

LUCAS · 发表于 2004-3-25 08:19:23

;;原位置重建标注文字,再把原标注文字隐藏
;;By LUCAS
(defun C:TT (/ E)
(if (setq E (entsel "\n选择引线标注文字: "))
(progn
(entmake
(append '((0 . "MTEXT"))
(member '(100 . "AcDbEntity") (entget (car E)))
)
)
(vla-put-visible
(vlax-ename->vla-object (car E))
:vlax-false
)
)
)
(princ)
)
;;恢复显示标注文字
(defun C:TTT (/ E)
(if (setq E (entsel "\n选择引线: "))
(progn
;|NO GOOD
(vla-put-visible
(setq ENT (vlax-ename->vla-object
(cdr (assoc 340 (entget (car E))))
)
)
:vlax-true
)
(vla-put-insertionpoint
ENT
(vlax-3d-point (cdr (assoc 10 (reverse (entget (car E))))))
)|;
(vla-put-visible
(vlax-ename->vla-object (cdr (assoc 340 (entget (car E)))))
:vlax-true
)
)
)
(princ)
)

;;原位置重建标注文字,再把原标注文字隐藏 
;;By LUCAS 
(defun C:TT (/ E) 
  (if (setq E (entsel "\n选择引线标注文字: ")) 
    (progn 
      (entmake 
        (append        '((0 . "MTEXT")) 
                (member '(100 . "AcDbEntity") (entget (car E))) 
        ) 
      ) 
      (vla-put-visible 
        (vlax-ename->vla-object (car E)) 
        :vlax-false 
      ) 
    ) 
  ) 
  (princ) 
) 
 
;;恢复显示标注文字 
(defun C:TTT (/ E) 
  (if (setq E (entsel "\n选择引线: ")) 
    (progn 
     ;|NO GOOD 
      (vla-put-visible 
        (setq ENT (vlax-ename->vla-object 
                    (cdr (assoc 340 (entget (car E)))) 
                  ) 
        ) 
        :vlax-true 
      ) 
      (vla-put-insertionpoint 
        ENT 
        (vlax-3d-point (cdr (assoc 10 (reverse (entget (car E)))))) 
      )|; 
      (vla-put-visible 
        (vlax-ename->vla-object (cdr (assoc 340 (entget (car E))))) 
        :vlax-true 
      ) 
    ) 
  ) 
  (princ) 
)

aeo · 发表于 2004-3-25 23:14:13

;;;去掉关联
(defun c:delit ( / e en)
(prompt "\n选那引线: ")
(if (setq e(car(entsel)))
(setq en(entget e)
en(entmod(vl-remove-if '(lambda(x)(= 340(car x))) en))
))(princ)
)
;;;加入关联
(defun c:addit ( / e e1)
(prompt "\n顺序不要倒!")
(if (and(setq e(car (entsel"\n选那引线: ")))
(setq e1(car(entsel"\n选要关联的(Mtext,图块,公差): ")))
)
(vla-put-Annotation (vlax-ename->vla-object e)(vlax-ename->vla-object e1))
)(princ)
)

帮助里面的图，可以一个线上有好几个箭头，我标不出来。谁可以?

snsj · 发表于 2004-3-25 23:52:13

经典～～～～，谢谢AEO和龙龙仔，你说哪个样图中有几个箭头？文件名是什么？

aeo · 发表于 2004-3-25 23:57:11

就是最下面的图

snsj · 发表于 2004-3-26 02:09:26

晕，忘了这样了

[php]
;;;|消除关联
(vl-cmdf "erase" )(vl-cmdf "oops")
;;;|恢复关联
......同AEO
[/php]

ywx0576 · 发表于 2004-3-26 08:51:40

express工具中有去除引线关联和重新关联的命令,分别为_.qlattach和_.qldetachset，还有一个是_.qlattachset(能把选中范围内的多个引线与文字一一关联起来)，在CAD2000中的时候我用过三个命令都能用的，可是后来到了2002、2004、2005中前二个还能用，第三个命令却不能用了，不知是不是我个别的问题，各位试一下是不是也这样？
三个命令的菜单位置见下图：

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

[求助] [求助]：怎样去掉引线标注的关联性？

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

相关帖子

Re: [求助]：怎样去掉引线标注的关联性？

Re: Re: [求助]：怎样去掉引线标注的关联性？