[求助] [求助]：很简单的动态标注，有点问题求教

[复制链接]

mkhsj927

发表于 2004-12-5 11:54:10 | 显示全部楼层 |阅读模式

【广而告之】积分规则、D豆获取攻略 窝窝空间装扮攻略

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

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

这个可以实现动态标注，不过有点问题：就是在动态过程中按鼠标中键缩放时会发生多余的问题！帮帮忙看看
(defun c:m_bz(/ m_ent m_pt1 m_pt2)
  (setq m_pt1 (getpoint "\n基点："))(princ m_pt1)
  (princ "\n标注位置点：")
  (setq m_ent nil);;必须
  (while (/= 3 (car (setq m_pt2 (grread T 5))))
(if m_ent (progn (command "undo" "1")(command)))
(command "undo" "BE")(command)
(command "leader" m_pt1 (cadr m_pt2) "a" "标注文字" "")(command)
(command "undo" "e")(command)
(setq m_ent (entlast))
  )
  (princ)
)

command, 标注, setq