dabaishu1 发表于 2009-5-25 10:26:00

[求助]怎样把一个图中的块存储为幻灯片文件

<p>请问,怎样能把一个图中的块存储为幻灯片文件。</p><p>只用程序，能实现这功能么？</p>

hxuerong1 发表于 2020-4-16 22:13:23


我回复帖子数不到5.

yerenyu@qq.com 发表于 2020-6-11 15:04:11

看看怎么样

dabaishu1 发表于 2009-5-25 10:40:00

我想把块显示在对话框上，所以需要幻灯片文件。

aeo000000 发表于 2009-5-25 21:40:00

<p></p><p>erase all</p><p>-------------1</p><p>insert </p><p>zoom e</p><p>mslide</p><p>undo</p><p>-----------------2</p><p>repeat 1---2</p>

dabaishu1 发表于 2009-5-26 10:20:00

<p>哦,明白了!</p><p>太感谢了!</p>

ZZXXQQ 发表于 2009-5-26 19:43:00

本帖最后由 作者 于 2009-5-27 21:49:45 编辑

试试看。对图中块自动生成幻灯片。

;将图中块生成幻灯文件 明经 ZZXXQQ 2009.5.26
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq ss (ssget "X" '((0 . "INSERT")))) (progn
(setq i 0 blkname (list))
(repeat (sslength ss)
   (setq ent (entget(ssname ss i))
         i (1+ i)
         bnm (cdr(assoc 2 ent)))
   (if (not (member bnm blkname)) (setq blkname (cons bnm blkname)))
)
(setq i 0 blkname (reverse blkname))
(vl-load-com)
(repeat (length blkname)
   (setq bnm (nth i blkname)
         i (1+ i)
         ss (ssget "X" (list '(0 . "INSERT") (cons 2 bnm)))
         en (entname ss 0))
   (vla-getboundingbox (vlax-ename->vla-object en) 'minpoint 'maxpoint)
   (setq pmax (vlax-safearray->list maxpoint)
         pmin (vlax-safearray->list minpoint))
   (command ".zoom" "w" pmin pmax"._mslide" bnm".zoom" "p")
)
))
(setvar "CMDECHO" 1)
(princ)
)

totoro 发表于 2009-5-26 22:55:00

<p>不能运行出现错误!</p><p>no function definition: ENTNAME</p><p>大大非图块也可以制作那最好~</p>

dabaishu1 发表于 2009-5-27 09:44:00

<p>我回复帖子数不到5.</p>

dabaishu1 发表于 2009-5-27 09:44:00

<p>我回复帖子数不到5.</p>

ZZXXQQ 发表于 2009-5-27 21:53:00

函数敲错了，5楼已改。再试试。

totoro 发表于 2009-5-27 23:32:00

版大程序一样阿~~
页: [1] 2 3
查看完整版本: [求助]怎样把一个图中的块存储为幻灯片文件