求一个三维坐标标注插件

clockspuer

类似于zbbz。vlx的插件，可以直接标注xyz三个数值的标注插件求大神帮帮忙谢谢

Linhay

clockspuer 发表于 2017-7-10 11:20

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:xyz.lsp 
下载次数:246  文件大小:997 Bytes 
下载权限: 不限 以上  [免费赚D豆]

你加载这个试试

人在旅_JEEEW

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

Linhay

(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 "\nPick coordinate point: "))
    (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
      "\nPick text location: "))
    (command "LEADER" PNT1 PTXT "" XCOORD YCOORD ZCOORD "")
   ; (command "SETVAR" "osmode" OSNAP)
    (command "setvar" "luprec" "4")
(princ)
)

clockspuer

Linhay 发表于 2017-7-8 12:01

提示参数太多错误。。

clockspuer

求指教啊大神们

clockspuer

Linhay 发表于 2017-7-8 12:01

提示错误啊

qqqincccken

謝謝提供,學習學習了

longer1000

哦哦噢噢噢哦哦

yangjian001

个数值的标注插件

Linhay

clockspuer 发表于 2017-7-8 15:09

把 / OSNAP PNT1 P1X P1Y P1Z P STDX STDY STDZ XCOORD YCOORD ZCOORD PTXT 删了

clockspuer

Linhay 发表于 2017-7-10 07:10

还是不能用啊

Lisphk

clockspuer 发表于 2017-7-10 10:26

代码能运行，CAD2008

clockspuer

我07的怎么运行不了？我直接复制然后粘贴保存成lsp文件打开cad加载，这样对吗？

Lisphk

clockspuer 发表于 2017-7-10 11:20

那就是你可能粘贴的不全。
你不用保存，直接拷贝粘贴到命令行就行。

clockspuer

Linhay 发表于 2017-7-10 12:03

谢谢 这个可以用了麻烦你了