乐筑天下

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

[编程交流] lisp从dxe创建表格

[复制链接]

5

主题

10

帖子

5

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-6 06:40:34 | 显示全部楼层 |阅读模式
您好-第一个帖子在这里。希望有人能帮忙。
 
我有一个位于办公室服务器中央的模板dxe文件,用于插入一个引用特定块的特定属性的表(显示多段线区域)
 
lisp例程对当前图形执行反求“另存为”,将其保存为dxe引用的文件。。然后,它插入一个基于dxe模板的表。
 
但是,我需要它来从表中删除数据链接,因为我发现了一个问题,即如果一个用户运行它而不删除数据链接,然后另一个用户运行它。。原始用户表将更新。
 
我有一行代码可以删除所有数据链接,但是编写脚本来删除到新创建的表的数据链接并保留任何以前存在的链接超出了我的能力。非常感谢您的帮助。。
 
这是我的原样代码。
 
  1. (defun c:Atable (/ pt1)
  2. (SETVAR "cmdecho" 0)
  3. ;; saves current drawing as template reference file
  4. (command "._save" "V:/E-Library/Autocad/data extraction/DXTEMP FILE.dwg" "y")
  5. (princ "\nSelect point to insert table")
  6. (setq pt1 (getpoint))
  7. ;; inserts table based on template dxe file
  8. (command "-dataextraction" "V:/E-Library/Autocad/data extraction/DATAEXTRACT.dxe" pt1)
  9. ;; delete all data links but only want to delete the link created for the table
  10. (dictremove (namedobjdict) "ACAD_DATALINK")
  11. (princ)
  12. )
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-10 14:47 , Processed in 0.734654 second(s), 56 queries .

© 2020-2025 乐筑天下

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