Autolispでテトリスを作ったとんでもない神がいるぞ。
VBA版をPython版にしてみた。
ChatGPTにVBA版のソースコードをPythonに変換してくれと頼んだら一発で成功！
Bardの登場がChatGPTに大きな影響を与えているのが実感できる。
使い物にならなかったのが全く別物といってよい程の改善が行われたようだ。
import tkinter as tk
from tkinter import messagebox
def create_line():
start_x = int(tk.simpledialog.askstring("直線", "始点のX座標を入力してください。"))
start_y = int(tk.simpledialog.askstring("直線", "始点のY座標を入力してください。"))
end_x = int(tk.simpledialog.askstring("直線", "終点のX座標を入力してください。"))
end_y = int(tk.simpledialog.askstring("直線", "終点のY座標を入力してください。"))
canvas.create_line(start_x, start_y, end_x, end_y, width=2)
def create_circle():
center_x = int(tk.simpledialog.askstring("円", "中心のX座標を入力してください。"))
center_y = int(tk.simpledialog.askstring("円", "中心のY座標を入力してください。"))
radius = int(tk.simpledialog.askstring("円", "半径を入力してください。"))
x1 = center_x - radius
y1 = center_y - radius
x2 = center_x + radius
y2 = center_y + radius
canvas.create_oval(x1, y1, x2, y2, width=2, outline="red")
def process_user_input():
user_input = tk.simpledialog.askstring("CAD", "何をしましょうか？")
has_line = "直線" in user_input
has_circle = "円" in user_input
if has_line:
create_line()
elif has_circle:
create_circle()
else:
tk.messagebox.showerror("エラー", "そのような操作はできません。")
root = tk.Tk()
root.title("CAD")
canvas = tk.Canvas(root, width=400, height=400)
canvas.pack()
button = tk.Button(root, text="操作を入力", command=process_user_input)
button.pack()
root.mainloop()
もちろんこれは簡易プロトタイプである。
こんなもん現場では全然実用にならない。もっと複雑な操作が要求される。
次の段階はAutocadにこの機能を組み込むことが目標である。
それが成功したら、どんどんいろんな操作・機能を追加していこうと思っている。
Autolispのソースコード内でPythonを呼び出して組み込み、自動で描画できれば開発が早まるだろう。
もしそれができなければ、Autolispで全て書かなければならない。
はたしてAutolisp言語にはチャットボットを作るための機能や関数はあるのだろうか？
Lisp言語の本では人工知能について言及があったからAutolispでも可能なのではないかと考えているが・・・
import tkinter as tk
import qrcode
def generate_qrcode():
python_code = code_entry.get("1.0", tk.END)
qr = qrcode.QRCode(
version=1,
error_correction=qrcode.constants.ERROR_CORRECT_H,
box_size=10,
border=4,
)
qr.add_data(python_code)
qr.make(fit=True)
filename = filename_entry.get()
image = qr.make_image(fill_color="black", back_color="white")
image.save(filename)
# TKinterウィンドウの作成
window = tk.Tk()
window.title("QR Code Generator")
# テキスト入力フォーム
code_label = tk.Label(window, text="Python Code:")
code_label.pack()
code_entry = tk.Text(window, height=10, width=50)
code_entry.pack()
# ファイル名入力フォーム
filename_label = tk.Label(window, text="Filename:")
filename_label.pack()
filename_entry = tk.Entry(window)
filename_entry.pack()
# 保存ボタン
generate_button = tk.Button(window, text="Generate and Save QR Code", command=generate_qrcode)
generate_button.pack()
# TKinterウィンドウの実行
window.mainloop()
↑このQRコードを読み取るとｗｗｗ
任意のPythonコードをQRコード化するPythonプログラムを書いて
import qrcode
def generate_qrcode(data, filename):
qr = qrcode.QRCode(
version=1,
error_correction=qrcode.constants.ERROR_CORRECT_H,
box_size=10,
border=4,
)
qr.add_data(data)
qr.make(fit=True)
image = qr.make_image(fill_color="black", back_color="white")
image.save(filename)
# QRコード化したいPythonコード
python_code = '''
import math
def calculate_area(radius):
return math.pi * radius ** 2
r = float(input("Enter the radius: "))
area = calculate_area(r)
print("The area of the circle is:", area)
'''
# QRコードを生成して保存
generate_qrcode(python_code, 'python_code_qr.png')
楽譜生成AIがついに登場した！！！
ただしピアノだけ。
それにしてもピアノだけでも十分凄すぎる。
今まで有料の耳コピソフトを試してきたが、まともなソフトは全くなかった。
ミシェル・ルグランと羽田健太郎が共演したシェルブールの雨傘とか楽譜化してみたい！
参考までに。
https://youtu.be/5U-WL0QvKCg
P.S.
↑この曲をPiano Transcriptionで楽譜化してみたら・・・ｗｗｗ
エラいことにｗｗｗ
グチャグチャでわけわからんｗｗｗ
使い物にならんｗｗｗ
こんなの読めるか、ボケ！
誇大広告すんな！ボケ！
https://blog.goo.ne.jp/nichikon2/e/bc53b832fb46b2466196b41cc1cdf2ff
の記事で作ったプログラムをちょっと改造してみた。
ユーザーが入力した文字の中に「円」または「直線」が含まれているかどうか判定し、
もし含まれていた場合のみ直線または円を描くプログラムを実行するようにした。
ちなみにbardでは何回も修正するように依頼したのだが、
全く直らないどころか同じ返答を繰り返すばかりだったので、
ChatGPTに頼んでみたら、一発で直った。
それが次のコードである。
Sub CAD()
Dim userInput As String
Dim hasLine As Boolean
Dim hasCircle As Boolean
userInput = InputBox("何をしましょうか？")
hasLine = InStr(userInput, "直線") > 0
hasCircle = InStr(userInput, "円") > 0
If hasLine Then
MsgBox "始点と終点の座標を指定してください。"
Dim StartX As Integer
Dim StartY As Integer
Dim EndX As Integer
Dim EndY As Integer
StartX = InputBox("始点のX座標を入力してください。")
StartY = InputBox("始点のY座標を入力してください。")
EndX = InputBox("終点のX座標を入力してください。")
EndY = InputBox("終点のY座標を入力してください。")
With ActiveSheet.Shapes.AddLine(StartX, StartY, EndX, EndY)
.Line.Weight = 2 ' Set the line thickness to 2 points
End With
ElseIf hasCircle Then
MsgBox "中心の座標と半径を入力してください。"
Dim centerX As Variant
Dim centerY As Variant
Dim radius As Variant
Dim drawingSheet As Worksheet
Dim newCircle As Shape
Set drawingSheet = ActiveSheet
centerX = Application.InputBox("Enter the x-coordinate of the center of the circle", "Center X", Type:=1)
centerY = Application.InputBox("Enter the y-coordinate of the center of the circle", "Center Y", Type:=1)
radius = Application.InputBox("Enter the radius of the circle", "Radius", Type:=1)
Set newCircle = drawingSheet.Shapes.AddShape(msoShapeOval, _
-radius, centerY - radius, radius * 2, radius * 2)
With newCircle.Line
.Weight = 2 ' Set the line thickness to 2 points
.DashStyle = msoLineSolid ' Set the line style to solid
.ForeColor.RGB = RGB(255, 0, 0) ' Set the line color to red
End With
newCircle.Fill.Visible = msoFalse ' Set the fill to transparent
Else
MsgBox "そのような操作はできません。"
End If
End Sub
てなわけで今回はChatGPTの勝ち。
autolispでpythonを呼び出して自動でautocadでモデリングをしたい
はい、Autolispを使用してPythonを呼び出してAutoCADで自動モデリングを行うことができます。AutolispはAutoCADで使用できるプログラミング言語であり、Pythonは強力で用途の広いプログラミング言語です。 Autolispを使用してPythonを呼び出すと、AutoCADで複雑なモデリングタスクを自動化できます。
Autolispを使用してPythonを呼び出すには、Autolisp関数acedEval()を使用する必要があります。acedEval()関数は、Pythonコード文字列を実行するために使用されます。たとえば、次のAutolispコードは、Pythonコード文字列print("Hello, world!")を実行します。
(acedEval "print('Hello, world!')")
詳細
Autolispを使用してPython関数を呼び出すこともできます。たとえば、次のAutolispコードは、Python関数math.sqrt()を呼び出して2の平方根を計算します。
(acedEval "(math.sqrt 2)")
詳細
Autolispを使用してPythonライブラリをロードすることもできます。たとえば、次のAutolispコードは、Pythonライブラリnumpyをロードします。
(acedEval "import numpy")
詳細
Autolispを使用してPythonオブジェクトを作成することもできます。たとえば、次のAutolispコードは、Pythonオブジェクトnumpy.array([1, 2, 3])を作成します。
(acedEval "arr = numpy.array([1, 2, 3])")
詳細
Autolispを使用してPythonオブジェクトを操作することもできます。たとえば、次のAutolispコードは、Pythonオブジェクトarrの要素の合計を計算します。
(acedEval "print(arr.sum())")
詳細
Autolispを使用してPythonオブジェクトを保存することもできます。たとえば、次のAutolispコードは、Pythonオブジェクトarrをファイルoutput.csvに保存します。
(acedEval "arr.tofile('output.csv')")
詳細
Autolispを使用してPythonオブジェクトを読み込むこともできます。たとえば、次のAutolispコードは、ファイルinput.csvからPythonオブジェクトarrを読み込みます。
(acedEval "arr = numpy.loadtxt('input.csv', delimiter=',')")
詳細
Autolispを使用してPythonオブジェクトを表示することもできます。たとえば、次のAutolispコードは、Pythonオブジェクトarrを図面に表示します。
(acedEval "arr.plot()")
詳細
これらは、Autolispを使用してPythonを呼び出してAutoCADで自動モデリングを行う方法のほんの一例です。Autolispを使用してPythonを呼び出す方法は他にもたくさんあります。Autolispを使用してPythonを呼び出す具体的な方法は、実行しようとしている特定のタスクによって異なります。
…だとよ。マジか？
これが本当だったらChatGPT死亡確定だぞwww
めちゃくちゃ応答が早いし。
CATIAのマクロまたはVBA、VBSでPythonを呼び出す方法は？
CATIAのマクロまたはVBA、VBSでPythonを呼び出すには、次の手順に従います。
Pythonをインストールします。
Pythonインタープリターのパスを環境変数に追加します。
CATIAマクロまたはVBA、VBSコードで、次のコマンドを使用してPythonインタープリターを起動します。
CreateObject("WScript.Shell").Run "python.exe"
コードは慎重に使用してください。詳細
Pythonインタープリターが起動したら、次のコマンドを使用してPythonコードを実行できます。
python your_python_code.py
詳細
たとえば、次のコードは「hello_world.py」という名前のPythonファイルを作成し、そのファイルを実行します。
CreateObject("WScript.Shell").Run "python.exe" "hello_world.py"
詳細
「hello_world.py」ファイルの内容は次のとおりです。
print("Hello, world!")
詳細
これにより、次の出力が表示されます。
Hello, world!
詳細
ここにメッセージを入力してください
Bard で生成される情報は不正確または不適切な場合がありますが、Google の見解を述べるものではありません。
MQL4でPythonを呼び出す方法
MQL4 から Python を呼び出す方法はいくつかあります。1 つの方法は、Python プログラムをコンパイルして DLL ファイルにしてから、MQL4 から DLL ファイルをロードすることです。もう 1 つの方法は、Python スクリプトを実行するサーバーを使用して、MQL4 から Python スクリプトを呼び出すことです。
DLL ファイルを使用して MQL4 から Python を呼び出すには、次の手順に従います。
Python プログラムをコンパイルして DLL ファイルにします。
DLL ファイルを MQL4 のインストールディレクトリにコピーします。
MQL4 のソースファイルで、次の行を使用して DLL ファイルをロードします。
#include
HMODULE hModule = LoadLibrary("python.dll");
if (hModule == NULL) {
// エラー処理
}
DLL 内の関数を呼び出すには、次の構文を使用します。
FARPROC pFunc = GetProcAddress(hModule, "FunctionName");
if (pFunc == NULL) {
// エラー処理
}
int result = (int)pFunc();
サーバーを使用して MQL4 から Python スクリプトを呼び出すには、次の手順に従います。
Python スクリプトを実行するサーバーをセットアップします。
MQL4 のソースファイルで、次の行を使用してサーバーに接続します。
#include
#include
using namespace std;
int main() {
// サーバーに接続
string host = "localhost";
int port = 5000;
Socket socket(host, port);
if (!socket.isConnected()) {
// エラー処理
}
// Python スクリプトを実行する
string command = "python myscript.py";
socket.write(command.c_str());
// 応答を待つ
char buffer[1024];
int bytesReceived = socket.read(buffer, 1024);
if (bytesReceived == -1) {
// エラー処理
}
// 応答を出力する
cout <
// サーバーを切断する
socket.close();
return 0;
}
VBAのソースコード内でPython言語を呼び出す方法は？
VBA は Microsoft Office アプリケーション用に開発されたマクロ言語です。 Python は、データ分析、機械学習、Web 開発など、さまざまなタスクに使用できる汎用プログラミング言語です。 VBA から Python を呼び出すには、xlwings ライブラリを使用できます。 xlwings は、VBA から Python コードを簡単に実行できるようにする COM アドインです。
xlwings を使用するには、まずライブラリをインストールする必要があります。 Windows の場合は、Microsoft Visual Studio からインストールできます。 macOS の場合は、Homebrew からインストールできます。
ライブラリをインストールしたら、VBA プロジェクトで参照する必要があります。これを行うには、プロジェクトの参照設定ウィンドウを開き、xlwings.xlam ライブラリを選択します。
ライブラリを参照したら、VBA コードで Python コードを呼び出すことができます。これを行うには、RunPython 関数を使用します。RunPython 関数には、呼び出す Python コードの文字列を引数として渡します。
たとえば、次の VBA コードは、Python の組み込みの print() 関数を呼び出します。
Sub CallPython()
Dim result As String
result = RunPython("print('Hello, world!')")
MsgBox result
End Sub
このコードを実行すると、次のメッセージボックスが表示されます。
Hello, world!
xlwings は、VBA から Python を呼び出すための強力なツールです。データ分析、機械学習、Web 開発など、さまざまなタスクに使用できます。
なるほど。んじゃやってみるわ。
最近発表されたgoogle のAIチャットで質問をしてみた。
VBAでチャットボットを作りたいと。
早速ソースコードの例が生成されたが、
Bard AI 「What would you like to talk about？」
俺様「hello」の場合、Bard AI「Hello there!」
俺様「goodbye」の場合、Bard AI「Goodbye！」
俺様「上記以外」の場合、Bard AI「I don't understand. Please try again.」
というショボいものだった。
あまりにもショボいので改造してみた。
Sub ChatBot()
Dim userInput As String
userInput = InputBox("何をしましょうか？")
Select Case userInput
Case "直線"
MsgBox "始点と終点の座標を指定してください。"
Dim StartX As Integer
Dim StartY As Integer
Dim EndX As Integer
Dim EndY As Integer
StartX = InputBox("始点のX座標を入力してください。")
StartY = InputBox("始点のY座標を入力してください。")
EndX = InputBox("終点のX座標を入力してください。")
EndY = InputBox("終点のY座標を入力してください。")
With ActiveSheet.Shapes.AddLine(StartX, StartY, EndX, EndY)
.Line.Weight = 2 ' Set the line thickness to 2 points
End With
Case "円"
MsgBox "中心の座標と半径を入力してください。"
Dim centerX As Variant
Dim centerY As Variant
Dim radius As Variant
Dim drawingSheet As Worksheet
Dim newCircle As Shape
Set drawingSheet = ActiveSheet
centerX = Application.InputBox("Enter the x-coordinate of the center of the circle", "Center X", Type:=1)
centerY = Application.InputBox("Enter the y-coordinate of the center of the circle", "Center Y", Type:=1)
radius = Application.InputBox("Enter the radius of the circle", "Radius", Type:=1)
Set newCircle = drawingSheet.Shapes.AddShape(msoShapeOval, _
-radius, centerY - radius, radius * 2, radius * 2)
With newCircle.Line
.Weight = 2 ' Set the line thickness to 2 points
.DashStyle = msoLineSolid ' Set the line style to solid
.ForeColor.RGB = RGB(255, 0, 0) ' Set the line color to red
End With
newCircle.Fill.Visible = msoFalse ' Set the fill to transparent
Case Else
MsgBox "そのような操作はできません。"
End Select
End Sub
結果はバッチリ！
次はセレクトボックスを表示させ、やりたい操作を選ばせて、数字を入力する形式にしてみたい。
(defun chat-bot ()
(while (not (= (setq user-input (readline)) "quit"))
(cond ((string-match "hello" user-input)
(print "Hello there!"))
((string-match "goodbye" user-input)
(print "Goodbye!"))
(t
(print "I don't understand. Please try again.")))
(print "What would you like to talk about?")))
(chat-bot)
Dynamoはノードというものを使って、ブロックをパズルのように組み合わせてプログラミングするCADツールだ。
ソースコードを見て編集することが出来れば、Revitの自動化も可能になる。
Wikipediaより引用。
プロシージャ （procedure）とは、プログラミングにおいて複数の処理を一つにまとめたものをいう。手続きとするのが定訳である。一連の処理を意味を持った一まとまりにすることで、再利用性が高まり、プログラム中に繰り返して現れる処理を1ヶ所で記述でき、プログラムの保守、管理を容易にする。
繰り返し利用されることから、ルーチンとも言う。呼び出し関係は通常階層構造をなし、その最上位にある、プログラム全体のエントリーポイントを含むルーチンをメインルーチン、呼び出されるものをサブルーチンと言う。また、関数と呼ばれることもある（通常、数学における関数とは違ったものであるので、注意が必要である）。
プログラミング言語により、プロシージャのような構文の分類や呼称はさまざまである。詳細はサブルーチンの記事を参照のこと。
PDF Converter App
任意のファイルを読み込んでPDF化して保存するアプリをTKinterライブラリーを用いたPythonコードで書いて
以下は、Tkinterライブラリを使用して、ユーザーが選択したファイルを読み込み、PDF形式で保存するPythonアプリケーションの例です。
python
Copy code
import tkinter as tk
from tkinter import filedialog
import os
from fpdf import FPDF
class PDFConverter:
def __init__(self, master):
self.master = master
master.title("PDF Converter")
# ラベル
self.label = tk.Label(master, text="PDFに変換するファイルを選択してください。")
self.label.pack()
# ファイル選択ボタン
self.select_button = tk.Button(master, text="ファイルを選択", command=self.select_file)
self.select_button.pack()
# 変換ボタン
self.convert_button = tk.Button(master, text="変換", state=tk.DISABLED, command=self.convert_file)
self.convert_button.pack()
# メッセージラベル
self.message = tk.Label(master, text="")
self.message.pack()
def select_file(self):
# ファイル選択ダイアログを表示
file_path = filedialog.askopenfilename()
if file_path:
# 選択されたファイルがPDFでなければ変換ボタンを有効化
if os.path.splitext(file_path)[1] != ".pdf":
self.convert_button.config(state=tk.NORMAL)
else:
self.message.config(text="選択されたファイルは既にPDF形式です。")
else:
self.message.config(text="ファイルが選択されていません。")
# 選択されたファイルのパスを保存
self.file_path = file_path
def convert_file(self):
# PDFファイルの作成
pdf = FPDF()
pdf.add_page()
pdf.set_font("Arial", size=12)
with open(self.file_path, "rb") as f:
text = f.read()
pdf.cell(200, 10, txt=text.decode("utf-8"), ln=1)
pdf_path = os.path.splitext(self.file_path)[0] + ".pdf"
pdf.output(pdf_path)
self.message.config(text=f"変換が完了しました。PDFファイルを{pdf_path}に保存しました。")
root = tk.Tk()
app = PDFConverter(root)
root.mainloop()
このアプリは、ユーザーがファイルを選択した後、ファイルがPDF形式でない場合は変換ボタンを有効化します。変換ボタンをクリックすると、選択されたファイルがPDFに変換され、元のファイルと同じ場所に保存されます。
…失敗したようだ。
Pydroidでやるとダメなのかどうかは知らんが。
ファイルを選択して読み込ませるところで何にも起きなくなり、Openボタンを押しても変換ボタンを押しても反応しなかった。
PCで実行しても同じ結果となった。
ちなみにPythonのIDLEではFPDFライブラリーのインストールに失敗したので、Anacondaのプロンプトでpip install --upgrade FPDFとコマンドを入力してようやくインストールできた。スパイダーで実行しても動かなかった。
BingAlではちょっと違うソースコードを提示されたが、やはり動かなかった。