[求助]高手帮改下

chupj · 发表于 2008-6-30 17:28:00

(defun c:mj()
   (setvar "cmdecho" 0)
   (setq pt (getpoint"\n"))
   (while pt
       (setvar "cecolor" "1")
       (command "bpoly" pt "")
       (setq en (entlast))
       (if (/= en nil)
         (progn
            (command "area" "o" en)
            (setq aa (getvar "area"))
            (redraw en 3)
            (princ (strcat "" (rtos aa 2)))
          )
      )
      (entdel en)
      (setvar "cecolor" "bylayer")
      (setq pt (getpoint "\n"))
     )
     (prinl)
(vl-load-com)
)
(princ "\n使用命令：mj。")

这个是统计面积的，想改个统计线段长度的

很久没搞过，整了一下午，没弄出来，

帮改下，谢谢了

byghbcx · 发表于 2008-6-30 21:43:00

(vla-get-length (vlax-ename->vla-object en))

chupj · 发表于 2008-7-1 09:54:00

两年多没用过了

当年还是学点皮毛

楼上的看不懂啊。。。。。。。。。。。。。。。

chupj · 发表于 2008-7-1 10:54:00

(defun c:tt (/ ELST LINEOBJ LLST SEL)
(vl-load-com)
(if (setq sel (ssget '((0 . "LINE"))))
(progn
(defun sel->ent (sel / i lst)
(setq i 0)
(repeat (sslength sel)
(setq lst (cons (ssname sel i) lst))
(setq i (1+ i))
)
lst
)
(setq elst (vl-sort (sel->ent sel)
'(lambda (x y)
(> (cadr (assoc 10 (entget x)))
(cadr (assoc 10 (entget y)))
)
)
)
)
(foreach e elst
(setq LineObj (vlax-ename->vla-object e))
(setq llst (cons (RTOS (vla-get-Length LineObj) 2 4) llst))
)
(princ "线的长度表: ")
(princ llst)
)
)
(princ)
)

chupj · 发表于 2008-7-1 10:56:00

本帖最后由作者于 2008-7-1 10:59:07 编辑

在以前的版面上找到的

但是我要输入EXCEL表上（竖排）

这个程序不是很方便啊

而且只能统计直线

多段线就不行了

chupj · 发表于 2008-7-1 11:14:00

本帖最后由作者于 2008-7-1 11:32:01 编辑

(defun c:mj ()
(vl-load-com)
(setq a (vla-get-length
(vlax-ename->vla-object (car (entsel)))) )
)

我了解2楼意思了
但怎么才加入循环语句？
有N多的线段要分开统计长度啊
在线等啊~~~~~~~~~

linhui12 · 发表于 2008-7-1 21:15:00

本帖最后由作者于 2008-7-1 22:00:12 编辑

以上工具也是论坛里下的,希望对你有所帮助.

命令OOKAT,

功能:显示被选线的种类和长度

账号		自动登录	找回密码
密码			注册

[求助]高手帮改下

本帖子中包含更多资源