[求助]：请问:如何实现?

bolixin · 发表于 2005-3-12 10:37:21

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

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

×

(defun C:LDist ()
(setq Len (getdist "请输入或点取长度:"))
(dos_clipboard (rtos Len 2 0))
)

以上语句想改为不定量循环,怎做?

xyp1964 · 发表于 2005-3-12 10:43:58

“不定量循环”的含义？

bolixin · 发表于 2005-3-12 11:04:08

我意思是想连续测量多段距离,但究竟几段不知道.

xyp1964 · 发表于 2005-3-12 11:45:28

[php]
;;;将距离值输入剪贴板 <bolixin>
(defun C:test (/ len lst)
  (if (setq Len (getdist "\n请输入或点取长度<退出> : "))
(progn
   (setq lst (rtos Len 2 0))
   (while (setq Len (getdist "\n再输入或点取长度<退出> : "))
(setq lst (strcat lst " " (rtos Len 2 3)))
   )
)
  )
  (dos_clipboard lst)
  (alert"\n数值组已粘贴到剪贴板，请用 CTRL＋V 进行粘贴!")
  (princ"\n数值组 : ")(princ lst)
  (princ)
)
[/php]

bolixin · 发表于 2005-3-12 11:59:44

非常多谢4楼楼主,但这样每段距离必须点取两点,有没有办法实现以当前点为基点而只点取该段最后一点的?

zxq0220 · 发表于 2005-3-12 17:00:27

[php]
;;;将距离值输入剪贴板 <bolixin>
(defun C:test (/ len lst)
(setq lst "")
(if (setq P1 (getpoint "\n请输入第一点<退出> : "))
(progn
(while (setq P2 (getpoint p1 "\n输入下一点<退出> : "))
(setq lst (strcat lst " " (rtos (distance p1 p2) 2 0)) p1 p2)
)
)
)
(dos_clipboard lst)
(alert"\n数值组已粘贴到剪贴板，请用 CTRL＋V 进行粘贴!")
(princ"\n数值组 : ")(princ lst)
(princ)
)
[/php]

wengsg · 发表于 2005-4-6 11:40:18

真的很有用.

狂刀 · 发表于 2005-4-6 12:57:31

6楼的程序不错，挺简洁的

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

[求助] [求助]：请问:如何实现?

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

相关帖子