오토캐드 리습을 CADian Lisp으로 적용 시에 수정할 부문 (예제 : 면적 계산)

[안티캐드]

AutoCAD에서 사용하던 리습은 대부분 변경없이 CADian 에서도 구동이 됩니다.

그러나 오토캐드 리습이 버전이 변경되면서 일부 수정(세팅 변경, 버전 체크 등)을 해야 되듯이

캐디안 에서도 수정이 필요한 경우는 발생할 수 있습니다.

맨 아래 오토리습의 경우(change 명령..) , 바로 아래 처럼 수정하면 정상 구동 됩니다.

----------------------------------------------------------------------------------------

(defun c:barea()   ; 면적계산
    (command "color" 1 "")
    (setq A (getpoint " 폐각형 내부점 클릭 : "))
    (princ a)
    (command "-boundary" a "")
    (command "AREA" "entity" (entlast))
    (command "-bhatch" "p" "ANSI31" "1" "45" A "")
    (COMMAND "CHange" "P" (entlast) "" "C" "2" "")  ; <----- 이렇게 해보세요.
    (princ)
)

 

 

아래 내용 중에서 마지막 command 가 안되어 수정 부탁합니다.

(defun c:barea()   ; 면적계산
    (command "color" 1 "") 
    (setq A (getpoint " 폐각형 내부점 클릭 : "))
    (command "-boundary" a "")
    (command "AREA" "entity" (entlast))
    (command "-bhatch" "p" "ANSI31" "1" "45" A "")

  (COMMAND "CHange" "P" (entlast) "" "C" 2 "")  ; <----- 이 부분이 안되네요

[출처] 오토캐드 리습을 CADian Lisp으로 적용 시에 수정할 부문 (예제 : 면적 계산) (dwg 설계도면, 오토캐드(AutoCAD) & 캐디안(CADian) 사랑) |작성자 폴

[JIN93]

잘 봤습니다! 감사합니다~ ^^