Papao
Guest
나는 어떤 엔티티티티 (archies, Circles, straight)의 두 지점 사이의 거리를 측정 할 수있는 오래된 날짜 lisp가 있습니다.
항상 autocad의 이전 버전에서 제대로 작동하지만 최근 버전으로 더 이상 작동하지 않습니다.
명령은 사용자 정의 버튼에 할당되었지만, 압력에도 불구하고 lisp가 올바르게 시작되지 않고, "insertion" 버튼 또는 "space bar"의 추가 압력에 대한 대기를 유지하여 제대로 작업을 진행합니다.
코드 lisp 누군가가 나를 도울 수 있습니까?
항상 autocad의 이전 버전에서 제대로 작동하지만 최근 버전으로 더 이상 작동하지 않습니다.
명령은 사용자 정의 버튼에 할당되었지만, 압력에도 불구하고 lisp가 올바르게 시작되지 않고, "insertion" 버튼 또는 "space bar"의 추가 압력에 대한 대기를 유지하여 제대로 작업을 진행합니다.
코드 lisp 누군가가 나를 도울 수 있습니까?
Code:
'2 점 사이의 거리를 계산
(환불 clerr)
(ctrl-c와 같은 오류가 발생하면)
(princ (strcat "\nerror: "s) ; 이 명령은 활성화되어 있습니다. ·
·
(if (= (getvar "username") "xxxxx xxxxx, xxxxx srl") (setvar "osmode" 37) (setvar "osmode" 1))
(setq *error* 이전) ; 오래된 복원 *error* 핸들러
(파나)
·
(defun c:pdist(/ saveosnapmode dist1 miodist)
(setq 이전*error*)
*error* clerr의 경우
(setq saveosnapmode)
( "_osnap" "_nea")
(setq dist1 (getpoint "처음을 터치 ") )
(command "_osnap")
(setq miodist (getdist dist1 "두 번째 지점을 터치") )
(setvar "osmode" saveosnapmode)
(princ "거리는"입니다)
(피아 miodist)
(setq *error* 이전) ; 오래된 복원 *error* 핸들러
(파나)
·