cass面积插件

zzfb · 发表于 2021-6-1 04:09

(defun c:mj()
(setvar "cmdecho" 0)
(setq pt (getpoint "\n选取点:"))
(while pt
   (command "bpoly" pt "")
   (setq en (entlast))
   (if (/= en nil)
         (progn
               (command "area" "o" en)
               (setq aa (getvar "area" ))
               (setq b (rtos aa 2 2))
               (redraw en 3)
               (setq c (* 0.0015 aa))
            (setq c1 (rtos c 2 4))
            (setq d (strcat c1 ))
               (setq p (getpoint "\n选取注记点:"))
            (command "text" p 2.0 0 d)
               )
      )
      (entdel en)
      (setvar "bylayer")
      )
   (prin1)
  )

小屁孩WMW · 发表于 2021-6-1 17:38

感谢大神分享

361578873 · 发表于 2021-7-15 11:11

没看明白

gdos · 发表于 2021-12-8 22:41

没看明白

w33l33l · 发表于 2021-12-24 12:33

感谢分享

w33l33l · 发表于 2021-12-24 12:33

感谢分享

新手一员 · 发表于 2023-9-6 17:04

:'(:'(:'(:'(:'(:'(:'(:'(:'(

liuhongtai · 发表于 2023-10-19 12:49

啊电力科技哈喽数控刀具老大手机

adu1122aa · 发表于 2023-11-15 21:21

000000000000000000000000000000000

bbam · 发表于 2024-1-4 00:12

感谢大神分享

[软件] cass面积插件