|
Тема |
Re: Програмиране в ACAD [re: Dim] |
|
Автор | StSt (Нерегистриран) | |
Публикувано | 21.10.06 23:33 |
|
|
За VBA е малко сложно, но ти предлагам програмка на LISP
Долния текст го запиши в PTC.LSP
Зареди го с
(load "PTC")
избери точките или всички елементи от нужния слой (може с QSELECT) и стартирай
PTC
Ако текста е с неподходяща големина смени го с
TEXTSIZE
Ако разположението на текста не е подходящ в сорса промени числото след DTXT (сега е 1.0)
;ПРОСТАВЯ КООРТИНАТИ НА ТОЧКИ
(DEFUN C:PTC ()
(IF (AND
(SETQ NAB (SSGET))
(> (SSLENGTH NAB) 0)
);AND
(PROGN
(SETQ I 0 TS (GETVAR "TEXTSIZE") DTXT 1.0)
(REPEAT (SSLENGTH NAB)
(SETQ EN (SSNAME NAB I)
I(1+ I)
PT (CDR(ASSOC 10 (ENTGET EN)))
);SETQ
(IF (= "POINT"(CDR(ASSOC 0 (ENTGET EN))))
(COMMAND "TEXT" (POLAR PT (/ PI 4) (* DTXT TS))TS 0
(STRCAT (RTOS(NTH 0 PT)2 4)","(RTOS(NTH 1 PT)2 4)","(RTOS(NTH 1 PT)2 4))
(COMMAND))
);IF POINT
);REPEAT
);PROGN
);IF
);C:PTC
|
| |
|
|
|