Jump to content

Как сделать невидимым контур маскировки


Recommended Posts

Запускать нанокад не хочу, а так - я бы посмотрел в сторону системных переменных wipeoutframe (если есть), imageframe (тоже если есть).

  • Like 2
Link to comment
Share on other sites

еще с оригинала пользую переключалку

(defun C:4 ()
  ;;вкл/выкл маскировку
  (if (= (getvar "Wipeoutframe") 0)
    (progn
      (setvar "Wipeoutframe" 2)
      (prompt "\\nВидимая маскировка непечатаемая ")
    )
    (progn
      (setvar "Wipeoutframe" 0)
      (prompt "\\nНевидимая маскирвка ")
    )
  ) ;_ end if
  (command "regen")
  (princ)
) ;_ end defun

единственное в нано regen пришлось добавить

  • Like 1
Link to comment
Share on other sites

В 24.05.2023 в 14:47, doctorraz сказал:

единственное в нано regen пришлось добавить

А чему у тебя равно regenmode?

добавлено через 2 минуты

Мысля пришла тут в голову (и упорно ищет мозг): ведь рамки есть еще у изображений, верно? В качестве дополнения к коду @doctorraz

(vl-load-com)

(defun c:41 (/ answer)
  (if (/= (rem (getvar "frame") 2) 0)
    (if (= (type
             (setq answer (vl-catch-all-apply
                            (function
                              (lambda (/ res)
                                (initget "С П _ H S")
                                (setq res (cond
                                            ((getkword "\nВыберите режим показа рамки (печататься не будет) [Скрыть/Показать] <Скрыть> : "))
                                            (t "H")
                                          )
                                )
                              )
                            )
                          )
             )
           )
           'str
        )
      (setvar "frame"
              (if (= answer "H")
                0
                2
              )
      )
    )
    (setvar "frame" (- 2 (getvar "frame")))
  )
  
  (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acallviewports)
  
  (princ (strcat "Рамка не печатается и "
                 (if (= (getvar "frame") 0)
                   "не "
                   ""
                 )
                 "показывается на чертеже."
         )
  )
  (princ)
)

 

Edited by kpblc
  • Like 1
Link to comment
Share on other sites

1 минуту назад, kpblc сказал:

А чему у тебя равно regenmode?

1

-------------------

нана не обновляет контур маскировки без реген

автокад обновляет

Link to comment
Share on other sites

  • 3 weeks later...

 

image.png.3dec14291a30d1b41c4daf0b794edbe5.png 

 

после ввода В нана включит или выключит маскировку?

может всежэж  Вкл/Откл))))???

а нана 20 умел правильно

image.png.a9b4b2fa6f186fdbc48be6323063479e.png

ЗЫ студентов набрали на импортозамещение?

  • Haha 1
Link to comment
Share on other sites

29 минут назад, doctorraz сказал:

после ввода В нана включит или выключит маскировку?

Выключит :)

добавлено через 0 минут

23.6276

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
 Share

  • Tell a friend

    Love Официальный форум компании Нанософт Разработка? Tell a friend!
×
×
  • Create New...