[shartal]

Для рисования гидроизоляции ( с радиусными сегментами) не придумал способа лучше чем рисовать три полилинии. Средней задать тип линий dashed и глобальную ширину. Возможно ли это запихнуть в лисп ?. На форуме нашел одновременное рисование нескольких полилиний, но там нет возможности задать радиус, ширину и разный тип. Рисунок приблизительный.

[hwd]

Сообщение от shartal Возможно ли это запихнуть в лисп ?

возможно.

[VVA]

Возможно 2

[Profan]

Возможно 3.
Центральная полилиния должна быть уже начерчена.

Код:

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

(defun C:OFF2 (/ d obj pt ent adoc *error* pt1 ang OSM undo lays)
  (defun *error* (msg)(vla-EndUndoMark adoc)(setvar "OSMODE" OSM))
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object))
   lays (vla-get-layers adoc))
  (vla-StartUndoMark adoc)
  (if (null *OFF2*)(setq *OFF2* (abs (getvar "OFFSETDIST"))))
  (if (zerop *OFF2*)(setq *OFF2* 1))
  (setq OSM (getvar "OSMODE"))
  (setq d (getvar "UNDOCTL"))
  (cond
    ((= d 0) (vl-cmdf "_.UNDO" "_All"))
    ((= d 3) (vl-cmdf "_.UNDO" "_Control" "_All"))
    (t nil)) ;_ end of cond
  (princ "\n Величина смещения <")(princ *OFF2*)(princ ">: ")
  (initget 6)(if (null (setq d (getdist))) (setq d *OFF2*))
  (setq   *OFF2* d undo 0)
  (initget "Undo Отмени Г J _Undo Undo Undo Undo")
  (while (setq obj (entsel (strcat "\n Выберите объект "
               (if (not (zerop undo))
                 "[Отмени]"
                 ""
               )
               " <выход>: "
            )
         )
    )
    (cond ((= obj "Undo")
      (if (not (zerop undo))
        (progn (vl-cmdf "_UNDO" "_B")(setq undo (1- undo)))
        (alert "Нечего больше отменять"))
     )
     (t
      (setq pt  (trans (cadr obj) 1 0)
       ent (vlax-ename->vla-object (car obj)))
      (cond ((= (vla-get-lock (vla-item lays (vla-get-layer ent))) :vlax-true)
        (alert "На блокированном слое!"))
       ((wcmatch (strcase (cdr(assoc 0 (entget(car obj))))) "*POLYLINE,LINE,SPLINE,ARC,CIRCLE,ELLIPSE")
           (setq pt  (vlax-curve-getclosestpointto ent pt)
       pt1 (vlax-curve-getFirstDeriv ent (vlax-curve-getParamAtPoint ent pt))
       pt1 (mapcar '+ pt pt1)
       ang (+ (angle pt pt1) (* 0.5 PI))
       pt1 (trans (polar pt (+ ang pi) 5) 0 1)
       pt  (trans (polar pt ang 5) 0 1))
      (setvar "OSMODE" 0)(vl-cmdf "_UNDO" "_M")(setq undo (1+ undo))
      (command "_.offset" d obj pt obj pt1 "")

(if (= (tblsearch "ltype" "DASHED") nil)
    (command "_-LINETYPE" "_L" "DASHED" "acadiso.lin" "")
)
(vl-cmdf "_CHANGE" obj "" "_P" "_LT" "DASHED" "")
(vl-cmdf "_PEDIT" obj "_W" (* d 2) "")

      (setvar "OSMODE" OSM)
        )
       (t (alert "Не удается создать объект, подобный данному"))
       )
     )
    )
    (initget "Undo Отмени Г J _Undo Undo Undo Undo")
  )
(vla-EndUndoMark adoc)
  (princ)
)
(princ "\nНаберите в командной строке OFF2")

Код взят отсюда (спасибо VVA):
http://www.caduser.ru/forum/index.ph...1391&PAGEN_1=2
Примечание:
В русской версии в файле acadiso.lin (acad.lin) тип линии DASHED называется Штриховая. Я обычно для совместимости в локализованную версию копирую эти файлы из английской версии.