乐筑天下

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

[编程交流] How to modify this table - ple

[复制链接]

59

主题

327

帖子

268

银币

后起之秀

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

铜币
295
发表于 2022-7-6 11:44:37 | 显示全部楼层 |阅读模式
Hello everybody,
 
I am kind of new with tables and have some questions for those who have been there. Can somebody help me out?
 
Goal:
My goal is to make a routine that extracts block data (._dataextraction) based on a previous extraction.
This is saved in a template, somewhere on the server of our company.
 
So with "one click" (or macro / command) I need a table to "appear".
This is not the problem for it is working.
Routine so far:

[code](defun c:ett (/ Location ScFactor TemplatePath) (setq TemplatePath (strcat "C:/test.dxe")ScFactor (getvar "dimscale")Location (getpoint "Where? ")) (vl-cmdf "-dataextraction" TemplatePath Location)(vl-cmdf "_.scale" "L" "" Location ScFactor) (princ))(prompt "\n\t\t>>>\t Type ett to start Extraction to Table \t
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 12:22:43 | 显示全部楼层
An example of putting a Field in a Table Cell:
 
http://www.cadtutor.net/forum/showpost.php?p=252238&postcount=7
 
To add rows to a Table Object, look into the vla-insertrows or the vla-insertrowsandinherit methods.
回复

使用道具 举报

59

主题

327

帖子

268

银币

后起之秀

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

铜币
295
发表于 2022-7-6 12:28:56 | 显示全部楼层
Thank you Lee, I will look into that!
 
Edit: there is nothing in the Autolisp Reference and also none in the Help function in the Visual Lisp Editor...
All I can find is insertrows and insertrowsandinherit but that looks like VBA to me.
 
I tried Google and there are results so I need to look further I guess.
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 12:56:13 | 显示全部楼层
 
Yes, the help file is written for VBA, the arguments, their format and order are all applicable to Visual LISP, so that should be all the information that is necessary
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-5 11:01 , Processed in 0.434241 second(s), 60 queries .

© 2020-2025 乐筑天下

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