请问各位大师如何运行list命令而不出现文本窗口？

tender138

请问各位大师如何运行list命令但不出现文本窗口或如何用vl-cmdf关闭文本窗口？

(vl-cmdf "List" (car (nentsel)) "")

guosheyang

参考这个
(vl-load-com)  
(defun c:Example_AddRegion()  
    ;; This example creates a region from an arc and a line.  
    (setq acadObj (vlax-get-acad-object))  
    (setq doc (vla-get-ActiveDocument acadObj))  
    (setq modelSpace (vla-get-ModelSpace doc))  
  
    ;; Define the arc  
    (setq centerPoint (vlax-3d-point 5 3 0)  
          radius 2  
          startAngle 0  
          endAngle 3.141592)  
    (setq arc (vla-AddArc modelSpace centerPoint radius startAngle endAngle))  
      
    ;; Define the line  
    (setq line (vla-AddLine modelSpace (vla-get-StartPoint arc) (vla-get-EndPoint arc)))  
  
    (setq curves (vlax-make-safearray vlax-vbObject '(0 . 1)))  
    (vlax-safearray-put-element curves 0 arc)  
    (vlax-safearray-put-element curves 1 line)  
     
    ;; Create the region  
    (setq regionObj (vla-AddRegion modelSpace curves))  
    (vla-ZoomAll acadObj)  
)

guosheyang

  ;自定义函数  作者 ygs---羊羊羊
  ;求空间平面闭合三维多段线的面积      
  (defun area&plan-spacial-3pl(e / ACADOBJ CURVES DOC MODELSPACE OBJ OBJ2 REGIONOBJ SV)
    (setq obj(vlax-ename->vla-object e))
    (setq acadObj (vlax-get-acad-object))  
    (setq doc (vla-get-ActiveDocument acadObj))  
    (setq modelSpace (vla-get-ModelSpace doc))  
    (setq curves (vlax-make-safearray vlax-vbObject '(0 . 0)))  
    (vlax-safearray-put-element curves 0 obj)  
    (setq regionObj (vla-AddRegion modelSpace curves))
    (setq obj2(car(vlax-safearray->list(vlax-variant-value regionObj))))
    (setq sv(vla-get-area obj2 ))
    (vla-delete obj2)
     sv
  )

tender138

guosheyang 发表于 2025-4-18 21:58
;自定义函数  作者 ygs---羊羊羊
  ;求空间平面闭合三维多段线的面积      
  (defun area&plan-spacia ...

真的太好了！谢谢！

你有种再说一遍

如果肯定是弹窗口呢?
你的问题是读取信息吧

tender138

你有种再说一遍 发表于 2025-4-18 18:09
如果肯定是弹窗口呢?
你的问题是读取信息吧

是的，想读取用3dpoly画的立面的面积，用(vlax-dump-object (vlax-ename->vla-object ent))提取不到，但LIST命令有

liuhe

tender138 发表于 2025-4-18 18:13
是的，想读取用3dpoly画的立面的面积，用(vlax-dump-object (vlax-ename->vla-object ent))提取不到，但L ...

三维有面积？

tender138

liuhe 发表于 2025-4-18 19:21
三维有面积？

任何面都有面积吧，用LIST命令就可以查到面积

gzcsun

(vl-cmdf "List" (car (nentsel)) "")
(graphscr)

tender138

gzcsun 发表于 2025-4-18 19:38
(vl-cmdf "List" (car (nentsel)) "")
(graphscr)

非常感谢！但还是显示了文本窗口，还要手动关闭

你有种再说一遍

tender138 发表于 2025-4-18 19:23
任何面都有面积吧，用LIST命令就可以查到面积

平凡面积,表面积,投影面积,
只要概念多了就知道为什么没有了,
平凡面积用鞋带公式速算,
投影面积用的是积分,
表面积用的是??三角面累加??

tender138

你有种再说一遍 发表于 2025-4-18 19:57
平凡面积,表面积,投影面积,
只要概念多了就知道为什么没有了,
平凡面积用鞋带公式速算,

数学面积繁琐，想直接查询

你有种再说一遍

tender138 发表于 2025-4-18 20:03
数学面积繁琐，想直接查询

不知道你想查什么,所以不知道直接是什么