明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 15512|回复: 67

[【Gu_xl】] 【Gu_xl】关于在CAD2004中Vla-offset 函数使用的奇怪问题?

  [复制链接]
发表于 2010-7-21 09:56:00 | 显示全部楼层 |阅读模式
本帖最后由 Gu_xl 于 2013-6-11 10:48 编辑

AutoCAD2004下,使用函数 Vla-offset 对多段线 LWPOLYLINE 进行偏移时,命令代码
代码:

(vla-offset (vlax-ename->vla-object (car (entsel))) 0.1)

当多段线坐标x、y大于10000时,偏移后,原多段线自动被挪到0,0坐标位置,其他曲线没有此现象,我百思不得其解!在2002版本线又运行正常,不知有那位高人能给指点一二!不胜感谢!
"觉得好,就打赏"
还没有人打赏,支持一下

本帖被以下淘专辑推荐:

 楼主| 发表于 2010-7-22 08:48:00 | 显示全部楼层

沉了,自己顶一下,这个问题怎么就没人知道呢!

发表于 2010-7-22 09:27:00 | 显示全部楼层

这是BUG。在OFFSET前,先自我复制后,再偏移,再把原对象删除。

 楼主| 发表于 2010-7-22 09:30:00 | 显示全部楼层
哦!谢谢明总!那就没办法喽!有没有解决的办法?还是就只能不用vl-offset命令了?
 楼主| 发表于 2010-7-22 09:53:00 | 显示全部楼层
本帖最后由 Gu_xl 于 2013-3-19 21:23 编辑

终于想到解决办法了,就是自定义一下偏移命令函数


  1. (defun gxl-Offset (obj d / Flag minpoint maxpoint acadver rtn)
  2.   (setq acadver (substr (getvar "acadver") 1 2))
  3.   (vla-GetBoundingBox obj 'minpoint 'maxpoint)
  4.   (setq maxpoint (vlax-safearray->list maxpoint))
  5.   (if (or (>= (abs(car maxpoint)) 10000.0)(>= (abs(cadr maxpoint)) 10000.0))
  6.     (setq Flag t)
  7.     )
  8.   (cond ((and flag (= "16" acadver) (= (vla-get-ObjectName obj) "AcDbPolyline"))
  9.   (vla-move obj minpoint (vlax-3d-point '(0 0 0)))
  10.   (setq rtn (VL-CATCH-ALL-APPLY 'vla-Offset  (list obj d)))
  11.   (if (not (VL-CATCH-ALL-ERROR-P rtn))
  12.     (progn
  13.   (vla-move obj (vlax-3d-point '(0 0 0)) minpoint)
  14.   (vla-move (vlax-ename->vla-object (entlast)) (vlax-3d-point '(0 0 0)) minpoint)
  15.   )
  16.     )
  17.   rtn
  18.   )
  19. (t
  20.   (VL-CATCH-ALL-APPLY 'vla-Offset  (list obj d))
  21.   )
  22. )
  23.   )

发表于 2011-6-9 01:23:09 | 显示全部楼层
受教了.谢谢
发表于 2011-6-9 09:21:12 | 显示全部楼层
感谢Gu_xl版主分享程序,学习了!
发表于 2012-5-17 17:31:16 | 显示全部楼层
这个bug很困扰人那
发表于 2012-5-17 17:57:15 | 显示全部楼层
感谢,好像是两年前的帖子哦
发表于 2012-5-17 18:55:12 来自手机 | 显示全部楼层
向G版主学习。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-22 21:41 , Processed in 0.205610 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表