[fellow123]

Привет форумчане! Я занимаюсь проектированием и нужно частенько делать погоризонтные планы. То есть использовать часть топосъемки внутри определенного диапазона отметок (координат Z). Было бы очень удобно если бы нужный диапазон отметок сразу отсекался автоматически! Может есть лисп который может сделать такие же действия только заданным координатам Z (высотам, отметкам)? То есть удалить всю информацию ниже какой то отметки, высоты или выше.

[Кулик Алексей aka kpblc]

используй быстрый выбор

[master-lomaster]

легко можно сделать, если пользоваться autocad civil 3d

[fellow123]

что то не нашел где там отметки можно задавать? объясни подробней плизз!

к сожалению у меня простой autocad 2010

[Victor]

Попробуй. Должен удалять блоки, тексты, полилинии в диапазоне высот. Особо не проверял. Распакуй , затащи в пространство модели, запуск dlz

[fellow123]

Сообщение от Victor Попробуй. Должен удалять блоки, тексты, полилинии в диапазоне высот. Особо не проверял. Распакуй , затащи в пространство модели, запуск dlz

Удаляет только текст и то как то странно не полностью.

[KAI]

А может не стоит удалять объекты?
Проще средствами AutoCAD сделать их невидимыми за границами (From-To).

Небольшой пример:

Код:

[Выделить все]

 
      (if (/= (getvar "WORLDUCS") 1)
        (progn
          (command "._UCS" "_WORLD")
          (command "._PLAN" "_C")
          (if mode
            (alert (MES 186));186="UCS changed to WCS (World coordinate system)."
          )
        )
      )
      ;ucs
      (command "._UCS" "_NEW" "_ORIGIN" (list 0.0 0.0 geo_sec_hel-))
      (if (tblsearch "UCS" name_ucs_view)
        (command "._UCS" "_SAVE" name_ucs_view "_Y")
        (command "._UCS" "_SAVE" name_ucs_view)
      )
      (command "._PLAN" "_C")
          ;view
      (setq wv (getvar "WORLDVIEW"))
      (setvar "WORLDVIEW" 0)                            ;ucs
      (setq cend_pt (getvar "VIEWCTR"))
      (setq tarpt (append (list (car cend_pt))
                          (list (cadr cend_pt))
                          (list 0.0)
                  )
      )                                                 ;target pt
      (setq campt (append (list (car cend_pt))
                          (list (cadr cend_pt))
                          (list 100000.0);new Было (list geo_sec_hbe-)
                  )
      )                                                 ;camera pt
      (command "._DVIEW" "" "_POINTS" tarpt campt "_CLIP" "_BACK" (* -1 geo_sec_haf-) "_CLIP" "_FRONT" geo_sec_hbe- "" )
      (if (tblsearch "VIEW" name_ucs_view)
        (command "._-VIEW" "_SAVE" name_ucs_view "_Y")
        (command "._-VIEW" "_SAVE" name_ucs_view)
      )
      (setvar "WORLDVIEW" wv)                           ;previouse

И волки сыты и овцы целы.