• This forum is the machine-generated translation of www.cad3d.it/forum1 - the Italian design community. Several terms are not translated correctly.

dynamic blocks 3d

  • Thread starter Thread starter Martina Webber
  • Start date Start date
Martina Webber said:
I'm sorry that you don't understand, the project I have to do is very complex and to not build by hand every single section I thought it was easier to make a 3d block. it is not a portion of land of 10x10 but of an ambia area covered by channels and utilities. 3d only made life easier for me.
As for your last statement, I think you could have avoided it. I've never been rude or rude, I've only asked for an opinion and you weren't obliged to respond so badly. It was enough to illustrate its point of view.
Click to expand...
Martin, I'm sorry you took it...
My intervention was to make you understand that you are willing to spend a high number of hours to learn how to use a program (revit) that you "force" to solve a problem, with the hope of getting a certainty that then you will not be able to control, having no experience and familiarity with that program.
working in 3d with autocad is not so immediate, so there is more time spent (which you perceive as facilitation) to get a "certainty" to which you can get in a different way and probably much faster.
At the end of the fair, I don't know your project, so I can't give specific opinions about it, just the general ones of experience.
 
I presented the project at the beginning of the discussion, I didn't say that I wanted to solve the problem by force revit, I just noticed that maybe with that program it was easier to realize the block I needed. As for the "fast and easy" method that you say does not exist...the having to do a section every 2 meters for 40 m is not exactly an immediate and easy thing to do by hand. I thank you for your constructive remarks that you have made.
 
Hello everyone
I am trying to make diamond blocks and assign a set of well defined values to "define attributes"
For example
i° attribute:
label default message( or values)
voltage 220 or 115
practically when I insert the lock I want you to let me select the voltage value from a table)
I'm using mechanical2015
Thank you.
 
Last edited by a moderator:
Good evening to all,
It has been a month since I asked for your help and now I have managed to finish a first proposal of the project, especially thanks to your valuable help.
Today I would like to ask you another question.
I press that I created my gallery with dynamic 3d blocks (made with surfaces), I turned the blocks surfaces into solids thanks to the lisp of gp. and now I have to do some control sections. I opted for the sections from layout so as not to have to change the retini but visualizing them as solid I can create a raster with the primary secondary and tertiary columns divided by color. My problem is as follows: I would like the primary columns to be seen in the foreground, the secondary immediately below and the tertiary as a background. I tried with the display orders and it does not work since they are solids, but I can get the required result by entering the volumes in descending order, then inserting first the tertiary columns, then the secondary ones and last the primary columns. this would be great if this operation did not require a lot of effort at the moment I have to change a column, since it would require me to re-enter all volumes according to the order described above (I have a total of 324 columns). Is there a better way to achieve this?20150402_173613.webp
 
my contribution:
Code: 
(defun c:so ( / *error* e1 e2 e3 l1 l2 l3 s1 s2 s3)
(vl-load-com)
(defun *error* ( msg )
(vla-endundomark (vla-get-activedocument))
(if e1 (redraw e1 4))
(if e2 (redraw e2 4))
(if (not (wcmatch (strcase msg t) "*break, *cancel*, *exit*"))
(princ (strcated "\nerror: " msg")
)
(princ)
)
(vla-startundomark (vla-get-activedocument))
(if (and
(setq l1 (cdr (assoc 8 (entget (setq e1 (car (entsel "\nselezionare a primary colonnade))))))))
(not (redraw e1 3))
(setq l2 (cdr (assoc 8 (entget (setq e2 (car (entsel "\nselezionare a colonna secondaria))))))))))
(not (redraw e2 3))
(setq l3 (cdr (assoc 8)))))
(not (redraw e1 3))
)
(progn)
(setq s1 (ssget "_x" (list '(0 . "3dsolid") (cons 8 l1)))
(setq s2 (ssget "_x" (list '(0 . "3dsolid") (cons 8 l2)))
(setq s3 (ssget "_x" (list '(0 . "3dsolid") (cons 8 l3))))
(vl-cmdf "_draworder" s1 "_b")
(vl-cmdf "_draworder" s2 ""_b")
(vl-cmdf "_draworder" s3 "_b")
(vl-cmdf "_move" s1 s2 s3 ""_non" "0,0" "_non" "0,0")
)
)
(vla-endundomark (vla-get-activedocument))
)
 
GP. said:
my contribution:
Code: 
(defun c:so ( / *error* e1 e2 e3 l1 l2 l3 s1 s2 s3)
(vl-load-com)
(defun *error* ( msg )
(vla-endundomark (vla-get-activedocument))
(if e1 (redraw e1 4))
(if e2 (redraw e2 4))
(if (not (wcmatch (strcase msg t) "*break, *cancel*, *exit*"))
(princ (strcated "\nerror: " msg")
)
(princ)
)
(vla-startundomark (vla-get-activedocument))
(if (and
(setq l1 (cdr (assoc 8 (entget (setq e1 (car (entsel "\nselezionare a primary colonnade))))))))
(not (redraw e1 3))
(setq l2 (cdr (assoc 8 (entget (setq e2 (car (entsel "\nselezionare a colonna secondaria))))))))))
(not (redraw e2 3))
(setq l3 (cdr (assoc 8)))))
(not (redraw e1 3))
)
(progn)
(setq s1 (ssget "_x" (list '(0 . "3dsolid") (cons 8 l1)))
(setq s2 (ssget "_x" (list '(0 . "3dsolid") (cons 8 l2)))
(setq s3 (ssget "_x" (list '(0 . "3dsolid") (cons 8 l3))))
(vl-cmdf "_draworder" s1 "_b")
(vl-cmdf "_draworder" s2 ""_b")
(vl-cmdf "_draworder" s3 "_b")
(vl-cmdf "_move" s1 s2 s3 ""_non" "0,0" "_non" "0,0")
)
)
(vla-endundomark (vla-get-activedocument))
)
Click to expand...
gp. thanks again, I guess it's a lisp this right?
 
as always gp. save me... thank you

if I had not only 3 types of columns but 5 I just have to add in the lisp:(setq l4 (cdr (assoc 8)))))
(not (redraw e1 3))
(setq l5 (cdr (assoc 8)))))
(not (redraw e1 3))
???
 
it's not enough, I'll tie you the lisp with the changes (it launches with ♪), see if it works because I didn't test it. :smile:
 

Attachments

Good morning.
I'm sorry I disappeared, but I had a lot to do.
GP. said:
it's not enough, I'll tie you the lisp with the changes (it launches with ♪), see if it works because I didn't test it. :smile:
Click to expand...
I just tried the lisp and it doesn't work.. .
 
on different layers. I have 5 layers for each compartment around 25 layers. I tried to download the plug that was indicated to me by dieva but I can't make it work and it blew all the lisp that I had installed.. Now every time I open autocad I have to recharge one by one.
 
now I have reordered everything and I have inserted the various compartments as external references so I just have to sort the various volumes in the individual files and then it should update automatically
 
the first lisp asked the selection of three types of columns to create the order, to the second I trivially added two other requests, for a total of five types of columns.
I don't know if you've solved it now.
 

Forum statistics

Threads
44,997
Messages
339,767
Members
4
Latest member
ibt

Members online

No members online now.
Total: 0 (members: 0, guests: 0)
Back
Top