马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
![](source/plugin/imc_colorcode/images/loading.gif) - (defun c:bold (/ selset ent def name adoc)
- (if (and (/= "" (setq blkname (getstring "\n输入新块名<退出>:")))
- (setq selset (ssget "_+.:S:E" '((0 . "INSERT")))))
- (progn
- (setq ent (vlax-ename->vla-object (ssname selset 0))
- name (cond ((vlax-property-available-p ent 'effectivename) (vla-get-effectivename ent))
- ((vlax-property-available-p ent 'name) (vla-get-name ent))
- ) ;_ end of cond
- ) ;_ end of setq
- (cond
- ((not name) (princ "\nEntity hasn't \"Name\" or \"EffectiveName\" property"))
- ((wcmatch name "`**") (princ "\nUnnamed blocks can't be renamed"))
- (t
- (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
- (if (vl-catch-all-error-p
- (setq
- err (vl-catch-all-apply
- (function
- (lambda ()
- (vla-put-name
- (vla-item (vla-get-blocks adoc) name)
- blkname
- ) ;_ end of vla-put-name
- ) ;_ end of lambda
- ) ;_ end of function
- ) ;_ end of vl-catch-all-apply
- ) ;_ end of setq
- ) ;_ end of vl-catch-all-error-p
- (princ (strcat "\nError : " (vl-catch-all-error-message err)))
- ) ;_ end of if
- (vla-endundomark adoc)
- )
- ) ;_ end of cond
- ) ;_ end of progn
- (princ "\nNothing selected")
- ) ;_ end of if
- (princ)
- ) ;_ end of defun
|