[测试]：一键快速打印的lsp，请ll_j、它山之石、xyp1964还有斑竹来看看

它山之石

最初由 贱人 发布
[B]开始怀疑我的机器不正常
命令: wplot
*** 模型空间批量打印软件V050222 ***
        [晓东论坛作品]; 错误: no function definition: XDRX_ENTSEL [/B]

        不好意思，俺用到了一个晓东API中的函数XDRX_ENTSEL，你中要加载xdrx_api14.arx就可以了。

1. 
   
2. xdrx_entsel
   
3. 
   
4. 功    能：单选符合过滤表条件的实体，LISP 函数(entsel)的增强。并将该实体的(entget)实体数
   
5.           据存入XDRX内部数据库的ARX变量，供相关函数调用。
   
6. 
   
7. 调用格式：(xdrx_entsel <提示字符串> [英文层名或中文索引层名] [实体选择项] [SSGET过滤表])
   
8. 
   
9. 说    明：1.若提供SSGET过滤表如'((8 . "a*")(0 . "*line")...),若SSGET过滤表中提供层组码8,
   
10.             则忽略前面的[英文层名或中文索引层名]。
    
11.             若SSGET过滤表中没有提供层组码8，若前面设置了 [英文层名或中文索引层名]，则将
    
12.             英文层面用(cons 8 ename)，若中文索引，则求出中文索引对应的英文层名后，加入
    
13.             SSGET过滤表中。
    
14.           2.[实体选择项] 值为0，1，2， 若给其他值，函数返回NIL退出。
    
15.           3.[实体选择项]含义：（不提供，默认为0）
    
16.             若符合条件的实体不是一个（如有重复实体，或拾取框中范围符合条件的实体多于一个）
    
17.                 0：返回任意一个符合条件的提示和最近捕捉点
    
18.                 1：弹出选项 请选取符合条件的实体/X-退出/Y-确定/<下一个>:
    
19.             若输入X,则退出函数，返回NIL.
    
20.             若输入Y,则返回当前亮显的实体名和最近捕捉点
    
21.             输入回车（或鼠标右键），则循环亮显实体，供用户选择，直到输入Y确认为止。
    
22. 
    
23. 提    示: 允许配合使用函数(initget)。
    
24. 
    
25. 返 回 值：成功返回表(图元名 最近捕捉点), 失败返回 nil。
    
26. 
    

复制代码

贱人

它兄啊，别搞那么复杂啊，能不能把４楼的那个你试成功的lsp传上来，我索性把我机器里的打印机、样式按你的lsp里的改，只想通过一次

gsxhl

对新手有用吗？

它山之石

最初由 贱人 发布
[B]它兄啊，别搞那么复杂啊，能不能把４楼的那个你试成功的lsp传上来，我索性把我机器里的打印机、样式按你的lsp里的改，只想通过一次 [/B]

　　你如果不想加载晓东API，只要将15楼程序中的xdrx_entsel函数替换成CAD中标准的entsel函数即可。
　　这很复杂吗？俺只是觉得你那个程序功能需要增强才修改的。
    另外，4楼的程序就可以运行正确，而且提供的是源码。俺刚又试了一下。关键你要输入正确的图框的图块名。直接回车的话就是程序隐含的“BASE”图块，可能会出错。

fundoll

请问 (setq ss (ssget "x" (list '(0 . "INSERT") (cons 2 BlkName))))

其中(0 . "INSERT") 是层的组码吗？

它山之石

8是层，0是实体类型

fundoll

我的块参照是*U18  ， 有'(0 . "INSERT") 时选不中，

为什么(setq ss (ssget "x" (list (cons 2 BlkName))))还会出错？

它山之石

你可以将过滤图层的语句注释掉。
[php]
(setq        BlkName        (car (xdrx_entsel
                       "\n选择图框<回车点选打印范围>"
                       '((0 . "INSERT") (8 . "TK"))
                     ) ;_ 结束xdrx_entsel
                ) ;_ 结束car
  ) ;_ 结束setq
[/php]
改为
[php]
  (setq        BlkName        (car (xdrx_entsel
                       "\n选择图框<回车点选打印范围>"
                       '((0 . "INSERT") )
                     ) ;_ 结束xdrx_entsel
                ) ;_ 结束car
  ) ;_ 结束setq
[/php]

fundoll

谢谢它山之石：

其它都正常了，就下面这条语句“选择总是 nil ”
(setq ss (ssget "x" (list '(0 . "INSERT") (cons 2 Blk_Name))))

(ACAD2002环境下其它版本下没试过)程序很有用，只有全部打印搞不定。

它山之石

俺用的很正常，没有你说的问题。
你运行程序时命令行是否出现了以下提示：
“图形文件中共有名为 [ A1 ] 的图框 2 个”


你可以跟踪一下“Blk_Name”变量。
或(cons 2 Blk_Name)的值。

fundoll

Blk_Name 变量的值为 "*U18" 正常.

*U18是块参照,不是(0 . "INSERT")类型吗?

它山之石

晕，“*U18”是无名块。
你可以搜一下论坛，关于无名块有很多主题。
你插入的图框总有正式的块名吧。
换个图块试试吧。

秋枫

对于打印的操作，我建议使用Vlisp的ActiveX/COM接口，用命令接口变化太复杂了。

我这里有一个做得比较完整的模型空间批量程序，有对话框，使用Vlisp实现。如果只是要用用的话，可以试试：
http://quelea.w3.zccn.net/blogview.asp?logID=41&cateID=2

e2002

vla-getboundingbox在矩形对象与UCS非正交状态下,返回结果是不对的.
所以按上面的这些程序,还不能完全达到实际工作的要求,需要作进一步的改进.

我以前写的和这个类似的(可以任意角度任意比例,任意或指定图框的BlockName,指定比例自动出图比例...)至今没有最后完善,是自己太懒了...

它山之石

　　两位斑主所言极是，这个程序通用性不好。秋枫斑主的程序俺也有用过。不过俺认为这个小程序完全满足了俺自己的打印要求。合适的就是最好的。正可谓是杀鸡不用宰牛刀。更何况还有些收钱的所谓商业或共享软件。不合吾意，当然放弃。