如图，请教各位老师多边形如何单向缩放？

tender138

请教各位老师多边形如何单向缩放？

masterlong

做成块以后改x或y比例

tender138

谢谢！请问具体怎么操作？

masterlong

你应该是会lsp的
结合command命令
实现要求应该不难吧

tender138

非常感谢各位，东拼西凑如下，请各位老师指正，谢谢！！！

(defun c:tt ( / Vosmode ent pts pt1 pt2 cpt1 cpt2 clen xlen bl blna ss tmp)
  (setq Vosmode (getvar "osmode"))
  (setq ent (entsel "\n多边形底边："))
  (setq cpt1 (getpoint "\n多边形顶点："))
  (if (= PoGaoDu nil) (setq PoGaoDu 2000))
  (setq tmp (getint (strcat "\n抬起高度(mm)<" (itoa PoGaoDu) ">：")))
  (if tmp (setq PoGaoDu tmp) (setq PoGaoDu PoGaoDu))
  (setq pts (selpt ent))
  (setq pt1 (car pts))
  (setq pt2 (cadr pts))
  (setq cpt2 (perPoint cpt1 pt1 pt2))
  (setq clen (distance cpt1 cpt2))
  (setq xlen (sqrt (+ (* clen clen) (* PoGaoDu PoGaoDu))))
  (setq bl (/ xlen clen))
  (command ".UNDO" "BE")
  (if ent
    (progn
      (setvar "osmode" 0)
      (setq blna "BlockName")
      (if (= (tblsearch "BLOCK" blna) nil)
        (command "-block" blna pt1 ent "")
        (command "-block" blna "Y" pt1 ent "")
      )
    )
  )
  (command "-insert" blna pt1 "" "" "")
  (setq ent (entlast))
  (if (= (fix (car pt1)) (fix (car pt2)))
    (entmod (append (entget ent) (list (cons 41 bl))))
    (entmod (append (entget ent) (list (cons 42 bl))))
  )
  (command "explode" ent "")
  (setq ss (ssget "p"))
  (command "._Pedit" "M" SS "" "J" "1" "")
  (command "_.chprop" (entlast) "" "_la" (getvar "clayer") "_c"  (getvar "cecolor") "")
  (if (= (fix (car pt1)) (fix (car pt2)))
    (progn
      (if (> (fix (car pt1)) (fix (car cpt1)))
        (command "_move" (entlast) "" pt1 (strcat "@" (rtos (- xlen clen) 2 5) ",0"))
        (command "_move" (entlast) "" pt1 (strcat "@" (rtos (- clen xlen) 2 5) ",0"))
      )
    )
    (progn
      (if (> (fix (cadr pt1)) (fix (cadr cpt1)))
        (command "_move" (entlast) "" pt1 (strcat "@0," (rtos (- xlen clen) 2 5)))
        (command "_move" (entlast) "" pt1 (strcat "@0," (rtos (- clen xlen) 2 5)))
      )
    )
  )
  (command ".UNDO" "E")
  (if Vosmode (setvar "osmode" Vosmode))
  (princ)
)

tender138

需要这么复杂吗？

masterlong

跟我想像的有点不太一样啊  

masterlong

做块  插块  缩放  改比例  炸开  应该没几句代码才对

tender138

masterlong 发表于 2018-7-12 22:48
做块  插块  缩放  改比例  炸开  应该没几句代码才对

  这就是高手跟菜鸟的区别

masterlong

其实你的程序也不差了
缩放倍数是计算得来的
最后的移动也是计算出来的
因为不知道你最终要求的结果是啥
所以没法对这两部分点评

下面代码仅供参考
(defun c:tt()
        (if (and
                                (setq pt (getpoint))
                                (setq ss (ssget))
                 )
                 (progn
                                 (setvar "cmdecho" 0)
                                 (setvar "qaflags" 0)
                                 (command "undo" "g")
                                 (setq blknm (menucmd "M=$(edtime,$(getvar,date),自动块__YYMODDhhmmss)"))
                                 (command "block" blknm "non" pt ss "")
                                 (command "insert" blknm "non" pt 1 1 0)
                                 (setq ent (entlast))
                                 (command "scale" ent "" "non" pt "r" "non" pt pause pause)
                                 (entmod (list (cons -1 ent)(cons 41 1)))
                                 (entupd ent)
                                 (command "explode" ent)
                                 (setq ss (ssget "p"))
                                 (command "pedit" "m" ss "" "y" "j" 1 "")
                                 (command "undo" "e")
                 )
        )
(princ)
)