取两点，然后计算距离写到文本或者属性实体里面。

marting · 发表于 2016-12-16 19:30:25

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

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

×

本帖最后由 marting 于 2016-12-16 19:32 编辑

(defun C:tt (/ *error* lst e)  (defun *error* (msg)
    (princ "\nSorry that I forced you to press Esc, to exit!")
    (princ)
  )
  (if (and
        (car (setq lst (list (getpoint "\nFirst point: "))))
        (apply
          'and
          (setq lst (append
                      lst
                      (list (getpoint "\nSecond point: " (car lst)))
                    )
          )
        )
      )
    (while (not (and
                  (setq e (car (nentsel (strcat "\nDistance to fill is: \""
                                                (rtos (apply
                                                        'distance
                                                        lst
                                                      )
                                                ) "\" units, Select text/mtext/attrib."
                                        )
                               )
                          )
                  )
                  (vl-position (cdr (assoc 0 (entget e))) '("TEXT" "MTEXT"
                                "ATTRIB"
                               )
                  )
                  (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-TextString
                                                                 (list
                                                                       (vlax-ename->vla-object e)
                                                                       (rtos
                                                                             (apply
                                                                               'distance
                                                                               lst
                                                                             )
                                                                       )
                                                                 )
                                             )
                       )
                  )
                )
           )
      e
    )
  )
  (princ)
)

xvjiex · 发表于 2021-11-20 05:16:44

感谢分享取两点，然后计算距离写到文本或者属性实体里面。

ynpxqjlb · 发表于 2023-1-12 09:59:44

学习一下~~~~~

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

[每日一码] 取两点，然后计算距离写到文本或者属性实体里面。

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