tender138 发表于 2025-4-18 17:57:39

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

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

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

guosheyang 发表于 2025-4-18 21:27:18

参考这个
(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 发表于 2025-4-18 21:58:32

本帖最后由 guosheyang 于 2025-4-18 22:09 编辑

;自定义函数作者 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 发表于 2025-4-19 07:37:43

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

真的太好了！谢谢！:handshake

你有种再说一遍 发表于 2025-4-18 18:09:04

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

tender138 发表于 2025-4-18 18:13:57

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

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

liuhe 发表于 2025-4-18 19:21:22

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

三维有面积？

tender138 发表于 2025-4-18 19:23:42

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

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

gzcsun 发表于 2025-4-18 19:38:32

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

tender138 发表于 2025-4-18 19:41:58

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

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

你有种再说一遍 发表于 2025-4-18 19:57:52

本帖最后由 你有种再说一遍 于 2025-4-18 20:00 编辑

tender138 发表于 2025-4-18 19:23
任何面都有面积吧，用LIST命令就可以查到面积
平凡面积,表面积,投影面积,
只要概念多了就知道为什么没有了,
平凡面积用鞋带公式速算,
投影面积用的是积分,
表面积用的是??三角面累加??


tender138 发表于 2025-4-18 20:03:12

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


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

你有种再说一遍 发表于 2025-4-18 20:05:30

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

不知道你想查什么,所以不知道直接是什么
页: [1] 2
查看完整版本: 请问各位大师如何运行list命令而不出现文本窗口？