PTCAD allow user to create new command by coding AUTOLISP programming language.
Here is one of example free lisp code to Extrude 2D closed polyline to 3D
User can do step by step
1. open NOTEPAD then put this code and save as ex1.lsp
(defun c:ex1 ( / ss i ent height )
(setq ss (ssget '((0 . "LWPOLYLINE")))) ; Select closed polyline
(if ss
(progn
(setq height (getreal "\nInput Height to Extrude: "))
(setq i 0)
(while (< i (sslength ss))
(setq ent (ssname ss i))
(command "_FMEXTRUDE" ent "" height)
(setq i (1+ i))
)
)
(princ "\n no selected objected")
)
)
(if ss
(progn
(setq height (getreal "\nInput Height to Extrude: "))
(setq i 0)
(while (< i (sslength ss))
(setq ent (ssname ss i))
(command "_FMEXTRUDE" ent "" height)
(setq i (1+ i))
)
)
(princ "\n no selected objected")
)
)
while saving pls set as image
2. Start PTCAD and use command to load application
command : appload
then click add file by choosing ex1.lsp
3. run command ex1 , click colsed polylines to be 3D then put wanted height
Then get result
User can use commadn HIDE or SHADE to change display to be hiddenline mode or shaded mode.
