事实上，我有点犹豫要不要把它贴在这里，因为你知道这将是我第一次养成这样的习惯，我认为这不值得分享。好吧，不管怎么说，像我这样的新手欢迎批评。
- (defun C:BMSET ()
- (setq intbm (getint "\nEnter Last Bar mark: " ))
- );end of defun
- ;may 13, 2010
和
- ;This routine is used to mark-up Rebar Steel in BS Standard.
- ;It is set to current dimension style
- ;by:ODEY - may 13, 2010
- ;rev.0
- (defun c:bm(/ strqty strdia strbm strtyp strspc strlayer strbmk strbmrt)
- (setq strqty (getstring "\nEnter Number of Bars : "))
- (setq strdia (getstring "\nEnter Diameter of Bars : "));bar size
- (setq strbm (getstring "\nEnter Bar Mark or <Auto Numbering>: ")); set "bmset" first
- (setq intbm (+ 1 intbm));global
- (if (= strbm "")(setq strbrmk (itoa intbm))(setq strbrmk strbm))
- (setq strtyp (strcase(getstring "\nEnter Steel Type/grade <T> : ")));
- (if (= strtyp "")(setq strgrd "T")(setq strgrd strtyp))
- (setq strspc (getstring "\nEnter Spacing of Bars <none>: "));option if spacing is req'd
- (setq strlayer (strcase (getstring "\nEnter Label/Layer: ")));position of rebar
- (if (= strspc "")(setq strbmk (strcat strqty strgrd strdia "-" strbrmk " " strlayer ));mark-up w/ no spacing req'd
- (setq strbmk (strcat strqty strgrd strdia "-" strbrmk "-" strspc " " strlayer )));mark-up w/ spacing req'd
- (setq strbmrt (getstring "\nRotate Bar Mark [Yes or <No>] :"));option to rotate the bm
- (if(= strbmrt "")(setq intbmrt 0)(setq intbmrt 90))
- (command ".ucs" "z" intbmrt )
- (prompt "/n Pick the Bar")
- ;(command ".clayer" "STR-barmark");option-create Layer for Bar mark first
- (command ".leader" pause pause "" "" "" strbmk "")
- (command ".ucs" "" "")
- );end of defun
| 
