[LISP程序]：如何用lisp读出线段的长度

dearjdz123 · 发表于 2004-10-31 00:18:11

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何用lisp读出线段的长度并输出到excel表里

JOSDENNIS · 发表于 2004-11-1 16:07:18

(SETQ Object (car (entsel))
Line-Length (distance (vlax-curve-getstartpoint Object)(vlax-curve-getendpoint Object)))

梦断江南 · 发表于 2004-11-2 14:32:54

注意distance仅能返回直线距离

dingning618 · 发表于 2004-11-2 15:58:20

选择对象: ; 错误: no function definition: VLAX-CURVE-GETSTARTPOINT

hmh888888 · 发表于 2004-11-3 09:22:47

先加载这个
(vl-load-com)

dingning618 · 发表于 2004-11-3 11:20:01

还是不懂，怎么加载啊

xxxyzxx · 发表于 2004-11-21 09:26:03

贱人编的LSP，但只能列出长度，不能累加，不知哪里有错，如何改动？如何自动输入到EXCEL表呢？
〔PHP〕
(defun c:cd()
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq sum 0 i 0)
(setq ss (ssget))
(repeat (sslength ss)
(setq en (ssname ss i))
(command "lengthen" en "")
(setq l (getvar "perimeter"))
(setq sum (+ sum l)
i (+ i 1))
)
(setvar "osmode" os)
sum
)
〔/PHP〕

xyp1964 · 发表于 2004-11-21 11:07:39

最初由 xxxyzxx 发布
[B]贱人编的LSP，但只能列出长度，不能累加，不知哪里有错，如何改动？如何自动输入到EXCEL表呢？
〔PHP〕
(defun c:cd()
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq sum 0 i 0)
(setq ss (ssge... [/B]

稍作修改，完全可以实现累计总长的要求。
自动输入到EXCEL表还有问题，可以将长度列表直接粘贴到EXCEL表里。
[php]
(defun c:test ()
  (setq cmdech (getvar "CMDECHO")
os    (getvar "osmode")
  )
  (setvar "CMDECHO" 0)
  (setvar "osmode" 0)
  (setq sum 0
i 0
  )
  (setq ss (ssget))
  (repeat (sslength ss)
(setq en (ssname ss i))
(command "lengthen" en "")
(setq l (getvar "perimeter"))
(setq sum (+ sum l)
   i (+ i 1)
)
  )
  (setvar "osmode" os)
  (setvar "CMDECHO" cmdech)
  (princ "\n选线总长 = ")
  (princ sum)
  (princ)
)
[/php]

lsjjm · 发表于 2004-11-21 11:35:13

2楼: 可以这样:
(setq len (vlax-curve-getdistatparam ent (vlax-curve-getendparam ent)))
4楼: 你使用的CAD是什么版本?
5楼:2000版以后不用(vl-load-com) , (vlax-curve函数即可运行.

xyp1964 · 发表于 2004-11-21 15:06:22

有“lengthen”这个命令，偏要用VL……，高！实在高！

pandoit · 发表于 2004-11-22 13:12:18

10楼说的是什么意思呢？vl的长处又在那里呢，不懂。

xyp1964 · 发表于 2004-11-22 18:49:17

最初由 pandoit 发布
[B]10楼说的是什么意思呢？vl的长处又在那里呢，不懂。 [/B]

为什么说“高”呢，因为偶也不懂！
只有没办法时才用Vl函数。

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

[LISP程序]：如何用lisp读出线段的长度

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子