乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 13|回复: 2

[编程交流] 输入命令激活zoo

[复制链接]

1

主题

1

帖子

0

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-5 20:01:51 | 显示全部楼层 |阅读模式
我一直在试图用别人提供的命令编辑我的图形块,以设置所有块的标准:
 
  1. (vl-load-com)
  2.   (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  3.    (vla-startundomark adoc)
  4.    (vlax-for block (vla-get-blocks adoc)
  5.         (if   (not (wcmatch (strcase (vla-get-name block) t) "*_space*"))
  6.              (vlax-for ent block
  7.     (vla-put-color ent 0)
  8.       (vla-put-linetype ent "Bylayer")
  9.        (vla-put-lineweight ent aclnwtbyblock)
  10.       ) ;_ end of vlax-for
  11.              ) ;_ end of if
  12.       ) ;_ end of vlax-for
  13.    (vla-regen adoc acactiveviewport)
  14. (vla-endundomark adoc)

 
出于某种原因,每次我使用这个命令时,它都只运行“缩放”命令。
我有一次成功地使用了这个命令,但再也没有了。有人能告诉我为什么会这样吗?
 
我正在更改250多个需要此块修复的图形。
感谢您的帮助!
 
*编辑:它正在重新激活我的上一个命令,zoom恰好是使用的上一个命令。
回复

使用道具 举报

4

主题

2143

帖子

2197

银币

限制会员

铜币
-24
发表于 2022-7-5 20:35:32 | 显示全部楼层
我将你的帖子转移到AutoLISP、Visual LISP和DCL论坛。
 
请阅读代码发布指南并编辑您的帖子,将代码包含在代码标签中。
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 21:26:22 | 显示全部楼层
欢迎来到CADTutor
 
您发布的代码没有定义命令(它只是一组独立的AutoLISP表达式);您需要将表达式括在defun表达式中,以便定义可以在命令行计算的命令。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-12 01:12 , Processed in 0.706596 second(s), 58 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表