lingduwx 发表于 2013-3-8 09:24 static/image/common/back.gif
谢谢版主，但是不知道为什么，我加载之后输入bsc后，提示未知命令
哎，加载后还是提示未知命令啊，不知道怎么回事
Andyhon 发表于 2013-3-8 12:39 static/image/common/back.gif
Ok here
非常感谢，终于搞定了
lingduwx 发表于 2013-3-8 12:10 static/image/common/back.gif
哎，加载后还是提示未知命令啊，不知道怎么回事
8楼改了。再试试
;;伪源码需要e派工具箱(XCAD)的支持
(defun c:tt (/ lst i s1 bname ft ss s41 s42)
(setq lst '()
sc(UREAL 7 "" "缩放倍数" sc)
i -1
)
(while (and (setq s1 (car (entsel "\n选择图块类型: ")))
(xyp-etype s1 "insert")
)
(redraw s1 3)
(setq bname (xyp-DXF 2 s1))
(if (not (member bname lst))
(setq lst (cons bname lst))
)
)
(princ "\n选择处理区域: ")
(if lst
(setq ft (xyp-strcat lst ",")
ss (ssget (list '(0 . "INSERT") (cons 2 ft)))
)
(setq ss (ssget '((0 . "INSERT"))))
)
(if ss
(while (setq s1 (ssname ss (setq i (1+ i))))
(command "scale" s1 "" (xyp-DXF 10 s1) sc)
)
)
(princ)
)
ZZXXQQ 发表于 2013-3-8 23:31 static/image/common/back.gif
8楼改了。再试试
不知道怎么回事还是不行，Andyhon改了那个可以用
悬赏了，但是不知道怎么把币给对方（哪位朋友知道麻烦指点一下），小弟在这里谢谢大家的热心帮助哈
哎，就是，大家都很热心，选择最佳答案真的好难，主要是只能选一个，要是能选几个就好了！
本帖最后由 香田里浪人 于 2014-7-4 20:30 编辑
7楼程序改了是可以用,可是需要选择对象2次(第一次选择实际没有用)
;****************************************************
; 多块同时缩放
;****************************************************
(defun c:tksf ()
(command "_.undo" "_begin")
(setq old_err *error* *error* Sb_err)
(if (and
(setq ss (ssget '((0 . "INSERT")))))
(progn
(setq i 0 bnm (cdr(assoc 2 (entget(ssname ss 0)))))
(repeat (1- (sslength ss))
(setq ent (entget(ssname ss (setq i (1+ i))))
bnm (strcat bnm "," (cdr(assoc 2 ent))))
)
(initget 7)
(setq blkfactor (getreal "\n请输入缩放倍数:"))
(setq blksset (ssget (list (cons 0 "INSERT") (cons 2 bnm))))
(setq donecount 0)
(repeat (sslength blksset)
(setq temp (ssname blksset donecount))
(setq templist (entget temp))
(setq blkbasept (cdr (assoc 10 templist)))
(command "scale" temp "" blkbasept blkfactor ^c)
(setq donecount (1+ donecount))
)
))
(command "_.undo" "_end")
(princ)
)
大神们太赞了~~
谢谢分享