座標グリッドを作成する方法

スピークブランク私がLISPを望んでいることを理解していないいくつかの脚があります、プログラムはすでにグリッドを生成するためにダウンロードされていますか？ あなたは私に好意を示します…ありがとう

こんにちは、どのようにして説明できますか？ 私はapploadでそれをアップロードしようとしましたが、私はそれを取得しない、誰かが私にそれを説明することができますか？ 私はそれを感謝します、私は本当に私の仕事のためにそれが必要です。
ありがとうございます。それでは。

AutoCADでは、グリッドはLispルーチンで処理され、数年前に10を使用しています

ここでは、次のとおりです。

（defun strpto（aa / broad）
（long setq（strlen aa））
（cond（（= x minX））
（setq l（append l（list x）））
)
（setq list（cdr list））
)
（リスト（min（car l）（cadr l））（max（car l）（cadr l）））
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; コードナダXを渡した交差点
;;
（Defun CalculaY（abcx）
（if（= 0.0 b）;交差がない
ゼロ
（b）
)
)

（Defun IntersecY（/ lリスト）
（setq l（）
リスト（list（CalculateY a1 b1 c1 startX）（CalculateY a2 b2 c2 startX）
（CalculateY a3 b3 c3 startX）（CalculateY a4 b4 c4 startX）
)
)
（while（/ = nilリスト）
（setqと（list））
（if（および（/ y y nil）（= y min Y））
（setq l（append l（list y）））
)
（setq list（cdr list））
)
（リスト（min（car l）（cadr l））（max（car l）（cadr l）））
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; メインプログラム
;;
（Defun c：cuadri（/ p1 p2 p3 p4 pxx incy lyn maldato base
alpha startX startY minX minY maxX maxY）
（setvar“ CMRIGHT” 0）
（コマンド「LAYER」「M」「grid」「C」「8」「」」））
（setq p1（getpoint "\ n領域頂点を入力"）
p2（getpoint p1 "\ n他の頂点を入力"）
)
（コマンド「LINE」p1 p2「」）
（if（>（cadr p1）（cadr p2））;常にp1ダウン
（setq paux p1 p1 p2 p2 paux）
)
（setq p3（getpoint p1 "\ nリージョン幅のポイントを入力"）
l（距離p1 p3）; 計算点p3およびp4、並行
アルファ（角度p1 p2）; 距離lのところでp1とp2に
アルファ（+（/ pi2）アルファ）
)
（if（>（car p3）（car p1））
（setq alpha（+ pi alpha））
)
（if（=（car p1）（car p3））
（if（（ - maxY startY）（* 2 high））
（コマンド「TEXT」（リスト（+ x1 dl）（+ startY dh））high 0 coordY）
（コマンド「TEXT」「R」（リスト（-x2 dl）（+ startY dh））high 0 coordY）
)
)
（setq startY（+ startY incy））
)
（while（（ - startX minX）（* 2 high））
（コマンド「TEXT」（リスト（-startX dh）（+ y1 dl））high 100 coordX）
（コマンド「TEXT」「R」（リスト（-startX dh）（-y2 dl））high 100 coordX）
)
)
（setq startX（+ startX incx））
)
（if（>（距離p1 p3）（距離p1 p2））
（setq alpha angP1P3）
（setq alpha angP1P2）
)
（if（または= alpha pi）（/ = alpha 0.0））
（setq alfarad（* -1 alpha）
アルファ（* -1（/（*180α）pi））
p4（list（ - （*（car p4）（cos alfarad））（*（cadr p4）（アルファラドなし）））
（+（*（car p4）（アルファラドなし））（*（cadr p4）（cos alfarad）））
)
p1（list（ - （*（car p1）（cos alfarad））（*（cadr p1）（アルファラドなし）））
（+（*（car p1）（アルファラドなし））（*（cadr p1）（cos alfarad）））
)
ベース（リスト0.0 0.0）; 起源
)
)
)

とにかく感謝しているJejejej

真実は私も興味をそそられているということです。これと同じことはマップでも行えますか？

AutoCAD Civil 3D noでは、プログラムがプロジェクションシステムを管理する理由があるためです。 しかし、AutoCAD Map 3Dでは、似たようなことができます。

それはAutoCAD 3のCivil 2009Dを使って行うことができます.Google Earthに接続することさえできるので、投影をサポートするはずです。