Реклама i
Стань нашим партнером - зарабатывай с нами!
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > как рисовать двойными линиями

как рисовать двойными линиями

Ответ
Поиск в этой теме
Непрочитано 04.10.2007, 12:08 #1
как рисовать двойными линиями
exhale
 
Химки
Регистрация: 03.10.2007
Сообщений: 6

нужно рисовать стены, как сделать так чтобы не рсовать по 2 линии, а рисовать одной двойной. Пытался создать такой слой, а в стандартных типах линий нету двойных линий.
Просмотров: 17556
 
Непрочитано 04.10.2007, 12:09
#2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


_mline
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 04.10.2007, 12:23
#3
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,627


Отрисовка нескольких полилиний:
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=32273qs
Profan вне форума  
 
Автор темы   Непрочитано 04.10.2007, 12:24
#4
exhale


 
Регистрация: 03.10.2007
Химки
Сообщений: 6


Спасибо большое!!!
exhale вне форума  
 
Автор темы   Непрочитано 04.10.2007, 12:33
#5
exhale


 
Регистрация: 03.10.2007
Химки
Сообщений: 6


А как тепер присвоить команду _mline к выделенным линиям? Или может где нить есть файл ***.lin в котором есть такие двойные линии?
Короче говоря у меня щас стены из одинарных линий, мне нужно чтобы эти линии были двойными, как мне проще всего это сделать?
exhale вне форума  
 
Непрочитано 04.10.2007, 12:57
#6
ASLYS

Delineante
 
Регистрация: 26.12.2006
Ростов-на-Дону/Madrid
Сообщений: 396
<phrase 1=


попробуй это
[ATTACH]1191488269.rar[/ATTACH]
ASLYS вне форума  
 
Автор темы   Непрочитано 04.10.2007, 13:36
#7
exhale


 
Регистрация: 03.10.2007
Химки
Сообщений: 6


как этим приложением пользоваться?
exhale вне форума  
 
Непрочитано 04.10.2007, 13:36
#8
Дима_

Продуман
 
Регистрация: 22.02.2007
Питер
Сообщений: 2,840


Все последующие сугубо ИХМО - в свое время пробовал мультилинию - но с ней есть ряд проблем (например со снятием размеров), повозился потом бросил - стал рисовать в 3d, подчеркиваю - сугубо мое мнение - НЕ доделанны они в автокаде - лучше и не мучиться, хотя идея была хорошая.
__________________
Когда в руках молоток все вокруг кажется гвоздями.
Дима_ вне форума  
 
Непрочитано 04.10.2007, 14:38
#9
ASLYS

Delineante
 
Регистрация: 26.12.2006
Ростов-на-Дону/Madrid
Сообщений: 396
<phrase 1=


Цитата:
;;;CADALYST 11/04 Tip1991: L2W.LSP Line to Wall (c) 2004 Justin Werner
;| L2W, short for Line 2 Wall
Copyright 2004 Justin Werner
Input: Pick line & answer Wall Thickness
Output: Creates wall (2 lines) from 1 line as center of wall

Variables:
Name Description
ENPT Entity + point at which you pick line
EN1 Line you pick
EL1 Entity List
A Temporary # holder
OSM Original osmode variable, restored at end
OCMD Original CMDecho variable, restored at end
OOM Original OrthoMode variable, restored at end
WTHK Wall thickness, GLOBAL
WTHKHALF Half the Wall Thickness
P1,P2.. POINTS
TP1 TEMPORARY POINT
ANG(#) ANGLES |;

;;;---------Error Routine------------

(defun error-rout (str)
(if (/= str "Function cancelled")
(princ (strcat "\n***ERROR***" str "***"))
)
(setq *error* olderr)
(setvar "osmode" osm)
(setvar "cmdecho" ocmd)
(setvar "orthomode" oom)
)

(defun c:L2W (/ EN1 EL1 A OSM OCMD OOM P1 P2 P3 P4 TP1 ANG ANG2 ANG3 WTHKHALF)
(setq olderr *error*
*error* error-rout)

;;;---------Store Variables----------

(setq osm (getvar "osmode"))
(setq ocmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq oom (getvar "orthomode"))

;;;---------Main Program---------------

(setvar "osmode" 0) ;osnap none
(setq ENPT (entsel "\nPick a point on line to make into a wall: "))
(setq EN1 (car ENPT))
(setq EL1 (entget en1))
(if (= (cdr (assoc 0 EL1)) "LINE")
(progn
(setq P1 (cdr (ASSOC 10 EL1)))
(setq P2 (cdr (ASSOC 11 EL1)))
(setq ANG (angle P1 P2))
(setq ANG2 (- ANG (/ PI 2)))
(setq ANG3 (+ ANG (/ PI 2)))
(if (= WTHK nil)
(setq WTHK 5)
)
(princ "\nEnter wall thickness <")
(princ WTHK)
(princ "> ")
(setq a (getdist))
(if (= a nil)
(setq a WTHK)
)
(setq WTHK a)
(setq WTHK (rtos WTHK 2 4)) ;;;CHANGE 4 TO AN 8 IF YOU NEED WALLS TO BE MORE ACCURATE THAN TO 1/32"
(setq WTHK (atof WTHK))
(setq WTHKHALF (/ WTHK 2))
(setq P3 (POLAR P1 ANG2 WTHKHALF))
(setq P4 (POLAR P1 ANG3 WTHKHALF))
(COMMAND "MOVE" EN1 "" P1 P3)
(COMMAND "COPY" EN1 "" P3 P4)
) ;END progn
(prompt "\nNOT LINE ")
) ;END if


;;;---------Restore Variables----------

(setvar "osmode" osm)
(setvar "cmdecho" ocmd)
(setvar "orthomode" oom)

(setq *error* olderr)
(princ)
)
ASLYS вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > как рисовать двойными линиями

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск