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

;;[功能] 块遮罩
(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:49

顶一下我顶

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

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

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

来学习一下

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

厉害，谢谢分享，赞一个

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

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

路过学习，顶一下

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

收藏学习黄老师的程序

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

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

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

谢谢分享，学习中
页: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17 18
查看完整版本: 我用纯Lisp操作块