wary faraj 发表于 2022-7-6 07:33:38

请帮助我，我想缩放马

大家好。。。
 
请帮助我，我想缩放大量对象，缩放后它们仍保持在其位置。。。。
请帮忙。。。我真的很感谢你对我的帮助，很抱歉，因为我是Auto Lisp的初学者

Tharwat 发表于 2022-7-6 07:53:13

这些物体是什么？

wary faraj 发表于 2022-7-6 07:54:20

它们是线条，有时是多行文字
非常感谢。

Tharwat 发表于 2022-7-6 08:12:55

 

(defun c:test (/ ss sc in sn)
;; Tharwat 09 . 09 . 2012 ;;;
(if (and (setq sc (getdist "\n Specify scale factor :"))
          (setq ss (ssget "_:L" '((0 . "LINE,MTEXT"))))
   )
   (progn
   (setvar 'cmdecho 0)
   (repeat (setq in (sslength ss))
       (setq sn (ssname ss (setq in (1- in))))
       (vl-cmdf "_.scale"
                sn
                ""
                (if (eq (cdr (assoc 0 (entget sn))) "LINE")
                  (mapcar (function (lambda (p q) (/ (+ p q) 2.)))
                        (cdr (assoc 10 (entget sn)))
                        (cdr (assoc 11 (entget sn)))
                  )
                  (cdr (assoc 10 (entget sn)))
                )
                sc
       )
   )
   (setvar 'cmdecho 1)
   )
   (princ)
)
(princ)
)

wary faraj 发表于 2022-7-6 08:20:02

非常感谢你，兄弟，你太棒了！！！
我真的很感谢你的帮助再次感谢你。

Tharwat 发表于 2022-7-6 08:29:46

不用客气，小心点。

Lee Mac 发表于 2022-7-6 08:37:38

这可能对一般情况有意义：
 
http://www.cadtutor.net/forum/showthread.php?68761-Looking-for-a-LISP-which-SCALE-objects-with-its-own-center-point&p=470405&viewfull=1#post470405
页: [1]
查看完整版本: 请帮助我，我想缩放马