新人第五帖，怎么查询与修改三维实体的长宽高（未解决）

rsent

;查看ename实体的dxf码
(defun c:c1()(entget (car(entsel))))
;查看VLA对象的特性
(defun c:c2()(vlax-dump-object  (vlax-ename->vla-object (car(entsel)))))
;查看VLA对象的特性和方法
(defun c:c3()(vlax-dump-object  (vlax-ename->vla-object (car(entsel))) t))

都没找到相关的特性。。



感谢 Lispboy 和Free-Lancer的帮助。。你们代码写的真棒！
只是还是卡在 修改特性上面。。慢慢研究，总会解决的。

Lispboy

看楼主发一天帖子了都和三维有关，楼主做什么工作的？


既然新学，直接用XDRX API吧，下面红色的是对3DSOLID实体支持的查询方法。

命令: (xdrx_getpropertyvalue (entlast))

Class AcDb3dSolid:

    ├─Centroid
    ├─BoundingBox
    ├─MomInertia
    ├─ProdInertia
    ├─PrinMoments
    ├─PrinAxes
    ├─RadiiGyration
    ├─NumChanges
    ├─IsNull


Class AcDbEntity:

    ├─BoundingBox
    ├─Color
    ├─ECS
    ├─Layer
    ├─Layout
    ├─Linetype
    ├─LinetypeScale
    ├─LineWeight
    ├─Plane
    ├─PlotStyleName
    ├─StretchPoint
    ├─Transparency
    ├─Visibility

Class AcDbObject:
    ├─ClassName
    ├─ExtensionDictionary
    ├─FieldDictionary
    ├─IsA
    ├─IsAProxy
    ├─IsErased
    ├─IsReallyClosing
    ├─Handle
    ├─HasFields
    ├─MyParent
    ├─ObjectID
    ├─Owner

Lispboy

加载XDRX API后，试下下面的代码：

1. (defun c:tt()
   
2.    (if (setq e (car (xdrx_entsel "\n拾取3DSOLID实体<退出>:" '((0 . "3DSOLID")))))
   
3.       (progn
   
4.          (setq box (xdrx_getpropertyvalue e "boundingbox")
   
5.                h (- (last (last box)) (last (car box)))
   
6.                v (mapcar '- (last box)(car box))
   
7.                x (car v)
   
8.                y (cadr v)
   
9.          )
   
10.          (princ (strcat "\n长: " (vl-princ-to-string x) "  宽:" (vl-princ-to-string y) "  高:" (vl-princ-to-string h)))
    
11.       )
    
12.    )
    
13.    (princ)
    
14. )
    

(defun c:tt()<br />    (if (setq e (car (xdrx_entsel "\n拾取3DSOLID实体<退出>:" '((0 . "3DSOLID")))))<br />       (progn<br />          (setq box (xdrx_getpropertyvalue e "boundingbox")<br />                h (- (last (last box)) (last (car box)))<br />                v (mapcar '- (last box)(car box))<br />                x (car v)<br />                y (cadr v)<br />          )<br />          (princ (strcat "\n长: " (vl-princ-to-string x) "  宽:" (vl-princ-to-string y) "  高:" (vl-princ-to-string h)))<br />       )<br />    )<br />    (princ)<br /> )<br />

rsent

Lispboy 发表于 2014-12-14 21:31
看楼主发一天帖子了都和三维有关，楼主做什么工作的？

可以用lsp吗？ 正在学习中。。感觉功能很强大。我是做家具设计的。可以用lsp吗？  正

Lispboy

rsent 发表于 2014-12-14 21:42
可以用lsp吗？ 正在学习中。。感觉功能很强大。我是做家具设计的。可以用lsp吗？  正

你看上面的代码不是LISP吗？ XDRX API是用ARX写的供LISP使用的函数库，你加载后，就和你用的那些LISP,VLISP系统自带的函数是一样的使用。

Free-Lancer

1. (vl-load-com)
   
2. (defun c:tt (/ e v bp up)
   
3.   (while (setq e (ssget ":S" '((0 . "3dsolid"))))
   
4.     (progn
   
5.       (vla-getboundingbox
   
6.         (vlax-ename->vla-object (ssname e 0))
   
7.         'bp
   
8.         'up
   
9.       )
   
10.       (setq v (mapcar '- (safearray-value up) (safearray-value bp)))
    
11.       (princ (strcat "\n"
    
12.                      (apply 'strcat
    
13.                             (mapcar '(lambda (x y)
    
14.                                        (strcat x (rtos y 2 4))
    
15.                                      )
    
16.                                     '("长 = " "; 宽 = " "; 高 = ")
    
17.                                     v
    
18.                             )
    
19.                      )
    
20.              )
    
21.       )
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )
    

(vl-load-com)<br /> (defun c:tt (/ e v bp up)<br />   (while (setq e (ssget ":S" '((0 . "3dsolid"))))<br />     (progn<br />       (vla-getboundingbox<br />         (vlax-ename->vla-object (ssname e 0))<br />         'bp<br />         'up<br />       )<br />       (setq v (mapcar '- (safearray-value up) (safearray-value bp)))<br />       (princ (strcat "\n"<br />                      (apply 'strcat<br />                             (mapcar '(lambda (x y)<br />                                        (strcat x (rtos y 2 4))<br />                                      )<br />                                     '("长 = " "; 宽 = " "; 高 = ")<br />                                     v<br />                             )<br />                      )<br />              )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

HLCAD

Free-Lancer 发表于 2014-12-15 08:04

非常敬佩您！纯Lsp代码感觉就是亲切！

rsent

Free-Lancer 发表于 2014-12-15 08:04

老师。你代码写的真好。 老师。你代码写的真好。 还想请问下怎么一修改“长”
(setq r (getreal "\n 修改后的总长度:"))

st788796

rsent 发表于 2014-12-15 11:00
老师。你代码写的真好。 老师。你代码写的真好。 还想请问下怎么一修改“长”
(setq r (getreal "\n 修 ...

lisp 改不了

434939575

太强大了！

rsent

434939575 发表于 2014-12-15 23:14
太强大了！

要是能修改长就完美了。

rsent

Lispboy 发表于 2014-12-14 21:40
加载XDRX API后，试下下面的代码：

大师。。查询解决了。可以修改刚刚得到的 长 宽 高的值吗？ xd里有这个函数吗

csharp

rsent 发表于 2015-1-10 23:57
大师。。查询解决了。可以修改刚刚得到的 长 宽 高的值吗？ xd里有这个函数吗

别想了，ARX都没有修改方法

rsent

Free-Lancer 发表于 2014-12-15 08:04

大师。您好。。请问下 怎么获得 由三维实体组成的图形的 总面积。我用你教的getboundingbox写的。请看看

http://bbs.xdcad.net/forum.php?mod=viewthread&tid=679410&page=1#pid3547747