[kp+]

Как программно подобрать наибольший масштаб типа линии отрезка известной длины, при котором заданный тип линии еще будет отображен, а не "выродится" в сплошную линию?
Отрезок в модели, ltscale=1

Подскажите, PLS

[Alaspher]

Посмотри демку:

Код:

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

(defun demo (/ ent lname ltype)
 (if (and (princ "\nВыбери один отрезок: ") (setq ent (ssget "_:S:E" '((0 . "LINE")))))
  (progn (setq ent (vlax-ename->vla-object (ssname ent 0)))
         (cond ((= (setq lname (vla-get-linetype ent)) "ByLayer")
                (alert "Демка не обрабатывает отрезки с типом линии Послою")
               )
               ((= lname "ByBlock")
                (alert "Демка не обрабатывает отрезки с типом линии Поблоку")
               )
               ((= lname "Continuous")
                (alert "Демка не обрабатывает отрезки со сплошным типом линии")
               )
               (t
                (setq ltype (tblsearch "LTYPE" lname))
                (vla-put-linetypescale
                 ent
                 (/ (vla-get-length ent) (* (cdr (assoc 40 ltype)) (getvar "ltscale")))
                )
                (if (not (zerop (getvar "psltscale")))
                 (alert "Включено масштабирование линий полисту - отображение негарантировано!")
                )
               )
         )
  )
  (alert "Неправильный выбор")
 )
)

... в качестве материала для размышлений

[kp+]

Материал что надо! Спасибо!

[dextron3]

а у меня не пошло почему то

[Alaspher]

>dextron3
А что пишет? Если про неопределённую функцию, то загрузи предварительно (vl-load-com), если чтото другое, то скажи что. Демка работает только с отрезками, которым назначен несплошной тип линии прямым присвоением.