乐筑天下

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

請問怎樣計算多條直線的總長度??

[复制链接]
bigwa

14

主题

32

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
88
发表于 2004-3-17 09:30:00 | 显示全部楼层 |阅读模式
假如選取了100條線
有什麼方法知道它們的總長??
謝謝
回复

使用道具 举报

BDYCAD

63

主题

1203

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1455
发表于 2004-3-17 09:56:00 | 显示全部楼层
;;;         program make inchina
;;         by         BDYCAD
;; DATA:         2003-11-01
;求選到的圖素的總長度.LSP
(DEFUN C:TEST (/ SS SS_L N LENN LEN)
         (setq ss (ssget))
         (setq ss_l (sslength ss))
         (setq n 0)
         (setq lenn 0)
         (repeat ss_l
                         (command "lengthen" (ssname ss n) "")
                         (setq len (getvar "perimeter"))
                         (setq lenn (+ len lenn))
                         (setq n (1+ n)))
         (princ "\n你所選到的圖元的總長是")
         (princ lenn)
         (Princ "(mm)....")
         (princ))
回复

使用道具 举报

fjzdl

7

主题

49

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
77
发表于 2004-3-17 10:25:00 | 显示全部楼层
能不能说明一下这个程序的用法吗？谢谢！
回复

使用道具 举报

bigwa

14

主题

32

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
88
发表于 2004-3-17 10:39:00 | 显示全部楼层
應該如何使用??
我以前沒有用過..可以說詳細一點嗎??
還有這種自己寫的程序是叫什麼?
好讓我平常也可以自己研究一下
回复

使用道具 举报

cqnj023

14

主题

270

帖子

9

银币

后起之秀

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

铜币
326
发表于 2004-3-18 13:19:00 | 显示全部楼层
将上面的程序拷贝到记事本中，保存为test.txt，然后将后缀改为lsp，在需要计算线长度的图形窗口下的命令行中输入appload，然后找到test.lsp文件，加载，再输入test即可根据提示选择线，最后，你可在命令行上的文本窗口内看到答案，若看不到，请按F2.
上面的程序是lisp程序。
回复

使用道具 举报

f5612140

6

主题

412

帖子

8

银币

后起之秀

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

铜币
436
发表于 2004-3-18 17:14:00 | 显示全部楼层
1.如題,如果只要直線長度,(setq ss (ssget))之後加上(setq ss (ssget "p" '((0 . "LINE"))))
2.lisp很容易上手,保證接觸之後受益良多,操作觀念會提升到另一層境界
回复

使用道具 举报

cadhby_ylh

5

主题

15

帖子

3

银币

初来乍到

Rank: 1

铜币
35
发表于 2004-3-20 13:55:00 | 显示全部楼层
有时间我一定学学
回复

使用道具 举报

绝对美丽

0

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
2
发表于 2004-4-1 11:59:00 | 显示全部楼层
为何我照上面楼主说的这么做了，可是不行，输入test后，该图层关闭，我是菜鸟，希各位高手教教小妹
回复

使用道具 举报

f5612140

6

主题

412

帖子

8

银币

后起之秀

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

铜币
436
发表于 2004-4-2 10:41:00 | 显示全部楼层

2樓程序與圖層"開-關"無關,可否傳圖上來看看
回复

使用道具 举报

绝对美丽

0

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
2
发表于 2004-4-2 11:40:00 | 显示全部楼层
text好像是单行字输入的命令嘛。我在R14中这么做了，今天又试了一下，不行。
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-8-15 17:32 , Processed in 1.239169 second(s), 73 queries .

© 2020-2025 乐筑天下

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