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 1text)
       (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

 
好东西
页: [1]
查看完整版本: 坐标标注