Занимавам се от близо 20 години с програмиране в ACAD
Имам много програми в областта на електропроектирането
Интересува ме има ли други хора, които работят в тази област и имат ли желание да обменяме идеи и разработки

Искам да попитам от позицията на ПОТРЕБИТЕЛ .
Съществува ли в България реална възможност при формулиране на конкретен проблем , да се поръчва разработка на допълнения към AutoCAD (или МS Excel/Word) . Става въпрос за малки автоматизации или обвързване със съществуващи приложения ... нямам конкретна Идея , но на мен ми се струва Логично , ако някой се замисли ...

Точно за това повдигам тази тема
Имам контакти с хора, които правят точно такива по-малки или по-значителни разработки за конкретни проблими.
Идеята ми е да се обособи форум, в който да се обменя опит именно в такава насока - програми или модули, които вършат точно определена работа (например програмите ми за проектиране на вътрешни електроинсталации ускоряват проектирането поне 10-20 пъти).
Проблемът е че прябва да се намери начин трудът на такива хора да се овъзмездява по някакъв начин (не е задължително с пари). И това може би е първата тема - как може да се направи така, че и двете страни да имат полза.
Колективният опит и разум може да намери решението.

Браво за идеята StSt ! Искренно се надявам да се осъществи !
Имам известни познания по Auto-Lisp и считам че подобен форум би
могъл да бъде полезен.

От Мен главно Морална подкрепа
StSt ако може пиши ми e-mail или нещо друго на ki_ko_ko@abv.bg ,
ако се наложи да мога да те "притеснявам" лично ?
Нямам идея да ли в този Форум е удачно ... , но Хората в България са малко и ... де да знам

За да предизвикам все пак някакъв интерес към темата предлагам една програмка, която връща координатите на точка симетрична на две посочени точки. Тя е полезна при чертане на ос на път (например).

;Връща точка симетрична спрямо две точки в 2D чертеж
(defun simi (p1 / p2)
;р1 - точка или списък от две точки
;р2 - точка
(if (= (type (cadr p1)) 'REAL); ако първият елемент от р1 е реално число - р1 е точка
(setq p2 (getpoint p1 "\nEnter second point ") ); въвеждане на втора точка
(setq p2 (cadr p1) p1 (car p1)); отделяне на двете точки от списъка р1
);if
(polar p1 (angle p1 p2) (* (distance p1 p2) 0.5)); връща координатите на симетричната точка
);simi
; въвеждане на две точки за изчисляване на координатата
(defun sim(/ p1 p2)
(setq
p1 (getpoint "\nEnter fist point ");първа точка
p2 (getpoint p1 "\nEnter second point ");втора точка
)
(simi (list p1 p2));извиква функция 'SIMI със списък от две точки
);sim


Тя може да се прикачи към бутон от тулбар (например "Object Snap") и да се ползва като особена точка (като "EndPoint" "MidPoint" ...).
Ос на улица или на детайл се чертае като се избере команда "LINE" (примерно), натиска се бутон "Симетрала", посочват се двете точки, на които ще бъде симетрична началната точка, след това процеса се повтаря за следващата точка и т.н.

Аз продължавам да натискам по въроса

Предлагам ви програмка за прекъсване (TRIM) на обекти извън някаква затворена полилиния

;TRIM на обекти извън полилиния
(defun trimf (/ plrim plf plf1 p1 p2 nn)
(if (and
(setq plrim (entsel "\nИзберете полилиния за граница"))
(= "LWPOLYLINE" (cdr(ASSOC 0 (entget (car plrim)))))
);and
(progn
(COMMAND "zoom" "e")
(setq plrim (car plrim))
(COMMAND "offset" 1 plrim (getvar "extmin")(COMMAND))
(setq plf (entlast)
p1 (cdr(ASSOC 10 (entget plf)))
plf1 (entget plf)
plf1 (append plf1 (list (cons 10 p1))))
(FOREACH nn (cdr(member (cons 10 p1) plf1))
(if (= 10 (car nn))
(progn
(setq p2 (cdr nn)
);nab (csel1 plrim)
(COMMAND "trim" plrim """f" p1 p2 ""(COMMAND))
(setq p1 p2)
);progn
);if vertex
);FOREACH
(entdel plf)
(COMMAND "zoom" "p")
(princ)
);progn
);if LWPOLYLINE
);trimf

Програмката трябва да се копира във файл (например "TRIMF.LSP") в някоя директория, описана в SEARCH FILE PATH (например SUPPORT), зарежда се, като в командния ред се пише

(LOAD "TRIMF")

и се стартира като в командия ред се пише

(TRIMF)


посочва се полилинията, по която се изрязва и това е.

Не се изрязват блокове, текстове и др.

А бе хора!
Някой интересува ли се от това ACAD да върщи работа вместо него?
Ако има такъв ще му помогна с каквото мога.
За да тръгне работата предлагам да направя програма на всеки, който опише достатъчно разбираемо проблема си.

Имам едно въпросче относно Auto Lisp-a.
Имам plug-in написан на protected AutoLisp.
Същесгвува ли софт, който отстранява
защитата и позволяващ редактирането
му с цел приспособяване на въпросния
plug-in към конретните условия?

Има няколко начина за защита на LISP файлове - чрез компилиране, чрез т.н. "келвиниране" и др.
Съществува доста програми за целта.
Идеята им е предотвратят промяна на съдържанието и затова е трудно да се пробият. Преди време бях чел нещо по въпроса за криптиране и разкриптиране на такива файлове, но сега не ми идва на ум къде.
До този момент не съм разкриптирал LISP файл - по ми е лесно да напиша програма, която върши подобна работа