乐筑天下

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

[编程交流] 仅分解坐标尺寸

[复制链接]
lamensterms

77

主题

298

帖子

232

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
394
发表于 2022-7-6 06:46:45 | 显示全部楼层 |阅读模式
嘿伙计们，
 
我需要分解DWG中的所有坐标尺寸（X和Y）。我认为这足够简单，但我无法让选择集过滤器列表工作。
 
我的代码是：
 
  1. (defun c:eo ()
  2. (setq ss (ssget "X" '((70 . 6))))
  3. (command "explode" ss)
  4. (princ)
  5. )

 
我只是想知道你们中是否有人可以看看，让我知道我做错了什么？
 
谢谢。
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 07:01:17 | 显示全部楼层 
  1. (ssget "_x"
  2.       '((0 . "DIMENSION") (-4 . "<OR") (70 . 38) (70 . 102) (70 . 166) (-4 . "OR>"))
  3. )

 
哎呀。。误读标题
 
  1. (if (setq 
  2.          ss  (ssget "_x" '((0 . "DIMENSION")))
  3.    )
  4.  (repeat (setq i (sslength ss))
  5.           (if (Eq (vla-get-ObjectName (vlax-ename->vla-object (setq e (ssname ss (setq i (1- i))))))
  6.                   "AcDbOrdinateDimension"
  7.               )
  8.             (command "_explode" e )
  9.           )
  10.         )
  11.         
  12.  )
回复

使用道具 举报

lamensterms

77

主题

298

帖子

232

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
394
发表于 2022-7-6 07:14:38 | 显示全部楼层
非常感谢pBe的回复。
 
您提供的AutoLISP代码可以工作，但一次只能处理一项。我看不出任何明显的原因来解释为什么会这样……恐怕我不理解您提供的选择集过滤器列表。
 
我的部分工作代码是：
 
  1. (defun c:eo ()
  2. (setq ss (ssget "_x" '((0 . "DIMENSION") (-4 . "<OR") (70 . 38) (70 . 102) (70 . 166) (-4 . "OR>"))))
  3. (command "EXPLODE" ss)
  4. (princ)
  5. )

 
你能看到导致例程只对单个项目进行操作的原因吗？
 
谢谢你的帮助，伙计。
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 07:23:14 | 显示全部楼层 
  2. (defun c:eo ()
  3. [b]  (setvar 'qaflags 1)[/b]
  4.  (if (Setq ss (ssget "_x" '((0 . "DIMENSION") (-4 . "<OR") (70 . 38) (70 . 102) (70 . 166) (-4 . "OR>"))))
  5.   (command "_explode" ss ""))
  6.             
  7. [b]  (setvar 'qaflags 0)[/b]
  8. (princ)
  9. )
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-6 07:38:50 | 显示全部楼层
我希望所有选定的维度都不会位于锁定层上。
回复

使用道具 举报

lamensterms

77

主题

298

帖子

232

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
394
发表于 2022-7-6 07:55:18 | 显示全部楼层
太棒了，非常感谢pBe。
 
Tharwat-大多数情况下，该例程将在添加坐标维度后立即使用，因此希望它们永远不会位于锁定层上。
 
谢谢大家。
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-10 15:07 , Processed in 0.958871 second(s), 64 queries .

© 2020-2025 乐筑天下

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