我用纯Lisp操作块

alexmai · 发表于 2015-7-26 22:24

;;[功能] 块遮罩
(defun C:bq (/ E N OBJ OLDNAME SS)
  (cond
((and (setvar "nomutt" 1)
      (princ "\n选择块：")
      (setq e (ssget "_+.:E:S" '((0 . "INSERT"))))
      (setvar "nomutt" 0)
   )
   ;;(setq NewName (rtos (* (getvar "CDATE") 1E8)))
   (setq obj (vlax-ename->vla-object (ssname e 0)))
   (setq oldName (vlax-get obj 'Name))
   (_BlockNewName oldName nil nil nil T "")
   ;;更新块
   (setq ss (ssget "X" (list '(0 . "INSERT") (cons 2 oldName))))
   (command "_.DRAWORDER" ss "" "f");前置以便看到效果
   (repeat (setq n (sslength ss))
   (entupd (ssname ss (setq n (1- n))))
   )
)
  )
  (princ)
)

不知道为什么，这个命令用不了

LIULISHENG · 发表于 2015-7-27 08:00

顶一下我顶

xq4u · 发表于 2015-7-27 14:42

真是难得给力的帖子啊！感谢lz

artken · 发表于 2015-8-15 01:43

来学习一下

孙海波 · 发表于 2015-8-15 14:32

厉害，谢谢分享，赞一个

wngxb · 发表于 2015-8-15 17:11

lostbalance · 发表于 2015-8-15 17:58

路过学习，顶一下

ucuc2003 · 发表于 2015-8-15 23:53

收藏学习黄老师的程序

zheng209 · 发表于 2015-8-16 16:59

学习学习学习学习学习学习

xurugen · 发表于 2015-8-18 10:48

谢谢分享，学习中

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

[讨论] 我用纯Lisp操作块