明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 687|回复: 4

请帮忙修正一下

[复制链接]
发表于 2024-9-12 14:38:37 | 显示全部楼层 |阅读模式
(defun c:scbz ()
  (setq ss (ssget "X" ' ((0. "DIMENSION") (2. "DIMDIAMETER"))))          
    (command "erase" SS "")
    (princ)
  )
想法是识别所有标注集,删除标注集中的直径和半径标注

发表于 2024-9-12 16:31:32 | 显示全部楼层



  • (defun c:tt (/ b count ent ent-data ss)
  •   (defun dcb (L)
  •     (cond
  •       ((null L) nil)
  •       ((atom L)(list L))
  •       ((atom (car L))(cons (car L) (dcb (cdr L))))
  •       ((append (dcb (car L))(dcb (cdr L))))
  •     )
  •   )
  •   (setq ss (ssget "X" '((0 . "DIMENSION")))) ; 选择所有标注
  •   (setq b nil)
  •   (if ss
  •     (progn
  •       (setq count (sslength ss))
  •       (repeat count
  •         (setq ent (ssname ss (setq count (1- count))))
  •         (setq ent-data (entget ent))
  •         (setq b (dcb ent-data))
  •         (foreach str b
  •           (if
  •             (or
  •               (= str "AcDbRadialDimension")
  •               (= str "AcDbDiametricDimension")
  •             )
  •             (entdel ent)
  •           )
  •         )
  •       )
  •     )
  •   )
  •   (princ)
  • )


这方法感觉有点笨,希望有更好的方法。



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2024-9-12 16:55:50 | 显示全部楼层
统一网名 发表于 2024-9-12 16:31
  • (defun c:tt (/ b count ent ent-data ss)
  •   (defun dcb (L)
  •     (cond

  • 不行  提示参数太少
    发表于 2024-9-12 17:09:46 | 显示全部楼层
    本帖最后由 统一网名 于 2024-9-12 17:11 编辑
    惜惜2 发表于 2024-9-12 16:55
    不行  提示参数太少

    又试了一下,没有问题,我的是 cad2020.或者把你的图发上来我试一下。
     楼主| 发表于 2024-9-13 10:49:33 | 显示全部楼层
    统一网名 发表于 2024-9-12 17:09
    又试了一下,没有问题,我的是 cad2020.或者把你的图发上来我试一下。

    可以了  谢谢
    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

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

    GMT+8, 2025-1-15 19:52 , Processed in 0.164436 second(s), 23 queries , Gzip On.

    Powered by Discuz! X3.4

    Copyright © 2001-2021, Tencent Cloud.

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