这是一个代码狙击手:
- ;; add block to DWG
- (or (tblsearch "Block" "Detail-Sheet-01") (eMake))
- ;; Insert Attr block & get attribute values from user
- (setq sysattdia (getvar "ATTDIA"))
- (setq sysattreq (getvar "ATTREQ"))
- (setq systxteva (getvar "TEXTEVAL"))
- (setvar "ATTDIA" 1)
- (setvar "ATTREQ" 0)
- (setvar "TEXTEVAL" 0)
- (if (tblsearch "block" "Detail-Sheet-01")
- (progn
- (command "._-insert" "Detail-Sheet-01" "_non" p3 *MyTextsize "" "")
- (initdia 1) ; get the attrubute values from the user
- (command "._attedit" (entlast))
- )
- )
|