[求助]：能否通过扩展数据表把多个对象关联起来？

hsslyl · 发表于 2006-8-10 16:09:41

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

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

×

在论坛上有个例子：把直线A的句柄加到直线B的扩展数据表1005组码中，可以把直线A与把直线B关联起来。请问高手，是否可以这样，具体是如何操作的？
我所说的关联是指选择直线A移动时，直线B也一起移动，并且可以随意拉伸直线A或直线B任一个端点。
谢谢大家！

lazybug · 发表于 2006-8-10 17:08:37

用反应器比较合适
因为你说的那种关联到扩展数据中可以实现，但并不能实现B随A而变，必须对它编程进行操作，而若想让其“自动”随A移动就只能用反应器了

hsslyl · 发表于 2006-8-11 08:26:29

最初由 lazybug 发布
[B]因为你说的那种关联到扩展数据中可以实现，但并不能实现B随A而变，必须对它编程进行操作 [/B]

请教：如何添加扩展数据表？

mmmm · 发表于 2006-8-11 09:44:07

用 GROUP

lazybug · 发表于 2006-8-11 16:36:14

最初由 hsslyl 发布
[B]

请教：如何添加扩展数据表？ [/B]

;添加扩展数据--字符串
(defun add_xdata (en tt txt / en_data x_data)
;(setq tt "应用名")
;(setq txt "添加扩展数据--字符串类型")
;(setq en (car (entsel "指定要添加扩展数据的对象:")))
(setq en_data (entget en '("*")))
(if (setq x_data (assoc -3 en_data))
(if (assoc tt (cdr x_data))
      (entmod (subst (subst (list tt (cons 1000 txt)) (assoc tt (cdr x_data)) x_data) x_data en_data))
      (progn
(regapp tt)
(entmod (subst (reverse (cons (list tt (cons 1000 txt)) (reverse x_data))) x_data en_data))
      )
)
(progn
      (regapp tt)
      (entmod (cons  (list -3 (list tt (cons 1000 txt))) en_data))
)
)

)

hsslyl · 发表于 2006-8-11 17:05:22

非常感谢lazybug楼主！

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

[求助] [求助]：能否通过扩展数据表把多个对象关联起来？

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

相关帖子