CAD명령어 단순조합 명령 (Z8-LEE_COMMAND.LSP)

AutoCAD 명령어를 조합하여 단축키 파일없이 바로적용한 명령어 모음
; <- 세미콜론 문자로 실행 또는 미적용 가능
 
* Zoom관련 명령어
(defun C:ZA  () (setvar "cmdecho" 0) (princ " = ZOOM - All")      (command "ZOOM" "A") (princ))
;(defun C:ZD  () (setvar "cmdecho" 0) (princ " = ZOOM - Dynamic")  (command "ZOOM" "D") (princ))(defun C:ZE  () (setvar "cmdecho" 0) (princ " = ZOOM - Extents")  (command "ZOOM" "E") (princ))

* Array 관련 명령어
(defun C:AP  () (setvar "cmdecho" 0) (princ " = ARRAY - Polar") (setq ss (ssget)) (command "_.ARRAY" "_p" "" "_p")(princ))        
(defun C:AR  () (setvar "cmdecho" 0) (princ " = ARRAY - Rectangular") (setq ss (ssget)) (command "_.ARRAY" "_p" "" "_R")(princ))

 

캐드 command는 버젼마다 조금씩 업그레이드 옵션이 다를수 있다
리습에서 실행하는 command는 사용자가 입력하는 command와 다르다를수 있다
(command "-hatch" "p" "RIPRAP" "s" ""
(command "hatch" "solid" .... 
(command "bhatch" (nth 0 pt-list)   ""

* -hatch 처럼 '-'를 포함할경우 DCL화면없이 진행되는 옵션임