[编程交流] 仅当S

(DEFUN C:REVUPTEST ( / )
(setq ss (ssget "all" '((0 . "INSERT") (66 . 1) (2 . "*REVISIONS"))))
(cond 
((null ss)
(ALERT "Incorrect revision block quantity, please check Drawing!\n\n(No (zero) revision blocks were detected in this drawing)")
)
((= (sslength ss) 1)
(SETQ NBASE (POLAR '(0 0 0) (* PI (/ 90 180.0)) (* (GETVAR "DIMSCALE") 5)))
(COMMAND "COPY" SS "" "0,0,0" NBASE)
(setq ruPt1 '( 0 0 0))
(command "copybase" RUpt1 SS "" "pasteblock" RUpt1 "erase" "p" "")
)
((> (sslength ss) 1)
(ALERT "Incorrect revision Blocks, please check Drawing!\n\n(There may be too many, or not enough revision blocks within drawing - there can only be one!)")
)
)
(PRINC)
)