[求助]：怎么获得用（COMMAND 。。。）返回的结果。????

oyxx_1023

比如说怎么获得用（COMMAND “lengthen“ "objname" ""）返回的结果。????

aidraft

成功的话(command ...)应返回nil

ll_j

最初由 oyxx_1023 发布
[B]比如说怎么获得用（COMMAND “lengthen“ "objname" ""）返回的结果。???? [/B]

执行command函数后，使用“(getvar "PERIMETER")”求长度值，类似的系统变量还有“area”。

aidraft

最初由 ll_j 发布
[B]

执行command函数后，使用“(getvar "PERIMETER")”求长度值，类似的系统变量还?.. [/B]

Perimeter 不能得到长度值， 就算可以也要先list

cqnj023

为什么一定要先用list呢？用lengthen不行吗？

ll_j

最初由 aidraft 发布
[B]

Perimeter 不能得到长度值， 就算可以也要先list [/B]

可以测试一下：
[php](defun c:test()
  (setq en (car (entsel)))
;;使用命令lengtnen
  (command "lengthen" en "")
  (princ "\n")
;;使用命令list
;|
  (command "list" en "")
  (graphscr)     ;切换回图形屏幕
|;
;;使用命令area
;|
  (command "area" "ob" en)
  (command)      ;对Line等无法取得面积的需要中断退出
|;
  (princ (strcat "\n长度：" (rtos (getvar "Perimeter"))))
  (princ (strcat "\n面积：" (rtos (getvar "area"))))
  (princ)
)[/php]
逐段屏蔽程序中的不同段，分别对直线、多义线、圆、圆弧等测试，可以看出：
　　使用命令Lengthen可以求长度（更新Perimeter）但不可以求面积（不更新area），多余提示：“当前长度: xxxxxx”；
　　使用命令List对可以求长度，对有面积的实体可以求面积（更新area），对无面积的实体（如Line）不更新area，多余提示：文本屏及实体List信息；
　　使用命令area不可以求长度，对有面积的实体可以求面积，多余提示：对无面积实体提示“选定的对象没有面积”，并需要强制退出。

aidraft

您的程序中的length命令并没有改变原直线的长度，如果该成(command "lengthen" "P" 120 en "") ，最后显示的长度结果仍然是原长度值，也许并不是1楼主的意思。
还是用老办法：
(defun c:test( / en len)
  (vl-load-com)
  (setq en (car (entsel)))
  (command "lengthen" "p" 120 en "")
  (setq len (vla-get-length (vlax-ename->vla-object en)))
  (princ (strcat "\n长度：" (rtos len)))
  (princ)
)

ll_j

　　如果使用“P”选项，应该再次使用Lengthen命令，然后Perimeter才会更新，这是正常的，我对1楼的理解就是这样，1楼使用了Objname，应该就是直接使用命令Lengthen求线条长度（无选项），此时命令行返回“当前长度：xxxx”，只是在程序中如何返回这个“xxxx”。
　　正如你在2楼所说，使用command函数成功则返回nil，不成功呢？当然也是nil。然而使用vl-cmdf函数成功则返回t，不成功则返回nil，这样，不管使用command函数还是vl-cmdf函数都不能得出命令返回的线条长度，这就是1楼的问题。

aeo

COMMAND 返回永远是nil

oyxx_1023

非常谢谢大家的解答。又学到了一些东东。