기본값으로 multiply perimeter 명령을 삽입

[Yebisu]

좋은 아침,
나는 이미 vba 명령으로 나를 제공 할 상단을 가지고 perimeter를 삽입하고 그림에 삽입합니다.
perimeter * 값 (0.16 및 0.9)을 추가하고 싶습니다.
어디 갈지 모르겠다.

감사합니다.

 

[rpor66]

그러나이 정상은 누구입니까? 좋은 것, 또는 그곳에 서 있는 프로그램?
vba 섹션에서 명령을 변경하는 데 도움이 될 것입니다, vba로 작성되었지만, 그것을 첨부하지 않습니다, 코드가 없습니다, 어떤의 둘레를 지정하지 마십시오, 선, 폴리 라인, 당신은 등을 살펴.
질문을 개혁하고 자신을 더 잘 설명합니다.
이름 *

 

[Yebisu]

미안 나는 매우 vague, 그것은 끊긴 뜨거운 공기 상태입니다 : d
..top는 외부 프로그램입니다 ... 명백하게 나는 명령의 vbas를 검색하려고했지만 잘 숨겨져 있습니다 ... 또는 나는 그들을 찾는 곳을 모른다. 나는 vba의 이름을 발견, 버튼에서 찾고, 나는 autocad 폴더에 검색하려고하지만 아무것도...

명령은 전체적인 숫자의 둘레를 계산합니다 줄 원형 등을 포함합니다. 선반 재료에 따라 선반의 작업 시간의 계산에 대한 값을 곱해야합니다.


감사합니다.

 

[rpor66]

(defunc c: 수직 (/pt1 perim)
(setq pt1 (getpoint "선택 내부 포인트: ")
(설정)
(if (/= perim nil)
(command "_text" "_j" "_m" pt1 "" 0 (strcat "p=" (rtos perim 2)))
·
·

(defunc c:perimetro016 (/pt1 perim)
(setq pt1 (getpoint "선택 내부 포인트: ")
(설정)
(if (/= perim nil)
(command "_text" "_j" "_m" pt1 "" 0 (strcat "p*0.16=" (rtos (* perim 0.16)) 2))
·
·

(defunc c:perimetro09 (/pt1 perim)
(setq pt1 (getpoint "선택 내부 포인트: ")
(설정)
(if (/= perim nil)
(command "_text" "_j" "_m" pt1 "" 0 (strcat "p*0.9=" (rtos (* perim 0.9)) 2))
·
·

(defun fnperimeter (pt1 / n1 n2 pt1)
(setq n1 (마지막)
"_bpoly" "_a" "_o" "_r" "pt1 "")
(setq n2 (마지막)
(n2) (이 아닌 경우)
(임시)
(command "_area" "_o" "_last")
(command "_erase"n ")
(getvar "퍼미터")
·
(내부 그림 계산을 가진 금지)
·
·

lisp에, 가능한 간단한 형태로, 다음 파일을 만들고 코드를 붙여.
업로드하면 3 개의 명령, 둘레가 있습니다. bpoly 명령, perimeter09, 동일하지만 0.9 및 perimeter016, 동일한 논리를 사용하여 계산 된 값으로 텍스트를 추가합니다.
텍스트는 가변 텍스트 크기, 각도 0, 값은 소수 형식으로 포맷되어, 명령 단위에서 소수의 수.

 

[Yebisu]

감사합니다, 그때 나는 몇 가지 버튼과 함께 그것을 연결할 수 있다고 생각합니다.)