Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Vaidas

Pages: 1 [2] 3 4 ... 7
16
Bricscad / Bricscad V12 (Linux)
« on: 2012-02-23, 17:47:29 »

17
Nemokami įrankiai / BKG_Extrim
« on: 2012-02-19, 17:44:06 »

18
Free tools / BKG_Extrim
« on: 2012-02-19, 17:42:51 »

20
DXFOUT + DXFIN ?

21
Tikriausiai pats proxy neleidžia kopijavimo (IMHO).

22
Nuo senų senovės stengiuosi tarp brėžinių objektais keistis standartinėmis CAD priemonėmis (Insert, Xref), veikia švariau nei per buferį. Gal Wblock+Insert pavyktų, tik ignoruotų proxy?

O dėl forumo, tai kol kas kovoti tenka su spameriais, leidžiamo prisegamų failų dydžio net nežiūrėjau. Patikrinsiu.

23
Bricscad / Re: Dėl teksto aukščio Bricscade
« on: 2012-01-31, 06:57:09 »
Spėju, kad klaida gali būti susijusi su fiksuoto aukščio teksto stiliumi. Reiktų pažiūrėti brėžinį.

24
LISP, DCL, Meniu, pritaikymas... / Re: SQLiteLsp
« on: 2012-01-13, 20:52:13 »
SQLite duomenų bazių peržiūrai naudojuosi sqlitebrowser. Lengvas, paprastas, nereikia įdiegti ir konfigūruoti. Duomenų bazės išplėtimas gali būti bet koks, tačiau dėl bendros tvarkos naudoju .db

25
LISP, DCL, Meniu, pritaikymas... / Re: SQLiteLsp
« on: 2012-01-13, 20:48:24 »
Linijų rūšiavimo pagal ilgį ir spalvą pavyzdys.
Pastaba: spalva 'bylayer' gražins klaidą, todėl visoms linijoms reikia priskirti spalvas ne pagal sluoksnį.

Code: [Select]
(defun c:test ( / a my-dbf)
 
  (setq my-dbf (strcat (getvar "dwgprefix") "SQLiteLsp-test-" (getvar "program")"-" (rtos (atof (getvar "acadver")) 2 2) ".db"))

  (if (findfile my-dbf)
    (progn
      (DSQL_OPEN my-dbf)
      (DSQL_DML my-dbf "DELETE FROM Lines;")
      (DSQL_CLOSE my-dbf)
      (vl-file-delete my-dbf)
      ))

 
  (DSQL_OPEN my-dbf)
  (DSQL_QUERY my-dbf "PRAGMA foreign_keys = ON;")
  (DSQL_QUERY my-dbf "PRAGMA foreign_keys;")
  (DSQL_DML my-dbf "CREATE TABLE Lines (Id int, N int, Handle char(16), LineLength int, Color int, Layer char(255));")
  (DSQL_CLOSE my-dbf)
 

(if (setq ss (ssget "_X"
 '(
    (0 . "LINE")
  )
))

(progn 
  (setq n (sslength ss) which 0)


  (DSQL_OPEN my-dbf)
  (DSQL_DML my-dbf "BEGIN TRANSACTION;")
  (DSQL_CMPSTMT my-dbf "INSERT INTO Lines VALUES (?, ?, ?, ?, ?, ?);")
 
  (repeat n
    (setq line (ssname ss which))

    (DSQL_STMTBIND
            which
            0
    (cdr (assoc 5 (entget line)))
    (fix (distance (cdr (assoc 10 (entget line)))(cdr (assoc 11 (entget line)))))
    (cdr (assoc 62 (entget line)))
    (cdr (assoc 8 (entget line)))
    )
     
        (setq which (+ which 1))
  )
 
  (DSQL_DML my-dbf "COMMIT TRANSACTION;")
  (DSQL_STMTFNL)
  (DSQL_CLOSE my-dbf)


  (setq which 0)
  (DSQL_OPEN my-dbf)

  (setq lst (DSQL_ASSOCQUERY my-dbf "SELECT DISTINCT Lines.LineLength, Lines.Color, Lines.Layer FROM Lines ORDER BY Lines.LineLength DESC, Lines.Color ASC;"))
  (setq which_dif 1)

  (foreach dif lst
  (setq LineLength (cdr (assoc "LineLength" dif)) Color (cdr (assoc "Color" dif)) Layer (cdr (assoc "Layer" dif)))
  (setq lst-id (cdr (DSQL_QUERY my-dbf (strcat "SELECT DISTINCT Lines.Id FROM Lines WHERE Lines.LineLength=" (itoa LineLength) " AND Lines.Color=" (itoa Color) " AND Lines.Layer=" Layer ";"))))

  (foreach it lst-id
  (DSQL_DML my-dbf (strcat "UPDATE Lines SET N=" (itoa which_dif) " WHERE Id=" (itoa (car it)) ";"))
    )

    (setq which_dif (1+ which_dif))

    )


  (DSQL_CLOSE my-dbf)
);p
    );i
 
  (princ)
)

(princ)

26
Nėra. O ir Windows versijas atsibodo gaudyt ir lakstyt po visokius Wow6432Node, todėl nusprendžiau grįžti prie kintamųjų saugojimo INI failuose. Greičiau veiktų SQLite, bet nedirba su Classic.

27
1. Keliai
2. Kintamųjų saugojimas
3. Aplinkos kintamieji
4. Papildomos programos brx/lrx (Linux nėra DosLib, todėl ir pasirašiau setini/getini pats)
...

28
LISP, DCL, Meniu, pritaikymas... / SQLiteLsp
« on: 2012-01-13, 16:44:49 »
SQLite yra biblioteka, kuri realizuota kaip nepriklausomas, nereikalaujantis serverio, nereikalaujantis konfigūravimo SQL duomenų bazių variklis. SQLite labiausiai pasaulyje paplitęs SQL duomenų bazių variklis. Su LISP SQLite veikia nepaprastai greitai.

Nuorodos parsisiuntimui iš TheSwamp
Kodų pavyzdžiai BricscadAPI

Ir tai yra vienas geriausių dalykų, sukurtų LISP ir Bricscad,  ir aš su dideliu malonumu juo naudojuosi!
Veikia su Bricscad Windows ir Linux.

29
LISP, DCL, меню, настройкa... / SQLiteLsp
« on: 2012-01-13, 16:38:32 »
SQLite это библиотека, которая реализованна как независимый, безсерверный, не нуждающийся в конфигурации движок SQL баз данных. SQLite есть больше всего развёрнутый движок SQL баз данных в мире.  С LISP SQLite работает необыкновенно скоро.

Ссылки для скачивания на TheSwamp
И примеры кодов на BricscadAPI

И это есть одно из самых лучших утилит созданных для LISP и Bricscad, и я с большим удовольствием этим пользуюсь!
Для Bricscad Windows и Linux.

30
LISP, DCL, Menu, Customization... / SQLiteLsp
« on: 2012-01-13, 16:28:01 »
SQLite is a software library that implements a self-contained, serverless, zero-configuration, transactional SQL database engine. SQLite is the most widely deployed SQL database engine in the world. And with LISP SQLite works very fast.

Find download links at TheSwamp
And Sample codes at BricscadAPI

And this is one of the best things created for LISP in Bricscad and I'm using it with great pleasure!
Works with Bricscad for Windows and Linux.

Pages: 1 [2] 3 4 ... 7