lisp2arx
Visual Programming for AutoLisp
Mathématiques en programmation Lisp..
doc2cpp,doc2lsp, sld2lsp, bmp2dcl,
free__GifCcapture for all-CAD'platforms..
|
Lista Forumurilor Pe Tematici
|
lisp2arx | Reguli | Inregistrare | Login
POZE LISP2ARX
Nu sunteti logat.
|
Nou pe simpatie:
OnutzaGirl la Simpatie.ro
 | Femeie
24 ani
Galati
cauta Barbat
24 - 51 ani |
|
|
zauchan
Moderator
Inregistrat: acum 13 ani
Postari: 180
|
|
You Get all LayOutName/s
(setq MB_CASE_UPPER_SIMPLE 4)
(setq MB_CASE_LOWER_SIMPLE 5)
(defun dfn_layout_inf(ucwords / $rr $db doi clj nam dot lpt aro doi)
(setq
$db (dictsearch (namedobjdict "ACAD_LAYOUT"
doi nil) (progn (setq
lpt nil) (while (setq
clj (assoc 3 $db) (if clj (setq
lpt (append lpt (list (cdr clj)) (setq
$db (cdr (member clj $db))) (setq
doi nil) (setq
dot (if_int ucwords 0) (if (= dot 4) (foreach aro clj (setq
doi (append doi (list (strcase aro) (if (= dot 5) (foreach aro clj (setq
doi (append doi (list (strcase aro T))) (setq
$rr (list lpt doi)
$rr)
29.2KB
_______________________________________
psw: cea de la wjndowsXP gigabyte..
|
|
| pus acum 4 ani |
|
