乐筑天下

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

[求助]哪位大师能帮我写一个替换图块的LISP程序吗?

[复制链接]

15

主题

33

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
93
发表于 2002-11-14 16:51:00 | 显示全部楼层 |阅读模式

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

15

主题

33

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
93
发表于 2002-11-14 18:01:00 | 显示全部楼层
用选择集函数SSGET得到要替换A块的实体名,逐一获取A块的插入点,
(可用表的形式表示),然后再从上述表中逐一读取插入点插入B块
即可。
回复

使用道具 举报

26

主题

345

帖子

11

银币

后起之秀

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

铜币
448
发表于 2002-11-14 23:43:00 | 显示全部楼层
XDCAD。NET 有,不过昨天晚上又黑了
回复

使用道具 举报

15

主题

33

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
93
发表于 2002-11-15 11:39:00 | 显示全部楼层

(defun C:RB (/ SE1 N A0 BN E0 E1)
  (prompt "\n选择要替换的图块: ")
  (setq        SE1 (ssget '((0 . "INSERT")))
  )
  (if SE1
    (progn
      (setq BN (getstring "\n来源图块名称/: "))
      (if (= BN "")
        (progn
          (while (= A0 NIL)
            (prompt "\n选取来源图块: ")
            (setq A0 (ssget ":S" '((0 . "INSERT"))))
          )
          (setq BN (cdr (assoc 2 (entget (ssname A0 0)))))
        )
      )
      (command "_.insert" BN (command))
      (setq N 0)
      (repeat (sslength SE1)
        (setq E0 (ssname SE1 N)
              E1 (entget E0)
        )
        (setq E1 (subst (cons 2 BN) (assoc 2 E1) E1))
        (entmod E1)
        (entupd E0)
        (setq N (1+ N))
      )
    )
  )
  (princ)
)
回复

使用道具 举报

3

主题

4

帖子

2

银币

初来乍到

Rank: 1

铜币
16
发表于 2002-11-16 15:38:00 | 显示全部楼层

用insert更要考虑属性的问题。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-5-28 01:36 , Processed in 1.344942 second(s), 68 queries .

© 2020-2025 乐筑天下

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