乐筑天下

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

如何将数字求和（sum）写到图中，焦急等待！！！

[复制链接]
tjzcj

4

主题

23

帖子

3

银币

初来乍到

Rank: 1

铜币
39
发表于 2004-1-2 20:35:00 | 显示全部楼层 |阅读模式
如何将数字求和（sum）写到图中，不是写在命令行
(defun c:sum ()
  (setq selct (ssget '((0 . "text"))))
  (setq n 0
sum 0
  )
  (repeat (sslength selct)
    (setq en (ssname selct n))
    (setq endata (entget en))
    (setq entxt (cdr (assoc 1 endata)))
    (setq entxt (atof entxt))
    (setq sum (+ sum entxt))
    (setq n (+ n 1))
  )
  (write-line (strcat "sum=" (rtos sum)))
)
回复

使用道具 举报

tjzcj

4

主题

23

帖子

3

银币

初来乍到

Rank: 1

铜币
39
发表于 2004-1-2 20:44:00 | 显示全部楼层

还有个问题，当数字数目比较多，一屏幕看不清时，将屏幕“ 'pan“后如何避免只选中最后一屏的数字
回复

使用道具 举报

yfy2003

26

主题

243

帖子

9

银币

后起之秀

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

铜币
347
发表于 2004-1-2 21:48:00 | 显示全部楼层
在 AutoLISP/Visual LISP 编程技术发了贴，建议你就不要在这里发了，论坛空间有限，斑竹给你删除了要扣分的哦！
回复

使用道具 举报

tjzcj

4

主题

23

帖子

3

银币

初来乍到

Rank: 1

铜币
39
发表于 2004-1-2 21:51:00 | 显示全部楼层
好的，请帮帮忙！！
回复

使用道具 举报

BDYCAD

63

主题

1203

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1455
发表于 2004-1-3 09:27:00 | 显示全部楼层
(write-line (strcat "sum=" (rtos sum)))換成(alert (strcat "sum=" (rtos sum)))就是顯示在對話框的, 但如樓主要把他打在cad里就應用text命令呀
回复

使用道具 举报

tjzcj

4

主题

23

帖子

3

银币

初来乍到

Rank: 1

铜币
39
发表于 2004-1-3 09:48:00 | 显示全部楼层

知道了谢谢，请帮忙第二个问题，在cad2004中如何避免只选最后一屏
回复

使用道具 举报

cqnj023

14

主题

270

帖子

9

银币

后起之秀

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

铜币
326
发表于 2004-1-3 11:13:00 | 显示全部楼层
先添加到选择集后再'pan
回复

使用道具 举报

tjzcj

4

主题

23

帖子

3

银币

初来乍到

Rank: 1

铜币
39
发表于 2004-1-3 11:25:00 | 显示全部楼层
你是说多选几次吗，可以解决问题，就是麻烦了点，不知道有没有好办法一次选出？？
回复

使用道具 举报

meflying

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2004-1-3 12:04:00 | 显示全部楼层
你的选取方式应该是点选吧，循环使用entsel，这样在选择时也是连贯的
回复

使用道具 举报

tjzcj

4

主题

23

帖子

3

银币

初来乍到

Rank: 1

铜币
39
发表于 2004-1-3 15:24:00 | 显示全部楼层
我一般要选20个以上，并且排成一行或一列，周围还有其他不需要的数字，这时一屏幕看不清，所以放大，用窗选或用围篱框（f）选，起点数字点取一点，缩放屏幕然后终点数字取一点，结果选到的数字只有最后一屏幕的，不能满足需要。这种情况请问怎么处理最省事
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-8 00:45 , Processed in 0.857096 second(s), 72 queries .

© 2020-2025 乐筑天下

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