Autocad yazıları aynı oranda büyütme veya küçültme lispi - Metraj Lispi

Bu lisp ile AutoCAD yazılarını belirli oranda büyütebilir veya küçültebilirsiniz.

Autocad lisp kodlar

(defun c:YAZI-BUYUT ( / ll sel obj ur )
    (initget 6)
    (if
        (and
            (setq *scl*
                (cond
                    (   (getdist (strcat "\n Yazi buyutme katsayisi secin" (if *scl* (strcat " <" (rtos *scl* 2) ">: ") ": "))))
                    (   *scl*   )
                )
            )
            (ssget "_:L")
        )
        (progn
            (vlax-for obj (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
                (if (null (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list obj 'll 'ur))))
                    (vla-scaleentity obj
                        (vlax-3D-point
                            (mapcar '(lambda ( a b ) (/ (+ a b) 2.0))
                                (vlax-safearray->list ll)
                                (vlax-safearray->list ur)
                            )
                        )
                        *scl*
                    )
                )
            )
            (vla-delete sel)
        )
    )
    (princ)
)
(vl-load-com) (princ)

Lisp dosyasını oluşturmayı ve AutoCAD"e yüklemeyi bilmiyorsanız. Lispi bilgisayara kaydetmek ve AutoCAD"e yüklemek için AutoCAD lisp dosyasını kaydetme ve yükleme nasıl yapılır yazısını okuyun

- Komut satırına YAZI-BUYUT komutunu girin