사칙연산 리습 만드는 중 도움이 필요해 질문 올립니다.
;Set textsize “txsz”
(defun c:tz ()
(setvar ‘CMDECHO 0)
(setq txsz (getreal “nSet textsize : “))
(princ)
)
;———-
1. 위에서처럼 우선 사용자로부터 숫자를 입력 받아서 전역변수 txsz에 저장하는 리습을 만들었습니다. 그런데 혹시 사용자가 문자 객체를 선택할 경우 문자로부터 글자 크기를 추출해 txsz에 저장하고 숫자를 입력할 경우 숫자를 txsz에 저장하도록 만들 수 있을까요? 혹시 안된다면 문자로부터 글자 크기 추출하는 방법만이라도 알려주시면 좋겠습니다.
2. 1번 질문과 비슷한 내용이긴 합니다만 덧셈 중에 위의 전역변수 txsz가 true 일 경우 textsize에 txsz 값을 저장해 이를 글자 크기로 사용하고 nil 일 경우 선택한 객체 중 글자 크기가 가장 큰 객체의 글자 크기를 textsize에 저장해서 연산결과를 보여주는 구문을 만들려 합니다. 선택된 여러 객체의 글자 크기 중에서 가장 큰걸 추출하는 방법이 알고싶습니다.
(if txsz
(setvar “textsize” txsz)
?
)
;—————–
여기까진 짰으나 1번 질문이 해결이 안되서 막혔습니다. 도움 부탁드립니다.
p.s. 기존에 사칙연산 리습들 인터넷에 많은데 새로 짜는건 전역변수 따로 설정해서 한번 설정한 텍스트 크기를 가지고 면적 계산 리습, 사칙연산 리습 등에 한번에 사용하려고 짜고 있습니다.
감사합니다! 덕분에 찬찬히 뜯어보면서 몰랐던 함수들도 같이 공부하고 있습니다. 기능도 해결됐고 공부가 많이 되네요ㅎㅎ