请求高手帮忙写一个图块批量放大程序，谢谢！

lingduwx · 发表于 2013-3-8 12:10:08

lingduwx 发表于 2013-3-8 09:24
谢谢版主，但是不知道为什么，我加载之后输入bsc后，提示未知命令

哎，加载后还是提示未知命令啊，不知道怎么回事

lingduwx · 发表于 2013-3-8 13:55:34

Andyhon 发表于 2013-3-8 12:39
Ok here

非常感谢，终于搞定了

ZZXXQQ · 发表于 2013-3-8 23:31:39

lingduwx 发表于 2013-3-8 12:10
哎，加载后还是提示未知命令啊，不知道怎么回事

8楼改了。再试试

xyp1964 · 发表于 2013-3-9 07:50:23

;;伪源码需要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)
)

lingduwx · 发表于 2013-3-13 13:06:33

ZZXXQQ 发表于 2013-3-8 23:31
8楼改了。再试试

不知道怎么回事还是不行，Andyhon改了那个可以用

lingduwx · 发表于 2013-3-15 18:15:24

悬赏了，但是不知道怎么把币给对方（哪位朋友知道麻烦指点一下），小弟在这里谢谢大家的热心帮助哈

lingduwx · 发表于 2013-3-15 22:38:18

哎，就是，大家都很热心，选择最佳答案真的好难，主要是只能选一个，要是能选几个就好了！

香田里浪人 · 发表于 2014-7-4 20:27:33

本帖最后由香田里浪人于 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)
)

小萱子mmmya · 发表于 2015-6-24 15:53:09

大神们太赞了~~

start4444 · 发表于 2016-7-4 15:37:00

谢谢分享

账号		自动登录	找回密码
密码			注册

请求高手帮忙写一个图块批量放大程序，谢谢！

点评