配管を切断する。 . . . 本文を読む
まず、最初に鋼製電線管(E25)の3Dブロックを作成する。
文章では、わかりにくので、画像を添付する。
なお、BricscadV8のHelpには、3Dまわりのコマンドがないので
トライアルアンドエラーで操作した。 . . . 本文を読む
//---------------------------------------------------------------------------------------------------------
// MakeSlide.dcl
//-----MakeSlide.lsp
//------------------------------------------------- . . . 本文を読む
;***************************************
;***************************************
;;DenSien(電気図作成支援アプリケーション)
;;File Name "MakeSlide.lsp"
;;Command Name "mls"
;;
;;By Kim Grossa
;;Ver1.0 April . . . 本文を読む
//---------------------------------------------------------------------------------------------------------
// InsertBLK.dcl
//-----InsertBLK.lsp
//------------------------------------------------- . . . 本文を読む
;-----------------------------
;ダイアログの表示 ShowDialog
;-----------------------------
(defun ShowDialog()
(setq DclId (load_dialog "InsertBLK.dcl"))
(new_dialog "InsertBLK" DclId)
(set_tile "T . . . 本文を読む
;------------------------------------------------------
;選択したブロックのローカルファイル名を取得 GetSetBLK
;------------------------------------------------------
(defun GetSetBLK()
(if (= fSel 1)
(progn ;;ブ . . . 本文を読む
;------------------------
;表示構成の設定 SetDisp
;------------------------
(defun SetDisp()
(setq HASAMU (rem sldamu UNITAMU))
;;端尺ファイル数を取得。(sldamu=27の場合 7)(sldamu=9の場合 9)(sldamu=20の場合 0)
(set . . . 本文を読む
;***************************************
;***************************************
;;DenSien(電気図作成支援アプリケーション)
;;File Name "InsertBLK.lsp"
;;Command Name "ibl"
;;
;;By Kim Grossa
;;Ver1.0 April . . . 本文を読む
最近、ようやく再開。
BricsCadVer8用のDOSLib.drxがもう配布されていない。
DOSlibを使わない方法でDenSin4.lspを作成中。
だいぶできあがった。 . . . 本文を読む
---Start of DenSin3.dcl
//---------------------------------------------------------------------------------------------------------
// DenSin3.dcl
//-----DenSin3.lsp
//-------------------------------- . . . 本文を読む
ブロック挿入部がほぼ完成。ふー。
---Start of DenSin3.lsp
;***************************************
;***************************************
;;DenSien(電気図作成支援アプリケーション)
;;File Name "DenSin3.lsp"
;;Command Name "dens"
; . . . 本文を読む
dclファイル。
//---------------------------------------------------------------------------------------------------------
// DenSin3.dcl
//-----DenSin3.lsp
//---------------------------------------------- . . . 本文を読む