bigwa 发表于 2004-3-17 09:30:00

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

假如選取了100條線


有什麼方法知道它們的總長??


謝謝

BDYCAD 发表于 2004-3-17 09:56:00

;;;       program make inchina<BR>;;       by       BDYCAD<BR>;; DATA:       2003-11-01<BR>;求選到的圖素的總長度.LSP<BR>(DEFUN C:TEST (/ SS SS_L N LENN LEN)<BR>       (setq ss (ssget))<BR>       (setq ss_l (sslength ss))<BR>       (setq n 0)<BR>       (setq lenn 0)<BR>       (repeat ss_l<BR>                       (command "lengthen" (ssname ss n) "")<BR>                       (setq len (getvar "perimeter"))<BR>                       (setq lenn (+ len lenn))<BR>                       (setq n (1+ n)))<BR>       (princ "\n你所選到的圖元的總長是")<BR>       (princ lenn)<BR>       (Princ "(mm)....")<BR>       (princ))<BR>

fjzdl 发表于 2004-3-17 10:25:00

能不能说明一下这个程序的用法吗？谢谢！

bigwa 发表于 2004-3-17 10:39:00

應該如何使用??


我以前沒有用過..可以說詳細一點嗎??


還有這種自己寫的程序是叫什麼?


好讓我平常也可以自己研究一下

cqnj023 发表于 2004-3-18 13:19:00

将上面的程序拷贝到记事本中，保存为test.txt，然后将后缀改为lsp，在需要计算线长度的图形窗口下的命令行中输入appload，然后找到test.lsp文件，加载，再输入test即可根据提示选择线，最后，你可在命令行上的文本窗口内看到答案，若看不到，请按F2.


上面的程序是lisp程序。

f5612140 发表于 2004-3-18 17:14:00

1.如題,如果只要直線長度,(setq ss (ssget))之後加上(setq ss (ssget "p" '((0 . "LINE"))))


2.lisp很容易上手,保證接觸之後受益良多,操作觀念會提升到另一層境界

cadhby_ylh 发表于 2004-3-20 13:55:00

有时间我一定学学

绝对美丽 发表于 2004-4-1 11:59:00

为何我照上面楼主说的这么做了，可是不行，输入test后，该图层关闭，我是菜鸟，希各位高手教教小妹

f5612140 发表于 2004-4-2 10:41:00

绝对美丽发表于2004-4-1 11:59:00static/image/common/back.gif为何我照上面楼主说的这么做了，可是不行，输入test后，该图层关闭，我是菜鸟，希各位高手教教小妹

2樓程序與圖層"開-關"無關,可否傳圖上來看看<BR>

绝对美丽 发表于 2004-4-2 11:40:00

text好像是单行字输入的命令嘛。我在R14中这么做了，今天又试了一下，不行。
页: [1] 2
查看完整版本: 請問怎樣計算多條直線的總長度??