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

tender138

你有种再说一遍 发表于 2025-4-18 20:05
不知道你想查什么,所以不知道直接是什么

想求空间闭合同面的三维多段线面积

guosheyang

tender138 发表于 2025-4-18 20:07
想求空间闭合同面的三维多段线面积

闭合三维多段线可以转为面域来求面积

tender138

guosheyang 发表于 2025-4-18 20:27
闭合三维多段线可以转为面域来求面积

转为面域必须转为XY平面，麻烦

guosheyang

tender138 发表于 2025-4-18 21:07
转为面域必须转为XY平面，麻烦

用   vla-AddRegion

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)  
)

tender138

guosheyang 发表于 2025-4-18 21:27
参考这个
(vl-load-com)  
(defun c:Example_AddRegion()  

谢谢！刚才运行了一下，没什么反应，我明天再看看

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
  )

guosheyang

tender138

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

真的太好了！谢谢！