Hachi Posted December 28, 2020 Share Posted December 28, 2020 (edited) Hey guys! I'm trying to write a lisp that creates a 3D reducer. Once I create the 3D surface via command "_Loft" it remains to create a 3d solid body with the "thicken" command. I can't select the 3D loft surface. Can anyone help with this? Thanks in advance for the answers! Here is my code: (defun c:ccs (/ DK DN L P1 P2 P3 P4 RK RN S NS) (setq Dn (getreal "Adja meg a nagyobb vezeték külső átmérőjét:")) ; Give me the biger pipe diameter (setq Dk (getreal "Adja meg a kisebb vezeték átmérőt:")); give me the reduced diameter (setq L (getreal "Adja meg az átmenet hosszát:")); give me the length in which have to be reduced (setq s (getreal "Adja meg a falvastagságot:")); give me the thickness of the pipe (setq Rn (/ Dn 2)) (setq Rk (/ Dk 2)) (setq ns (min s (- 1))) (setq p1 '(0 0 0)) (setq p2 (list 0 0 L)) (setq p3 (polar p1 0 Rn)) (setq p4 (polar p2 0 Rk)) (setq p5 (polar p3 (/ pi 2) Dn)) (setq p6 (polar p1 pi Dn)) (command "_Circle" p1 Rn "") (command "_Zoom" "_All" "") (command "_Circle" p2 Rk "") (command "_Zoom" "_All" "") (command "_loft" p3 p4 "" "") (command "_select" p5 p6 "") ;(command "_THICKEN" ns "") (princ) ) Edited December 28, 2020 by Hachi Quote Link to comment Share on other sites More sharing options...
Hachi Posted December 28, 2020 Author Share Posted December 28, 2020 Hello guys! I find a solution for this particular problem! For me it works, maybe can help for others to: (defun c:ccs (/ DK DN L P1 P2 P3 P4 RK RN S NS SS1) (setq Dn (getreal "Adja meg a nagyobb vezeték külső átmérőjét:")) (setq Dk (getreal "Adja meg a kisebb vezeték átmérőt:")) (setq L (getreal "Adja meg az átmenet hosszát:")) (setq s (getreal "Adja meg a falvastagságot:")) (setq Rn (/ Dn 2)) (setq Rk (/ Dk 2)) (setq ns (min s (- 1))) (setq p1 '(0 0 0)) (setq p2 (list 0 0 L)) (setq p3 (polar p1 0 Rn)) (setq p4 (polar p2 0 Rk)) (setq p5 (polar p3 (/ pi 2) Dn)) (setq p6 (polar p1 pi Dn)) (command "_Circle" p1 Rn "") (command "_Zoom" "_All" "") (command "_Circle" p2 Rk "") (command "_Zoom" "_All" "") (command "_loft" "MÓ" "F" p3 p4 "" "") (setq ss1 (ssget "_L")) (command "_THICKEN" ss1 "" ns "") (princ) ) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.