请教meflying版主!

yybu

请教meflying版主:
   我想对图中一些同名块以插入点进行缩放,该如何在LISP中构造选择集!?

BDYCAD

剛看你的貼, 剛寫一個, 可以合你用的,試試看 . 呵呵 :D



ROGRAM MAKE DATE 2003-12-27
(defun c:test( / blockname os ss ssa scale i a pt1)
  (setq os (getvar "osmode"))(setvar "osmode" 0)(setvar "cmdecho" 0)
  (setq blockname (getstring "\n請輸入要scale圖塊的名或回車選擇塊:"))
  (if (= blockname "")
    (setq ss (ssget '((0 . "INSERT"))))
    (setq ssa (ssget "x" (LIST (CONS 0 "INSERT")(CONS 2  blockname)))))
  (IF (= ssa nil )(setq ssa (ssget "x" (LIST (CONS 0 "INSERT")(assoc 2 (entget(ssname ss 0)))))))
  (setq scale (getdist "\n輸入縮放比例:"))
  (setq i 0)
  (command "_.undo" "_group")
  (Repeat (sslength ssa)
    (setq a (ssname ssa i))
    (setq pt1 (cdr (assoc 10 (entget a))))
    (command ".scale" a "" pt1 scale )
    (setq i (1+ i)))
  (command "_.undo" "_end")
  (setvar "osmode" 1)(setvar "cmdecho" 1)
  (princ "\r進行同名塊縮放功能運行成功了, 歡迎使用哦.")
  (princ))

luoyaya

应该在一个选择集里再过滤,要不然我可能是想一部分的块进行缩放,而不是文件里所有的块对吧:)

yybu

好用!!谢谢了!BDYCAD版主.
    祝大家新年快乐!!

BDYCAD

三樓的意思我也寫過. 但是如果和你的意思一個樣. 那程序就不用設給用輸入塊名的. 如做的通用點就要寫成由用戶自行選擇圖塊進行縮放. 但是我認為根據圖塊日常使用的習慣(同一個名的圖塊的外形大小和屬性應是一樣), 因我考慮多數人在圖中同名的圖塊都是統一大小.  所以這樣子就比較合用吧.  
           另外三樓的提議很好. 呵呵 :D