[求助]：LSP编程

lt_zzy · 发表于 2003-4-1 08:38:50

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

有的时候要出很多的图，但一张张的出比较费时间，于是我想到了用程序出图，但是我现在我一个问题没有能够解决，请各位朋友给予帮助。
我现在的问题是不知道如何用LSP程序来拾启图中图纸范围的左下角与右上角坐标（我的图纸里面只有一张图），因为我们现在做的图纸不能够完全统一大小，而且左下角与右上角的坐标往往不能一致。
另外一个问题是：能不能用LSP程序来改变打印时的笔宽。
我用的是CAD14。
谢谢！

zhynt · 发表于 2003-4-1 10:08:06

既然是这样为何不使用cad的批打印？开始－》程序－》Autocad R14－》Batch Plot Utility
不过我从来都没用过，希望用过的朋友给予指点。

xyzjint_cn · 发表于 2003-4-1 10:42:26

Code:
  (princ "\n请选择即将分图的净化图的左下角和右上角:")
  (setq p1 (getpoint "\n第1点："))
  (setq p2 (getpoint "\n第2点:"))
  (setq ly (- (nth 1 p2) (nth 1 p1)))
  (setq ly (abs ly))
  (setq lx (- (nth 0 p2) (nth 0 p1)))
  (setq lx (abs lx))
上面的程序通过选择图的左下角和右上角得到图纸的范围，并且确定图纸长和宽。通过下面的程序示例进行分图
(setq ss (ssget "c" p1 p2 (list (cons 8 "0"))))
  (command "copy" ss "" pt1 pt2 "")
  (setq ss nil)
将“0”图层中的所有图元进行复制至原图下面，pt1 指基准点P1，PT2是根据P1及底图的长度或宽度计算得来的
相应的其它图层只要将“0”改为相应的图层名即可。
每张图将相应的图层复制到下面，通过循环即可将所有的图分离出来（前提是图层必须分细，便于按图层分图）
因为我自己编了一个空调净化方面的自动分图程序，该程序方法虽然编得很繁琐，但还可以用。
有问题请跟贴。

lt_zzy · 发表于 2003-4-1 10:54:52

我所要的是图打开以后用LSP语言编写的程序能够自动识别图纸的左下角与右上角坐标，而不是自己手动输入。然后根据那个范围将图出成图纸。

zhynt · 发表于 2003-4-4 22:01:28

这个嘛实现难度较大，能不能简化一下啊，比如拾取图框（如果图框是封闭的多义线的话）
就简单一些了。

lgh930 · 发表于 2003-4-7 20:41:20

可以将相关的数据存在图中，然后自动提取

xyzjint_cn · 发表于 2003-4-9 08:45:25

你的图框是不是用REC画的矩形，如是的话，可选择所有图中的矩形，用冒泡法求得左下角坐标最小的矩形，就可得到基准图中图框的最外框，取出左下角和右上角的坐标，就可得到基准图的范围。

lijiao · 发表于 2003-4-9 11:54:25

最初由 lt_zzy 发布
[B]有的时候要出很多的图，但一张张的出比较费时间，于是我想到了用程序出图，但是我现在我一个问题没有能够解决，请各位朋友给予帮助。
我现在的问题是不知道如何用LSP程序来拾启图中图纸范围的左下角与右上角坐标（?.. [/B]

可以用变量EXTMIN 和EXTMAX来获取这两个点的坐标。

lijiao · 发表于 2003-4-10 08:16:37

最初由 lt_zzy 发布
[B]有的时候要出很多的图，但一张张的出比较费时间，于是我想到了用程序出图，但是我现在我一个问题没有能够解决，请各位朋友给予帮助。
我现在的问题是不知道如何用LSP程序来拾启图中图纸范围的左下角与右上角坐标（?.. [/B]

用EXTMIN[/COLOR] 和EXTMAX[/COLOR] 变量来获取左下角与右上角坐标。

gxianguo · 发表于 2003-4-19 07:43:10

難度較大

闲云 · 发表于 2003-4-19 21:29:55

用lisp来实现很难，应该用别的语言，如VB等。

XDSoft · 发表于 2003-4-19 21:34:16

XDRX_API,现成的函数,可以获得选择集的最大外框

<normalfont>
169. xdrx_entity_box
功能：求任何实体的包围盒
调用格式：(xdrx_getentitybox <实体名或选择集>...<实体名或选择集>)
返回值：包围盒表(左下点右下点右上点左上点)
说明：若实体名多个或者是选择集，那么求所有实体的最大的包围盒。
</normalfont>

复制代码

梦断江南 · 发表于 2003-4-19 23:54:16

图框做块插入,打印时搜索块,得块大小,对角坐标.用lsp按照对角坐标选择实体来打印

wppan · 发表于 2003-5-1 18:50:49

lt_zzy所说的功能本人已用lisp实现，即能自动批量打印同一个目录下的所有dwg文件，包括自动识别出图范围、出图比例，自动设置笔宽等。

aeo · 发表于 2003-5-1 20:44:17

(vla-GetBoundingBox e1 'MinPoint 'MaxPoint )
(list(vlax-safearray->list MinPoint)(vlax-safearray->list MaxPoint))

r14出图

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

[求助] [求助]：LSP编程

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

得到图纸的界限

能不能根据矩形？

Re: [求助]：LSP编程

Re: [求助]：LSP编程

浏览过的版块