【首发】AutoCAD插件PluginForCAD v1.0版

wsmn0725

好用不   试试看

luo43302919

谢谢分享

xjwlmqfqx

实用才是硬道理！

541776097

看看学习了

亚希０５０２

谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢

康勋山

好好学习

吃了个梨

(defun c:pointzb();导出点坐标及点号
  (vl-load-com)
           (setq fwsz (list "1" "2" "5" "10" "15" "20" "25"))
         (setq
           fwzz        (atof
                  (xlr_dcl_textlst "搜索范围设置" "范围大小" "5" fwsz)
                )
         )
  (setq ss (ssget (list (cons 0 "POINT"))))
  (setq k -1)
  (setq 文件 (open "C:/坐标文件.csv" "w"))
  (write-line  (strcat "点号"  "," "X坐标" ","  "Y坐标" "," "Z坐标") 文件)
  (princ)
  (repeat (sslength ss)
    (setq ent (ssname ss (setq k (1+ k))))
    (setq pt (cdr (assoc 10 (entget ent))))
    (setq x (rtos (nth 0 pt) 2 3))
    (setq y (rtos (nth 1 pt) 2 3))
    (setq z (rtos (nth 2 pt) 2 3))
    (setq ptls (xlr_pt_fw pt fwzz 36))
    (setq ss1 (ssget "CP" ptls (list (cons 0 "TEXT"))))
    (if        (/= ss1 nil)
      (setq tx (cdr (assoc 1 (entget (ssname ss1 0)))))
      (command "circle" pt  5 )
    )
    (setq ztxx (strcat tx "," x "," y "," z))
    (write-line ztxx 文件)
    (princ)
  )
    (close 文件)
  (prompt
    "\n 坐标已成功提取,请打开C:/坐标文件,请查看"
  )
  )

hcyx284

嗯，比较实用！

vosdeik

互相学习！

Z半导体

不知道是不是免费的