坐标标注

JORYROJ · 发表于 2022-7-6 09:04:04

大家好，
我有500多个点来获得坐标。
我非常需要一个lisp，它可以让我的工作更容易、更快。
例子：
1、命令___
2、选择基点
3.选择基点以放置坐标的文本。

：如果可以选择使引线也指向基点。
谢谢

ReMark · 发表于 2022-7-6 09:30:45

这对你有用吗？

http://cadtips.cadalyst.com/coordinates/label-xyz

Lee Mac · 发表于 2022-7-6 09:42:36

我的一个老朋友：

(defun c:mpt ( / _MText normal pt )
 ;; © Lee Mac 2010
 (defun _MText ( point text normal )
   (entmakex
     (list
       (cons 0 "MTEXT")
       (cons 100 "AcDbEntity")
       (cons 100 "AcDbMText")
       (cons 10 point)
       (cons 11 (getvar 'UCSXDIR))
       (cons 1  text)
       (cons 210 normal)
     )
   )
 )
 (setq normal (trans '(0. 0. 1.) 1 0 t))
 (terpri)
 (while (setq pt (getpoint "\rSpecify Point: "))
   (setq pt (trans pt 1 0))
   (_MText pt
     (apply 'strcat
       (mapcar 'strcat '("X = " "\nY = " "\nZ = ") (mapcar 'rtos pt))
     )
     normal
   )
 )
 (princ)
)

JORYROJ · 发表于 2022-7-6 09:52:13

谢谢李！立即完成的工作

Lee Mac · 发表于 2022-7-6 10:08:26

好东西

[编程交流] 坐标标注

发表回复

精选推荐