МенюГЕО версия от 11.10.2017

Crazycool, там есть "Расстояние между пикетами" и там можно менять длину.

Лилия787, VBA установлен?

 

Дорогие друзья, нужна помощь. Установил на автокад 2018 меню ГЕО, есть там много функций положительных, но, нет одной, к которой очень привык, и надеюсь вы оцените - "это экспорт координат земельного участка (в нашем случае замкнутой полилинии) в файл формата *.csv с пользовательской нумерацией точек. Когда работал в Автокаде 2000 эта функция (точнее lisp) был установлен на выведенную кнопку. Прекрасно все работало. Смылс в чем - выделяешь контур ЗУ, выбирает точку с которой начнешь проводить нумерацию, и нумеруешь ее, после Enter, потом следующая, в конце тебе предлагается ввести имя файла, ввел, Enter и координаты у тебя с нумерацией в файле в папке с проектом. Пробовал перенести данный lisap на Автокад 2018, не получилось, может я делаю что не так. Помогите, плиз. lisp сброшу:

Раскрыть Спойлер Свернуть Спойлер

(file "j@cont_n")
(include "j@util")
(include "contnew")
(include "j@geodez")
(include "pointspoints")
;;=========================================================================
(defun atos ( a nab nad / d m)
(prepare (list "angbase" nab "angdir" nad "dimzin" 0))
(setq
a (atof (angtos a 0 7))
d (fix a)
m (* 60 (- a (fix a)))
)
(If (> m 59.9) (setq m 0 d (1+ d)))
(return (strcat (itoa d) " " (rtos m 2 1) " "))
)
;;--------------------------------------------------------------------------
(setq
j@Sct '( ;; Scale Table :: Name Mark Имя_точки Siz Dar
("500" 0.8 1.3 nil 1.3)
("1000" 1.6 2.6 nil 2.6)
("2000" 3.2 5.2 nil 5.2)
("5000" 8 13 nil 13)

)
j@Scl "500"
)
(Defun p:getscl ( / s)
(if (or (null j@scl)(null j@sct)) (load "j@cont_i"))
(setq s (strtrim (apply 'strcat (mapcar '(lambda (a) (strcat (car a) " ")) j@sct))))
(initget s)
(setq s (Getkword (strcat "Scale(" (strsubst " " "/" s nil) ")<" j@scl ">:")))
(If s
(setq j@scl s)
)
)
;; ========================================================================
(Defun p:mark (c d / p)
(Command "clayer" "razmern")
(Foreach p c
(command "_Donut" 0 d p NIL)
)
(Command "clayer" "razmer")
(Foreach p c
(command "_Donut" 0 d p NIL)
)
)
;; ========================================================================
(Defun p:snum (c s text n / p p0 p1 p2 a a1 a2 s*)
(Setq
p0 (nth n c)
p1 (nthmod (1- n) c)
p2 (nthmod (1+ n) c)
a1 (angle p0 p1)
a2 (angle p0 p2)
a (+ a1 (/ (- a2 a1) 2))
s* (* 1.4 s)
p (polar p0 a s*)
)
(if (in p c) (setq p (polar p0 (- a pi) s*)))
(Command "_Text" "_M" p s 90 text)
)
;;--------------------------------------------------------------------------
(Defun p:num (c s / n)
(setq n 0)
(Repeat (length c)
(p:snum c s (itoa (1+ n)) n )
(setq n (1+ n))
)
)
;; ========================================================================
(Defun p:size (c s / n l a p0 p1 p2 p)
(setq
n 0
l (length c)
)
(Repeat l
(Setq
p0 (nth n c)
n (1+ n)
p1 (nthmod n c)
a (angle p0 p1)
)
(if (and
(< (/ pi 2) a)
(<= a (/ (* 3 pi) 2))
)
(setq p2 p0 p0 p1 p1 p2)
)
(Command
"_Line" p0 p1 nil
"_Ucs" "_E" "_L"
)
(entdel (Entlast))
(setq
p0 (trans p0 0 1)
p1 (trans p1 0 1)
p (list (+ (car p0) (/ (+ (car p0)(car p1)) 2)) s)
)
(if (in (trans p 1 0) c)
(setq p (list (car p)(- s)))
)
(Command
"_Text" "_M" p s 90 (rtos (distance p0 p1) 2 2)
"_Ucs" "_W"
"_Color" "bylayer"
)
)
)
;;-----------------------------------------------------------------------
(defun p:spos ( c / pos p)
(prepare '("osmode" 1))
(while (null pos)
(setq
p (getxpnt '("F") "\nStarting point: First/<Select>" nil)
pos (if (= p "F") 0 (position~ p c 1e-3))
)
)
(return pos)
)
;;-----------------------------------------------------------------------
(defun p:GetNums (k s / n n* auto aaa)
(prepare (list
"cmdecho" 1
"pdsize" (/ (getvar "viewsize") 60)
"cecolor" 1
"pdmode" 34
"osmode" 0
))
(set k (rotate (eval k) (p:spos (eval k))))
(setq n 0
i -1
aaa 0)
(return (mapcar '(lambda (p)
(if (= (p:poi p) "нет")
(progn
(Command "_Color" 1 "_Point" p)
(if (= aaa 0)
(setq n (1+ n))
)
(setq i (1+ i)
n* (if (null auto)
(getstring (strcat "\nPoint number<" (itoa n) ">/Auto:")) "A")
auto (or
(= (strstr "A" n* T) 1)
(= (strstr "ф" n* T) 1)
(= (strstr "Ф" n* T) 1)))
(If auto
(setq n* (itoa n))
(if (= n* "")
(setq n* (itoa n)
n (atoi n*)
n (if (zerop n) i n)
)
)
);;if auto
(entdel (entlast))
(if (or (=(substr n* 1 1) "с") (=(substr n* 1 1) "С") (=(substr n* 1 1) "C") (=(substr n* 1 1) "c"))
(setq n* (substr n* 2 )
aaa 1)
(setq n (atoi n*)
n* (strcat "н" n*)
aaa 0)
)
)

(progn
(setq n* (p:poi p)
aaa 0)
(setq i (+ i 1))
)
)

(Command "_Color" "_ByLayer")
(Command "_clayer" "razmer")
(Command "_text" p "0.01" "90" n*)
(p:snum (eval k) s n* i)

(princ n*)
) (eval k)))
)

;;==========================================================================
(Defun c:cont_ko (/ M N S R c v e fil name nam cc nn)
(load "contnew")
(vl-load-com)
(prepare '(
"cmdecho" 1
"osmode" 0
"clayer" "RAZMER"
"textstyle" "DP"
"plinewid" 0
"cecolor" "bylayer"
)
)

(Command "_Layer" "_M" "Razmern" "")

(Command "_UCS" "_W")

(p:getscl)
(initget "Yes No")
(setq R (getkword "\nMake points roll(<Yes>/No)?:")
R (or (null R) (= R "Yes"))
e (GetContur "")
c (GetPlPoints e)
)
;;(p:po1)
(mapcar 'set '(M N S) (cdr (assoc j@scl j@sct)))
(If N (setq N (p:getnums 'c N)))
(If M (p:mark c M))
(If S (p:size c S))
;;(p:po2)

;;(p:po3)
(setq i (car c)
c (reverse c)
c (reverse (cons i c))
i (car n)
n (reverse n)
n (reverse (cons i n))
)

(setq kv (getstring "Укажите имя файла"))
(setq name (vlax-get-acad-object))
(setq name (vlax-get-property name 'ActiveDocument))
(setq nam (substr (vlax-get-property name 'FullName) 1 (- (strlen (vlax-get-property name 'FullName)) (strlen (vlax-get-property name 'Name))) ))
(setq name (open (strcat nam kv ".csv") "w"))
(setq ele (ssget "X" '((0 . "TEXT") (8 . "GZK"))));;;;;;;;
(setq i 0)
(while (nth i c)

(write-line (strcat (nth i n) ";" (rtos (cadr (nth i c)) 2 2) ";" (rtos (car (nth i c)) 2 2) )name)


(setq i (+ i 1))
)


(close name)
)
;;==========================================================================
(defun c:darea ( / e a ts)
(prepare '("cmdecho" 1 "osmode" 0
"orthomode" 0
"textstyle" "DP"
"clayer" "RAZMER"))
(p:getscl)
(setq ts (nth 4 (assoc j@scl j@sct)))
(setq e (GetContur ""))
(Command "_.Area" "O" e)
(princ (strcat "\nArea is " (rtos (getvar "area") 2 0)))
(setq a (strcat "S=" (rtos (getvar "area") 2 0) "м2"))
(Command "_.Text" "0,0" ts 90 a)
(Command "_.Move" (entlast) "" '(0 0) pause)
(return void)
)

 

Алексей32, вам так нужно? А при чем здесь МенюГео? Это приложение ни в коим случае не для землеустроителей.
https://geodesist.ru/threads/kak-av...hochkami-i-pronumerovat-ix.78550/#post-893854

 

Да, мне это очень нужно. И именно с такой функцией как я описал выше. То, что показано в видео, которые вы сбросили по ссылке, не то.

 

Доброго времени суток!
Работает ли эта надстройка для ZWCAD2017?
Пытаюсь провернуть загрузку адаптации, не находит нужные файлы

 

Добрый день подскажите кто в курсе работает ли данное меню на Autocad 2021 lt Ставил по инструкции список меню подгрузился, но на любое действие выдает неизвестная команда. куда копать??

 

taniels, в LT работать не будет.

 

Как с этим быть . и в 10 и в 20 версии ошибка

 

dorofeev, а как с такими как вы быть?
Прочитать что написано в вашем скрине, и установить VBA. Найти поиском на форуме, или перечитать с первого сообщения в этой ветке.

 

Доброго утречка!!!
Повторюсь: работает ли эта надстройка для ZWCAD2017?
Где спросить?

 

скорее всего нет.
https://geodesist.ru/threads/geo_tools.25871/page-38#post-969841

 

ЛераЖ, на ZwCAD 2020 64x поставилось, но часть функций не работает (части переменных AutoCad'а нету), может, для Вас, это не критичные функции и иконки немного корявые.

Прокрутите тип файлов с "Шаблона меню" до "Кастомизации .cuix"
P.S. не являюсь пользователем Zw (на виртуалке тестировал), и возможно там есть настройки (типа RibbonIconResize).

 

Подскажите, настраивал кто нибудь цвета ЦММ в зависимости от положения Z? В выборе цвета есть выбор либо 6 цветов (первых по ACI), либо в спектре, но есть также выбор цвета "из файла". Кто нибудь подскажет как сделать этот файл самому, чтобы я уже смог задать для какого положения Z какой должен быть цвет.

Проблема в том, что съемку земли делаем для себя для понимания всеми уклона отдельными участками. А цвета в ЦММ определяются в зависимости от максимальных и минимальных отметок выбранной ЦММ а не в общем. Т.е. если я рядом расположил следующий участок, у него цвета не совпадут с отметками прошлой ЦММ. Ищу способ как задать зависимость

 

Может это?

 

Svetlyshev, а чем/в чём, Вы, делаете Цмм? Просто градация, будет в любом случае, по отметкам, чем ниже/выше - темнее/светлее.
sergtor, только хотел предложить, Ваш, вариант.

 

ЦММ в автокаде в геоменю. У меня показываются участки ниже, выше, проблем нет. Просто 2 отдельных ЦММ в одном плане не связаны между собой цветами. Сейчас буду искать это окно с свойством поверхности.

 

Svetlyshev, это окно Civil 3D. А если, создавать не по кусочно поверхности, а собрать все съемки и сделать 1 поверхность и раскрасить?

 

Тогда все получится, если я подгружу все съемки и заново сделаю ЦММ за раз, то все получится. Но участок большой, и участки бывают на отдалении 1км друг от друга. В принципе можно сделать триангуляцию по точкам и лишние треугольники убрать.
Но я все равно хочу как-то контролировать этот процесс. Да и не объединять участки. Из ПО только автокад с геоменю, другого не будет :)

 

Доброго!
Установил МенюГео на автокад 16
всё на панели появилось(и главная и дополнительная), но на большинстве пунктов меню висят вопросы
и при попытке использовать: гео отклонения, отрисовка векторов, высотные отметки и т.д.
везде пишут, что неизвестная команда...
в чём может быть причина?

 

Прописать папки в доверенные источники и в путях к вспомогательным файлам.