Щом сега започваш - хвани VBA. Просто ще ти бъде по-лесно да преминеш и към проектиране в други офис приложения и ще можеш да ги свързваш в общи проекти. За диалозите си прав - много дървени са.
Сега малко за организацията на данните в чертежа. За дребни работи не е от такова значение организацията, но за по-големи работи и особено при работа в група е задължително. За унификацията - трябва да се изработят някои прости правила и да се ползват при всички случаи. Ще ти дам пример:
Направил съм си няколко набора от блокове (за вътрешни инсталации, за външни захранвания и т.н.). Когато създавам такъв блок му закачам два невидими константни атрибути с имена HIDDENNAME и GROUP. В HIDDENNAME слагам пълното име на изобразявания обект ("осветително тяло с ЛЛ 2х40" например), а в GROUP групата на блоковете ("осветителни тела", "табла", "стълбове" и т.н.). Тези атрибути ги ползвам в списъци за вмъкване на блоковете (доста по-удобно е да избереш блок "осветително тяло с ЛЛ 2х40" отколокото "qweasd2-40"), при създаване на легенда и спецификация, разни справки и т.н.

Явно не съм разбрала каква организация имаш предвид.
Мислех, че говориш за организацията на самата програма.
Организацията на самия чертеж е може би най-важната тема, но няма никаква връзка с програмирането. Тъй като много ме вълнува тази тема ще я изнеса отделно. Ще се радвам, ако повече хора вземат отношение.

Организацията на данните в чертежа има пряко отношение към програмирането. Това е първата стъпка.
Аз съм привърженик на програми, които подпомагат проектирането. Това не изключва "ръчно" въвеждане и затова именно спазването на принципите осигурява нормалната работа на програмите.
В примера за невидимите атрибути на блоковете, ако въведеш блок без необходимите атрибути, съответните програми няма да ги обработват и резултатите няма да са коректни.

Да, това е вярно. Но в случая става дума за изисквания на програмата. Това се залага още при формирането на идеята за самата пограма. Предполагам, че може да се тръгне и по друг път. Програмистът сам си решава какви рамки ще постави.
На мене ми е най-интересно, така да си организирам даден чертеж, че да свърша определена работа само с подръчни средства и де не се стигне до програмиране. Разбира се става дума за прости задачи. За по-сложни няма да мине без програмиране.

Отдавна не бях влизал в тоя форум и с удоволствие открих интересната тема.

Пич, трябва да си много богат щом за такива прости задачки даваш по 5 лева.

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

В отговор на:

---

Пич, трябва да си много богат щом ...

---

Писах ти на мейла и ти пратих и едно примерче...

Тук ти пускам едно макросче, което може би ще бъде полезно и за други. Служи за мащабиране на размерите в чертежа. Работи добре за детайли с размери от 10 до към 3000мм. Ако са по-големи или по-малки трябва се настроят обхватите.
За да се види "силата" на макроса трябва да свържеш към иконки двете подпрограми ScaleUp и ScaleDown, ако го стартираш от меню производителността му пада много.


Public Sub ScaleUp()
ChangeDimensions True
End Sub

Public Sub ScaleDown()
ChangeDimensions False
End Sub

Private Function ChangeDimensions(direction As Boolean)
Dim d3p As AcadDim3PointAngular
Dim ddi As AcadDimDiametric
Dim dor As AcadDimOrdinate
Dim dal As AcadDimAligned
Dim dro As AcadDimRotated
Dim dan As AcadDimAngular
Dim dra As AcadDimRadial
Dim ent As AcadEntity
Dim i As Integer, count As Integer
Dim dScale As Double
dScale = ThisDrawing.GetVariable("DIMSCALE")
If direction Then
If dScale < 1 Then
dScale = dScale * 2
Else
dScale = dScale + 1
End If
Else
If dScale > 2 Then
dScale = dScale - 1
Else
dScale = dScale / 2
End If
End If
ThisDrawing.SetVariable "DIMSCALE", dScale
count = ThisDrawing.ModelSpace.count - 1
For i = 0 To count
Set ent = ThisDrawing.ModelSpace.Item(i)
Select Case ent.ObjectName
Case "AcDbRotatedDimension"
Set dro = ent
dro.ScaleFactor = dScale
Case "AcDbAlignedDimension"
Set dal = ent
dal.ScaleFactor = dScale
Case "AcDbRadialDimension"
Set dra = ent
dra.ScaleFactor = dScale
Case "AcDbDiametricDimension"
Set ddi = ent
ddi.ScaleFactor = dScale
Case "AcDbOrdinateDimension"
Set dor = ent
dor.ScaleFactor = dScale
Case "AcDb2LineAngularDimension"
Set dan = ent
dan.ScaleFactor = dScale
End Select
Next
ThisDrawing.Regen True
End Function

Имаше въпроси за ефективността и перспективността на LISP. Затова давам същата програма написана на LISP.

;променя DIMSCALE
(DEFUN chdScale (direction / dScale nab)
(setq nab (ssget "x" '((0 . "DIMENSION")))
dScale (GETVAR "DIMSCALE"))
(COND
((AND direction (< dScale 1.0))(SETQ dScale (* dScale 2.0)))
((AND direction (> dScale 1.0))(SETQ dScale (1+ dScale )))
((AND direction (> dScale 2.0))(SETQ dScale (1- dScale )))
(T (SETQ dScale (/ dScale 2.0)))
);COND
(SETVAR "DIMSCALE" dScale)
(COMMAND "DIM1")
(COMMAND "UPDATE" NAB "")
);chdScale

При създаване на бутони за увеличаване и намаляване на DIMSCALE в "Macro associated in this button" трябва да се запише
(chdScale T) - за увеличаване
(chdScale nil) - за намаляване
Увеличение на скоростта на обработка при варианта на LISP програмата ще се усети при чертежи с много чертожни елементи.

На VBA също може да е грозно и кратко.

Съдържаниет е скрито
Влезте за да го видите

В отговор на:

---

Function ChangeDimensions(direction As Boolean)
Dim iType(0) As Integer
Dim vValue(0) As Variant
dScale = ThisDrawing.GetVariable("DIMSCALE")
dScale = IIf(direction, IIf(dScale < 1, dScale * 2, dScale + 1), _
IIf(dScale > 2, dScale - 1, dScale / 2))
vValue(0) = "DIMENSION"
Set sSet = ThisDrawing.SelectionSets.Add("DIM")
sSet.Select acSelectionSetAll, , , iType, vValue
For Each aEnt In sSet
aEnt.ScaleFactor = dScale
Next
sSet.Delete
Update
End Function

Sub ScaleUp()
ChangeDimensions True
End Sub

Sub ScaleDown()
ChangeDimensions False
End Sub

---