删除指定块名称的LISP小程序

robot51 · 发表于 2006-4-9 10:37:00

如何用LISP编制删除所有指定块名称的小程序？

自贡黄明儒 · 发表于 2010-10-3 21:28:00

我也一直在求，求之不得。。。

crazylsp · 发表于 2010-10-4 18:05:00

本帖最后由 crazylsp 于 2011-4-21 09:46 编辑

;试下

(defun c:tt()

poseidon17 · 发表于 2011-3-29 22:47:38

我想删除名字为note-1的块
按照这样的方法写的：
(setq mame (getstring t "NOTE-1"))
(setq ss (ssget "X" (list(cons 0 "insert")(cons 2 mame)) ))
(command "erase" ss "")
貌似不行

faith66 · 发表于 2012-3-10 16:57:25

本帖最后由 faith66 于 2012-3-10 16:59 编辑

(defun c:test(/ blk-name ss cmdecho_bak)
  (setq cmdecho_bak (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq blk-name(getstring"\n请输入预删除的块名:"))
  (if (= blk-name "")
(alert "未输入块名!!")
(progn
   (setq ss (ssget "x" (list(cons 0 "INSERT")(cons 2 blk-name))))
   (command "_.erase" ss "")
)
  )
  (setvar "cmdecho" cmdecho_bak)
  princ
)

楼上的朋友"INSERT"需要大写，就可以实现了

江湖远人 · 发表于 2012-3-11 14:13:04

多谢楼上的分享

账号		自动登录	找回密码
密码			注册