[Russik]

Оси сплошные, и в модели, и на листе. В свойствах пунктир, масштабы все перепробовал, не помогает. Кто сталкивался напишите решение пожалуйста.

[sasha_lif]

Попробуй,классная штука
Спасибо автору

Код:

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

 ;;; Re:] Kosarev (2007-03-01 18:11:02)  [наверх] 
;;; 
;;; Однажды на форуме увидел код, позволяющий двигая мышкой влево-вправо изменять свойство объекта
;;; с визуализацией результата. Понравилось. Пожалуй для операций, не требующих точности и для
;;; ленивых (о себе) — отличная штука.
;;; На суд общественности представлена функция, позволяющая на глаз изменять Масштаб Типа Линии объекта.
;;; Выбрал объект — двигай мышкой и смотри (если Тип Линии не "Continuous", конечно). Текущая информация
;;; выводится в инф. строке.
;;; О целесообразности применения предложенной функции можно спорить, но идея открытия ДАННОЙ ТЕМЫ в том,
;;; чтобы народ поделился подобным материалом.

(defun C:type_line (/ oldVAR obj errscl)
  (vl-load-com)

  ;; вспомогательная функция округления цифр до сотых
  (defun *x00* (VAL*)(distof (rtos VAL* 2 2)))

  ;; вспомогательная функция извлечения параметров объекта
  (defun *dxf* (KEY* SEL*)(cdr (assoc KEY* (entget (car SEL*)))))

  (princ "\n'\nU_Команда: МТИПЛИН /*Динамическое изменение Масштаба Типа Линии*/")

  ;; Сохранить текущие режимы
  (foreach x
   '("cmdecho" "nomutt" "modemacro")
    (setq oldVAR (cons (list x (getvar x)) oldVAR))
  )

  (setvar "cmdecho" 0)
  (setvar "nomutt" 1)
  (vl-cmdf "_.UNDO" "_BE")

  (if
    (vl-catch-all-error-p (vl-catch-all-apply
      (function (lambda (/ ob pt gr scl mess)
  ;;===========================================
  ;; корректно выбрать объект...
  (princ "\n")
  (while (progn
    (princ "Выбрать объект: ")(setq  ob (entsel))
    (cond
      ;;==========
      ((= 12 (car (grread T 4 1))) nil) ;; отмена правой клавишей
      ;;==========
      ((not ob)(princ "\nНичего не выбрано!  "))
      ;;==========
      ((= 4 (logand 4 (cdr (assoc 70 (tblsearch "LAYER" (*dxf* 8 ob))))))
        (alert "\nОбъект на заблокированном слое !  ")(princ "\n")
      )
      ;;==========
      ;; не брать объекты не имеющие свойство "LinetypeScale" и БЛОКИ
      ((or
          (not (vlax-property-available-p
            (setq obj (vlax-ename->vla-object (car ob))) "LinetypeScale")
          )
          (= (vla-get-ObjectName obj) "AcDbBlockReference")
        )
        (alert (strcat  "\nOбъект \"" (*dxf* 0 ob) "\" невозможно изменить !  "))
        (princ "\n")
      )
      ;;==========
      ;; для других объектов...
      ((if (= (vla-get-ObjectName obj) "AcDbMline") ;; объект МУЛЬТИЛИНИЯ...

          ;; взять, если в составе есть элементы не тип.лин. "Continuous"
          (not (vl-remove-if
            (function (lambda (xx)(member (cdr xx) '("Continuous" "BYLAYER" "BYBLOCK"))))
            (vl-remove-if-not
              (function (lambda (x)(= 6 (car x))))(entget (*dxf* 340 ob)))
          ))
          ;; остальные объекты брать, если они сами не тип.лин. "Continuous"
          (or
            (member (vla-get-Linetype obj) '("Continuous" "BYBLOCK"))
            (not (assoc 6 (entget (car ob))))
          )
        ) ;;...if
        (alert "\nТип линии объекта \"Continuous\" !   \nИзменения невозможны !")
        (princ "\n")
      )
      ;;==========
    ) ;;...cond
  )) ;;...while...progn

  ;; если объект выбран правильно...
  (if
    (and
      (mapcar (function princ)(list
        "\n'\n[Объект \"" (*dxf* 0 ob) "\"]"
        "  Масштаб Типа Линии <" (*x00* (vla-get-LinetypeScale obj)) "> ... "
      ))
      (setq pt (trans (cadr ob) 1 0)) ;; стартовая точка отсчёта в WSC
    ) ;;...and

    (progn
      (while ;; цикл изменения "LinetypeScale" при движениии курсора...
        (and
          (= 5 (car (setq gr (grread T 12 0)))) ;; 0 — курсор виден
          (setq gr  (trans (cadr gr) 1 0)       ;; текущие координаты курсора в WCS
                scl (vla-get-LinetypeScale obj) ;; текущее значение "LinetypeScale"
          )
        )
        ;; запомнить начальное значение для отката
        (if (not errscl)(setq errscl scl))

        ;; зафиксировать допустимое минимальное значение
        (if (< scl 0.01)(vla-put-LinetypeScale obj (setq mess 0 scl 0.01)))

        (cond
          ((> (car pt)(car gr))                       ;; по Х влево
            (vla-put-LinetypeScale obj (/ scl 1.04))  ;; уменьшить масштаб
          )
          ((< (car pt)(car gr))                       ;; по Х вправо
            (vla-put-LinetypeScale obj (* scl 1.04))  ;; увеличить масштаб
          )
        );;...cond

        ;; ограничить интервал изменений за один сеанс +/- в 10 раз...
        (cond
          ((> scl (* errscl 10))
            (vla-put-LinetypeScale obj (setq mess 1 scl (* errscl 10)))
          )
          ((< scl (/ errscl 10))
            (vla-put-LinetypeScale obj (setq mess 1 scl (/ errscl 10)))
          )
        )

        ;; отображать текущие изменения в информационной строке
        (setvar "modemacro" (strcat
          ".   Масштаб Типа Линии = " (vl-princ-to-string (*x00* scl))
          (cond ((= 1 mess) "  [лимит сеанса]")((= 0 mess) "  [минимум]")(T ""))
          "   ."
        ))

        (setq mess nil pt gr) ;; скорректировать точку отсчёта
      ) ;;...while

      ;; окончательный результат округлить до сотых и отобразить в ком. строке
      (vla-put-LinetypeScale obj (princ (*x00* (vla-get-LinetypeScale obj))))
    ) ;;...progn
  ) ;;...if
  ;;====================================
      )) ;;...function lambda
    )) ;;...vl-catch-all-error-p

    ;; восстановить стартовое значение "LinetypeScale" при сбое
    (if errscl (progn (vla-put-LinetypeScale obj errscl)(princ (*x00* errscl))))

  ) ;;...if...vl-catch-all-error-p

  (if obj (progn (vlax-release-object obj)(setq obj nil))) ;; сбросить объект

  (vl-cmdf "_.UNDO" "_E")
  (foreach f OLDVAR (setvar (car f)(cadr f))) ;; реанимация режимов
  (princ)
) ;;...defun (C:МТИПЛИН)

 

[АлексЮстасу]

Сообщение от Russik Оси сплошные, и в модели, и на листе. В свойствах пунктир, масштабы все перепробовал, не помогает. Кто сталкивался напишите решение пожалуйста.

Это нужно видеть
Какие там типы линий для осей? Самодельные?

[gomer]

Масштаб типа линий настройте по вкусу

[Yuzer]

Или линий масштаб настроен плохо (не единица) или не стоит галочка - масштаб в единицах пространства листа.

[PeMCoH]

И как пользоваться этим кодом?

[Солидворкер]

Сообщение от PeMCoH И как пользоваться этим кодом?

Как использовать лисп, опубликованный на форуме