[编程交流] 按命令行“缩放X-Y-Z”

(defun c:spd  (/ sp p)
 ;; Tharwat 15.Feb.2016 ;;
 (setq sp
        (vlax-get (vla-get-activelayout
                    (vla-get-ActiveDocument (vlax-get-acad-object)))
                  'Block)
       )
 (if (tblsearch "BLOCK" "spotd")
   (while (setq p (getpoint "\nSpecify point :"))
     (vla-put-textstring
       (car (vlax-invoke
              (vla-insertblock
                sp
                (vlax-3d-point p)
                "spotd"
            [color="red"]    0.8
                0.8
                0.8[/color]
                0.0)
              'getattributes))
       
(rtos (/ (cadr p) 1000.) 2 2)
       )
     )
   )
 (princ)
 )(vl-load-com)

"\nSpecify the scale :"

(defun c:spd (/ sp p sc)
 ;; Tharwat 15.Feb.2016 ;;
 (setq sp
        (vlax-get (vla-get-activelayout
                    (vla-get-activedocument (vlax-get-acad-object))
                  )
                  'block
        )
 )
 (if (tblsearch "BLOCK" "spotd")
   (if (setq sc (getreal "\nSpecy scale of block :"))
     (while (setq p (getpoint "\nSpecify point :"))
       (vla-put-textstring
         (car (vlax-invoke
                (vla-insertblock
                  sp
                  (vlax-3d-point p)
                  "spotd"
                  sc
                  sc
                  sc
                  0.0
                )
                'getattributes
              )
         )
         (rtos (/ (cadr p) 1000.) 2 2)
       )
     )
   )
   (princ
     "\nBock name 'spotd' os not found in current drawing <!>"
   )
 )
 (princ)
)(vl-load-com)

(if (= horiz nil)
   (progn (setq horiz 100)
   (prompt "\nEnter Horizontal scale <-ve to reset> :<")
   (prin1 horiz)
   (prompt ">:")
   (setq newhoriz (getint))
(cond 
((= newhoriz nil)(PRINC "\N"))
((< newhoriz 0)(setq horiz nil)(alert "do xfp again values have been reset")(exit))
((/= newhoriz nil)(setq horiz newhoriz))
)