Trouble Creating Shapes in 3D

[mgorecki]

I have a program that creates a3D model, but when I want to add a drill hole on the side, it just doesn't use the selected UCS or view side.

I set the right view and even a UCS, but the circle in this case comes in flat, like I'm using the "World" UCS.

 (command "_-view" "front")
 (command "_-view" "_swiso")
 (command "ucs" "3p" (list 0 0 0) (list 1 0 0) (list 0 0 1))
 (setq sideDrillLoc (list (car unitCenter) (* sideVacCentToTop -1) (* (+ hbRaisedAreaStartZ 1) -1)))
 (CreateCircle sideDrillLoc (/ sideVacHoleDia 2.0))

Any help getting this to come in right would be greatly appreciated.

[Moshe-A]

@mgorecki  hi,

The result shows that the right ucs is not properly set that's why the drill is placed on the XY plane of WCS.

you did not provide all the code you have so we do not knows what "front" & "swiso" views are?!

also these variables and function call 

(setq sideDrillLoc (list (car unitCenter) (* sideVacCentToTop -1) (* (+ hbRaisedAreaStartZ 1) -1)))
 (CreateCircle sideDrillLoc (/ sideVacHoleDia 2.0))

here is a more simple lisp command called CDRILL that illustrate how this could be done:

(defun c:cdrill ()
 (command "._ucs" "_save" "cdrill") ; save ucs
  
 ; here you must set the proper 3d view or preset a 3d view  
  
 (command-s "._ucs" "_3p") ; establish ucs on face
 (command-s "._circle")

 (command "._ucs" "_restore" "cdrill") ; restore ucs
)  

enjoy

moshe

[doaiena]

Is the "CreateCircle" function using the "vla-AddCircle" method by any chance? If so, change it to entmake, because vla-Add... works in WCS.

[mgorecki]

Hello Moshe,

Thanks, I did try that but unfortunately the circle appeared flat (world ucs, top view) and not rotated as it should appear in the side view ucs.

[mgorecki]

Hi doaiena,

Thanks for the info, I didn't know that about vla-AddCircle.  I am using entmake and it still draws the circle flat like in top view and not rotated in the side view.

[mgorecki]

Since I tried setting the UCS in different ways, and the circle still showed up perpendicular to the side I wanted it to be on (world Top view, not world side view), I just ended up placing the circle, then rotating it about its center.

 (CreateCircle sideDrillLoc (/ sideVacHoleDia 2.0))  <-- entmakes a circle given the center and radius
 (setq sideDrill (entlast))
 (command "rotate3d" sideDrill "" "x" sideDrillLoc 90)   <--use "rotate3d" and NOT "3dRotate".  "x" is the axis to rotate around

It stinks to have to do it this way.  I mean I can change the UCS and manually put a circle in rotated correctly, but when using LiSP, it just wont create the circle rotated correctly.

[doaiena · Accepted solution]

Rotating the circle is not really a solution. It's just adding another command on top of the existing code. If you are already using entmake to create the circles, you should set the property at that moment.

Example:

(entmakex (list (cons 0 "CIRCLE") (cons 10 (list 0 0 0)) (cons 40 50) (cons 210 (list 0 0 1))))
(entmakex (list (cons 0 "CIRCLE") (cons 10 (list 0 0 0)) (cons 40 50) (cons 210 (list 0 1 0))))
(entmakex (list (cons 0 "CIRCLE") (cons 10 (list 0 0 0)) (cons 40 50) (cons 210 (list 1 0 0))))

You can use the "trans" function to convert from the current UCS

[mgorecki]

Hi doaiena,

That worked perfectly.  I need to brush up some more on my DXF code references.

Thank you very much!

Mark