Today I got a code from a local forum, but I don't know what that function.
(defun c:cyl (/ pt rad el)
(setq pt '(0 0 0))
(setq rad 5)
(command "_circle" pt rad "")
(setq el (entlast))
(command "_extrude" el "" rad "0" "")
(princ)
) ; defun
(defun c:test (/ app appl map mapc rev ss sse vl vlrem)
(setq ss (car (entsel "\nSelect a solid: ")))
(setq sse (entget ss))
(setq vlrem (vl-remove-if-not
(function
(lambda (g)(= (car g) 1))) sse))
(setq map (mapcar 'cdr vlrem))
(setq rev (reverse map))
(setq app (apply 'strcat rev))
(setq vl (vl-string->list app))
(setq mapc (mapcar (function (lambda (char)
(if
(= char 32)
" "
(chr (- 159 char))))) vl))
(setq appl (apply 'strcat mapc))
(princ appl)
(princ)
) ; defun
This here I confuse what that?
point $-1 -1 $-1 5 0 0
#point $-1 -1 $-1 5 0 5
#ellipse-curve $-1 -1 $-1 0 0 0 0 0 1 5 0 0 1 I I
#vertex $-1 -1 $-1 $19 $25
#ellipse-curve $-1 -1 $-1 0 0 5 0 0 -1 5 0 0 1 I I
#vertex $-1 -1 $-1 $17 $24
#edge $-1 -1 $-1 $22 0 $22 6.2831853071795862 $18 $23 forward @7 unknown
#coedge $-1 -1 $-1 $18 $18 $16 $19 reversed $13 $-1
#edge $-1 -1 $-1 $20 0 $20 6.2831853071795862 $12 $21 forward @7 unknown
#coedge $-1 -1 $-1 $16 $16 $18 $19 forward $11 $-1
#coedge $-1 -1 $-1 $15 $15 $12 $17 reversed $9 $-1
#plane-surface $-1 -1 $-1 0 0 0 0 0 1 1 0 0 forward_v I I I I
#loop $-1 -1 $-1 $-1 $18 $8
#coedge $-1 -1 $-1 $12 $12 $15 $17 forward $6 $-1
#loop $-1 -1 $-1 $-1 $16 $4
#plane-surface $-1 -1 $-1 0 0 5 0 0 1 1 0 0 forward_v I I I I
#loop $-1 -1 $-1 $-1 $15 $5
#face $-1 -1 $-1 $-1 $13 $3 $-1 $14 reversed single
#cone-surface $-1 -1 $-1 0 0 0 0 0 1 5 0 0 1 I I 0 1 5 forward I I I I
#loop $-1 -1 $-1 $11 $12 $4
#face $-1 -1 $-1 $8 $9 $3 $-1 $10 forward single
#face $-1 -1 $-1 $5 $6 $3 $-1 $7
forward single
#shell $-1 -1 $-1 $-1 $-1 $4 $-1 $2
#lump $-1 -1 $-1 $-1 $3 $1
#body $-1 -1 $-1 $2 $-1 $-1
#asmheader $-1 -1 @12 208.0.4.7009
#25.399999999999999 9.9999999999999995e-007 1e-010 16
Autodesk AutoCAD 17 ASM 6.0.4.7009 NT 24 Wed Apr 30 14:31:49 2008 20800 26 2 0
