How to use Presspull command in VBA?

[dangkha]

Dear All,

 

I'm looking for the guide to make solid objects from some bounded areas by using Presspull command. Please give me some advices!

 

Many thanks,

[BIGAL]

You may have to go back to 1st principles of solid modelling using extrude and subtract etc. Presspull does not seem to allow any command line version. Some one else may know how.

 

; two circles makes a tube
(command "circle" (list 0 0) 100)
(setq obj (entlast))
(command "extrude" obj "" 100)
(setq obj (entlast))
(command "circle" (list 0 0) 90)
(setq obj2 (entlast))
(command "extrude" obj2 "" 100)
(setq obj2 (entlast))
(command "subtract" obj "" obj2 "")