(command "dist" "" ) 如何得到返回结果?

gmx2588

(defun C:test ()
(setvar "cmdecho" 0)
(setq css (getpoint "请选择线的端点"))
(command "dist" css )
(princ (strcat "\n距离："))
   (prin1)
  )
请问 如何 显示 "距离："的值.

newer

gmx2588 发表于 2014-4-16 08:14
想得到"dist"  量出来的(2点 或 多点的) 距离值.

LISP刚学吧？ 不建议你用命令啊，你可以交互两点，然后用函数(distance p1 p2)获得距离。

开间奶茶店

额，只选一个点应该得不到距离吧？
还是说你想得到和定点的距离？
不需要command命令直接(distance (pt1) (pt2))就可以了吧？

gmx2588

想得到"dist"  量出来的(2点 或 多点的) 距离值.

819534890

(getvar 'DISTANCE);获得dist命令的距离

gmx2588

非常感谢2位的 解答.
(getvar 'DISTANCE)  试了好多次,还是没有取到返回值.能否再说的详细一点.

想得到"dist"  量出来的(2点 或 多点的) 距离值.( 可以返回到 变量)

819534890

gmx2588 发表于 2014-4-16 09:54
非常感谢2位的 解答.
(getvar 'DISTANCE)  试了好多次,还是没有取到返回值.能否再说的详细一点.

(getvar 'DISTANCE) 是获得最近一次的dist测量值，每做一次dist就把(getvar 'DISTANCE) 赋值累加给一个变量。
dist是测量2个点的，如果是多段线的长度，可以考虑用"lengthen"命令，(getvar "perimeter")获得最近lengthen命令对应的长度（周长）。

newer

gmx2588 发表于 2014-4-16 09:54
非常感谢2位的 解答.
(getvar 'DISTANCE)  试了好多次,还是没有取到返回值.能否再说的详细一点.

你没取得，是因为你的代码(command "dist")这个命令没有成功执行。

gmx2588

非常感谢,这么多热心人!
下面是代码,能够执行,看看错在哪里?
(defun C:CV (/ aa)
(setvar "cmdecho" 0)
(setq css (getpoint))

(command "dist" css   "m"  )
(setq aa (getvar 'DISTANCE))
(princ (strcat "\n距离之和：" aa))
   (prin1)
  )

819534890

gmx2588 发表于 2014-4-16 10:26
非常感谢,这么多热心人!
下面是代码,能够执行,看看错在哪里?
(defun C:CV (/ aa)

改为这样试试：
(defun C:CV (/ aa)
(setvar "cmdecho" 0)
(setq css (getpoint))
(setq css2 (getpoint))

(command "dist" css   css2  )
(setq aa (getvar 'DISTANCE))
(princ (strcat "\n距离之和：" (rtos aa 2 2)))
   (prin1)
  )

忆真

如何获得命令后面的内容。 如：距离 = 178.011,  XY 平面中的倾角 = 106,  与 XY 平面的夹角 = 0
X 增量 = -50.4047,  Y 增量 = 170.7257,  Z 增量 = 0

这些信息很需要，类似的，也想捕捉到其他cad命令的处理结果，而不是其中的一个值，

819534890

忆真 发表于 2014-4-16 11:44
如何获得命令后面的内容。 如：距离 = 178.011,  XY 平面中的倾角 = 106,  与 XY 平面的夹角 = 0
X 增量 = ...

有些结果，cad会帮忙存储，例如距离，有些结果是cad帮忙计算的，但没有存储的，只能自己去算。例如dist命令，两个点都知道了，其它参数就很容易算出来了。

忆真

感谢你的回复。
我很想获得三维实体的体积，用massprop命令可以获得。 我是想编写一段代码，从一个选择集合里删除体积小于0.2的无用实体。曾用(setq va (command"massprop"))，无效。

ll_j

command函数的返回值永远是空。

nuic-ljsh

(defun C:test ()