[LISP函数]：求高手编程,很好的想法哦!

pipi002004

我不是高手,只会用点cad,却老是遇到问题,这给了我许多很好的想法,
求高手编一个lisp ,完成的功能,1,使得选中的图形(包括多个)   在原地缩放,2,可以记忆输入的比例因子
3,特别是多个不等直径的圆在一起 在园地缩放 ,可能需要点时间,关键是类型很多,先谢谢了


发帖请注意标题要清晰明了，让别人容易明白你你要问的问题。WKAI

cy956

归纳缩放规律先。

czg09180274

你说的原地缩放，不大好理解，
若要指定基准点不如直接用“SC”来得快
不指定基点那以哪个点进行操作比较具有适用性（如对不规则图形操作）？
要是通用性不强，似乎写起来就没有多大意思了

lh869

不规则的图形是有点困难，应为不好找到基准点，本人这里有个批量圆同时缩放的程序，不妨试一试！
原代码如下：
(defun C:000 ()
  (prompt "\nchange the circle was selected:")
  (SETQ SC (GETREAL "\nscale:"))
  (setq sset (ssget))
  (setq        ssl   (sslength sset)
        nsset (ssadd)
  )
  (if (> ssl 25)
    (princ "\nvalidate the circle was selected  -- waiting... ")
  )
  (while (> ssl 0)
    (setq temp (ssname sset (setq ssl (1- ssl))))
    (if        (= (cdr (assoc 0 (entget temp))) "CIRCLE")
      (ssadd temp nsset)
    )
  )
  (setq        sslen (sslength nsset)
        sset  nsset
        unctr 0
  )
  (print sslen)
  (princ " circle.")
  (while (> sslen 0)
    (setq ent (entget (ssname sset (setq sslen (1- sslen)))))
    (redraw (cdr (assoc -1 ent)) 3)
    (setq nt (* SC (cdr (assoc 40 ent))))
    (redraw (cdr (assoc -1 ent)) 1)
    (entmod (subst (cons 40 nt) (assoc 40 ent) ent))
  )
  (princ)
)

pchx

鼠标滚轮已经做的很方便了，个人觉得已经足够!

lh869

根据一楼的要求，在比例缩放时要记忆先前输入的比例因子，本人在此还有一个程序可供参考，希望大家多提宝贵意见！
原代码如下：
(defun c:666(/ ss)
  (if (not #scal)
      (setq #scal (getreal "\nInput the scale vaule: "))
  );;end if
  (princ (strcat "\nThe current scale is: " (rtos #scal 2 3)))
  (princ "\nIf you want to change scale, you can type command SCAL")
  (setq ss (ssget))
  (command "_scale" ss "" pause #scal)
)
(defun c:888(/ temp)
  (if (not #scal) (setq temp 0.0 #scal 1) (setq temp #scal))
  (setq temp (getreal (strcat "\nInput the new value of #scal <"
                                (rtos temp 2 3) ">:")))
  (if temp (setq #scal temp))
  (princ (strcat "\nThe new value of #scal is :  "))
  (princ (rtos #scal 2 3))
  (princ)
)