然而，你应该发布你的发现；可能会帮助其他人。 事实上，我有点犹豫要不要把它贴在这里，因为你知道这将是我第一次养成这样的习惯，我认为这不值得分享。好吧，不管怎么说，像我这样的新手欢迎批评。
(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 :"));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
以（princ）结束这个程序怎么样。
（即删除末尾的“nil”）
页:
1
[2]