Autolisp 框选图形,统计各类图形的数量,输出到文件。

本文的目的是为了统计CAD中三种类型元素出现的次数,并输出成一个txt文件。先看整体要达到的效果。
在这里插入图片描述

(defun c:mm()
  (setq ss (ssget))
  (setq n 0)
  (setq n_cir 0 n_line 0 n_arc 0)
  (repeat (sslength ss)
    (setq en (ssname ss n))
    (setq endata(entget en))
    (setq entype (cdr (assoc 0 endata)))
    (cond ((= entype "CIRCLE") (setq n_cir (1+ n_cir)))
   ((= entype "LINE") (setq n_line (1+ n_line)))
   ((= entype "ARC") (setq n_arc (1+ n_arc)))
    )
    (setq n (1+ n))
  )
  (sub_write_data)
  (prin1)
)
(defun sub_write_data()
  (setq dat_file (getfiled "写文件练习" "C:\Users\Administrator\Desktop" "txt" 2))
  (setq ff (open dat_file "w"))
  (write-line (strcat "CIRCLE" (itoa n_cir)) ff)
  (write-line (strcat "LINE" (itoa n_line)) ff)
  (write-line (strcat "ARC" (i
  • 2
    点赞
  • 8
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值