Author Topic: What that  (Read 1407 times)

0 Members and 1 Guest are viewing this topic.

Adesu

  • Guest
What that
« on: April 30, 2008, 03:38:18 AM »
Today I got a code from a local forum, but I don't know what that function.

Code: [Select]
(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

Code: [Select]
(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?
Code: [Select]
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