Sqlitelsp

SQLiteLsp 関数

AutoLISP からデータベースを操作するのは Microsoft ActiveX Data Objects (ADO) を使う方法がありますが、軽い Sqlite([1]) 直接操作したいねっていうことでなんやかんややられて SQLiteLsp として公開されている ARX アドオンによる LISP 関数のメモです。

AutoCAD, BricsCAD, GstarCAD, ZWCAD で使える。（2023年7月現在）

入手先とか細かいところはフォーラムのスレッドを読むといいでしょう。 theswamp.org

SQLiteLsp の関数

DSQL_OPEN ： DBを開く
DSQL_CLOSE ： DBを閉じる
DSQL_CLOSEALL：DBをすべて閉じる
DSQL_QUERY： SQLクエリを実行
DSQL_ASSOCQUERY：クエリ文字列の %d、%f... をパラメータに置き換えた後、クエリを実行。
DSQL_DML ：データベースを編集・挿入、更新、削除...etc.
DSQL_SCALAR ：
DSQL_SCALARSTR ：
DSQL_CMPSTMT ：
DSQL_STMTBIND ：
DSQL_STMTFNL ：
DSQL_VER： SQLiteLsp のバージョン取得
DSQL_SQLITEVER：SQLite のバージョン取得
DSQL_PRINTF：C の Printf スタイルでSQL
DSQL_GETFORMAT：
DSQL_PRINTFX：
DSQL_GETFORMATX ：
DSQL_LOADEXT ：
DSQL_LASTERR ：
DSQL_DUMPERR ：
DSQL_KEYWORDS ：
DSQL_FUNCLIST ：

サンプル

引用：https://bricscadapi.wordpress.com/2010/08/25/sqlite-and-lisp-part1/

; テーブル作成例
(DEFUN C:CREATETABLE (/ db)
  (SETQ DB "C:\\MySQLite.db")
  (DSQL_OPEN DB)
  (DSQL_DML DB "CREATE TABLE Products (ID INT unique, Name TEXT, Desc TEXT, Cost FLOAT);")
  ;
  (DSQL_DML DB "begin transaction;")
  (DSQL_DML DB "REPLACE INTO Products VALUES (1,'シンク12x12','12x12 Sink', %g );" 175.50)
  (DSQL_DML DB "REPLACE INTO Products VALUES (2,'シンク18x24','18x24 Sink', %g );" 185.50)
  (DSQL_DML DB "REPLACE INTO Products VALUES (3,'シンク24x24','24x24 Sink', %g );" 205.50)
  (DSQL_DML DB "commit transaction;")
  ;
  (DSQL_CLOSE DB)
)

; ファイル内のブロックを検索・集計して、結果を XML ファイルに書き込むシンプルな Lisp ルーチン
(defun listXML (ls / itm sl str tstr)
  (setq str ""
        str (strcat str "<?xml version=\"1.0\" encoding=\"utf-8\" ?><products>"))
  (foreach sl ls
    (setq str (strcat str "<product ") tstr "")
    (foreach itm sl
      (setq tstr (strcat tstr (vl-princ-to-string (car itm)) "=\"" (vl-princ-to-string (cdr itm)) "\" "))
    )
    (setq str (strcat str tstr " />"))
  )
  (setq str (strcat str "</products>"))
)
 
(defun getTotal (ls / cnt e1 e2 len lsout)
  (setq lsout '())
  (setq ls (vl-sort ls
        (function (lambda (e1 e2)
              (< (cdr(car e1)) (cdr(car e2)))))))    
   ;CAB @ TheSwamp                           
  (while (setq itm (car ls))
    (setq len (length ls)
          ls (vl-remove itm ls)
          cnt (- len (length ls))
          lsout (cons (cons (cons "QTY" cnt ) itm) lsout)
    )
  )
)
 
(defun c:doit (/ activedocument c db iacadapplication  modelspace s)
  (vl-load-com)
  (setq ls '()
        DB "C:\\MySQLite.db"
        s (ssget (list (cons 0 "INSERT")))
        c 0
  )
  (if s
    (progn
      (DSQL_OPEN DB)
      (While (< c (sslength s))
        (setq e (vlax-ename->vla-object (cdr (car (entget (ssname s c)))))
              res (DSQL_ASSOCQUERY DB "SELECT * FROM Products where Name=('%s');" (vlax-get e 'name))
        )
        (if res
          (setq ls (append(list res) ls))
        )
        (setq c (1+ c))
      )
      (DSQL_CLOSE DB)
    )
    (alert (strcat "製品が見つからなったよ"))
  )
  (setq fl (open "c:\\bom.xml" "w"))
  (princ(listXML(getTotal  ls)) fl)
  (close fl)
  (princ)
)

;; C の Printfスタイルフォーマット
;;; DSQL_DMLFサンプル
(DSQL_DMLF "C:\\MySQLite.db" "insert into Test4 values (%d, %.15g, '%s');" 9  3.14159 "Welcome to the Swamp")
;;; DSQL_PRINTF サンプル
(DSQL_PRINTF "Color %s, number1 %d, number2 %05d, hex %x, float %5.2f, unsigned value %u" "red" 123456 89 255 3.14159 250)