Lisp实现多义线闭合

直接贴代码:实现自动闭合lay图层中的多义线,需要选择lay



(defun bihe(lay / s l i h e en p70)

  (setq s (ssget "x" (list (cons 0 "lw*") (cons 8 lay))))
  (if s
    (progn
      (setq l (sslength s))
      (setq i 0
        j 0
      )
      (while (< i l)
    (setq e (ssname s i))
    (setq en (entget e))
    (setq p70 (cdr (assoc 70 en)))
    (if (or (= p70 0) (= p70 128));0或128表示未闭合
      (progn
        (command "pedit" e "c" "");闭合多义线
        (setq j (+ 1 j))
      )
    )
    (setq i (+ i 1))
      )
    )
  )
  (princ "已找到未闭合多义线:")
  (princ j)
  (princ)
)
  • 1
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值