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

bigwa

假如選取了100條線


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


謝謝

BDYCAD

;;; 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

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

bigwa

應該如何使用??


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


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


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

cqnj023

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


上面的程序是lisp程序。

f5612140

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


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

cadhby_ylh

有时间我一定学学

绝对美丽

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

f5612140

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

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

绝对美丽

text好像是单行字输入的命令嘛。我在R14中这么做了，今天又试了一下，不行。