求一个三维坐标标注插件

gate · 发表于 2017-7-25 01:04:04

谢谢，正需要这个

sjj · 发表于 2017-7-25 05:35:28

没涉及三维标注

nedy001 · 发表于 2018-3-18 17:42:52

谢谢！今天一直在找这个标注，万分感谢！！

人在旅_JEEEW · 发表于 2018-4-25 13:53:31

这个只能精确到小数，能否有至少精确到小数点后三位的插件，小弟不懂编程，如能提供那真是万分感谢！

tzfcn · 发表于 2018-7-27 10:55:11

(defun C:XYZ (/ OSNAP PNT1 P1X P1Y P1Z P STDX STDY STDZ XCOORD YCOORD ZCOORD PTXT )
(setvar "ORTHOMODE" 0)
; (setq OSNAP (getvar "OSMODE"))
; (command "setvar" "osmode" "1")
(command "setvar" "luprec" "0")
(prompt "NOTE!!! Coords. & leader drawn per current dimstyle; precision per UNITS... ")
(setq dst (getvar "dimstyle"))
(command "_.-DIMSTYLE" "_Restore" dst)
(setq PNT1 (getpoint "\n请选择标注点: "))
(setq P1X (car pnt1))
(setq P1Y (cadr pnt1))
(setq P1Z (caddr pnt1))
(setq P (getvar "LUPREC"))
(setq STDX (rtos P1X 2 P))
(setq STDY (rtos P1Y 2 P))
(setq STDZ (rtos P1Z 2 P))
(setq XCOORD (strcat "X：" STDX ))
(setq YCOORD (strcat "Y：" STDY ))
(setq ZCOORD (strcat "Z：" STDZ ))
(setq PTXT (getpoint"\n请选择标注位置: "))
(command "LEADER" PNT1 PTXT "" XCOORD YCOORD ZCOORD "")
; (command "SETVAR" "osmode" OSNAP)
(command "setvar" "luprec" "4")
(princ)
)

小康_U8y3Y · 发表于 2020-4-21 17:10:25

tzfcn 发表于 2018-7-27 10:55
(defun C:XYZ (/ OSNAP PNT1 P1X P1Y P1Z P STDX STDY STDZ XCOORD YCOORD ZCOORD PTXT )
(setvar "OR ...

代码能不能修改下能设置标注小数点精度，标注文字的大小什么的都可以设置有个设置框最好

ynhh · 发表于 2022-8-15 14:57:03

感觉要能来个连续的就好了

hphkjz · 发表于 2022-11-24 07:05:44

标注的文字大小如何设置呢？谢谢

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

[编程申请] 求一个三维坐标标注插件

评分