求助修改一个缩放功能的lsp文件

sunny_8848 · 发表于 2020-6-16 22:14

本帖最后由 sunny_8848 于 2020-6-17 10:44 编辑

在论坛下载到一个很实用的在xy方向缩放到指定尺寸的lsp文件，可惜不能指定缩放基点，也不能设置xy方向的默认尺寸，特请热心人帮忙修改下。

xvjiex · 发表于 2020-6-16 22:14

sunny_8848 发表于 2020-6-17 08:12
谢谢帮忙，2010版本运行后出现下面的出错提示

这是原来程序的内容，你原来程序使用应该也遇到这个问题吧？
你在程序开头加上一句：(if (null vlax-dump-object) (vl-load-com) )
你试试。

xvjiex · 发表于 2020-6-16 23:31

本帖最后由 xvjiex 于 2020-6-16 23:36 编辑

已经修改，请试一下。原基点默认是选择集中心，如果右键放弃选择基点，仍然使用选择集中心。x方向距离如果右键放弃，则使用默认值，y方向也一样。

sunny_8848 · 发表于 2020-6-17 08:12

xvjiex 发表于 2020-6-16 23:31
已经修改，请试一下。原基点默认是选择集中心，如果右键放弃选择基点，仍然使用选择集中心。x方向距离如果 ...

谢谢帮忙，2010版本运行后出现下面的出错提示

sunny_8848 · 发表于 2020-6-17 08:19

本帖最后由 sunny_8848 于 2020-6-17 08:31 编辑

另外，我需要缩放后的尺寸在程序里面内置，比如x方向是180，y方向是570，如果接受默认值直接按空格，也可以手工输入。我是用来缩放一个表格或矩形框，不需要炸开

sunny_8848 · 发表于 2020-6-17 08:34

本帖最后由 sunny_8848 于 2020-6-17 08:39 编辑

xvjiex 发表于 2020-6-17 08:30
这是原来程序的内容，你原来程序使用应该也遇到这个问题吧？
你在程序开头加上一句：(if (null vlax-dum ...

可能是办公电脑同时还装了2018版本的原因，2018版本没有这个提示。麻烦您根据我上面的反馈比如内置缩放后的尺寸再修改一下。加了上面代码后
命令: xysc
选择对象: 找到 1 个
选择对象: ; 错误: ActiveX 服务器返回错误: 加载类型库/DLL 时出错。

xvjiex · 发表于 2020-6-17 08:52

本帖最后由 xvjiex 于 2021-2-7 14:45 编辑

原基点默认是选择集中心，如果右键放弃选择基点，

bai2000 · 发表于 2020-6-18 10:31

不错，能把图中现有的文字标注刷成缩放后的尺寸x*Y更好

wudechao · 发表于 2020-6-18 12:02

sunny_8848 发表于 2020-6-17 08:34
可能是办公电脑同时还装了2018版本的原因，2018版本没有这个提示。麻烦您根据我上面的反馈比如内置缩放后 ...

是精简版本CAD问题，你懂的，精简就是少了某些文件。安装完整版本cad，保证100%没有问题。或者也可以搜索论坛的解决方案。

sunny_8848 · 发表于 2020-6-18 15:09

wudechao 发表于 2020-6-18 12:02
是精简版本CAD问题，你懂的，精简就是少了某些文件。安装完整版本cad，保证100%没有问题。或者也可以搜索 ...

谢谢帮忙解答。

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

[源码] 求助修改一个缩放功能的lsp文件