请帮助我，我想缩放马

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

[编程交流] 请帮助我，我想缩放马

发表回复

精选推荐