cad 파일에 있는것처럼 기존리습은 양쪽으로 끝선을 남기는겁니다 여기에 추가로 남겨진 직선의 센터에 한쪽당 남겨진 길이의 1/3  을 지름으로 가지는 반원이 그려지고 그사이에 선은 잘라져서 없어지는 기능이 추가 됐으면 합니다..  그리고 새로 생기는 반원은 자동으로 노란색이 만들어지면 좋겠습니다 능력자분들 부탁드립니다. 파일첨부가 안되서 코드 올립니다.. cad ...더 읽기

(defun c:IDD() (COMMAND “EXPLODE” “ALL” “” “”) (COMMAND “SCALE” “ALL” “” “0,0” “1/3”) (COMMAND “TXTEXP” “ALL” “” ) (COMMAND “PURGE” “ALL” “” “N”) (command “zoom” “e”) (COMMAND “QSAVE”)더 읽기

더 읽기

  이 뜻이   이 뜻이라고 이해하면 되는 걸까요?  

(defun c:tt3(/ ss en ens n n1 k k1 tot dis dis1 siz sizh bas bas2 bas3 cs1 x1 y1 t1 text_out os adoc space th ss cp tb) (prompt “nCommand: Line PPlus…”) (vl-load-com) ...더 읽기

안녕하세요. 멋진분들이 만든 리습을 뚫어져라 보면서, 저에게 필요한것으로 수정하는 중입니다. 그러던중 trim 명령어에서 멈춘상태인데, 혹시 아시는 분은 도움 부탁드립니다. 질문. p1 p2를 지나는 무한직선에서 p1과 p2 사이의 선만 지울려고 합니다. 제가 생각한것을 (command “trim” p1 p2 “”) 이것인데,더 읽기

현재 글자크기 2.5에서 2로 수정하고 싶어요 어떤 부분을 수정하는 게 좋을까요…?? 고수님들 가르쳐주세욤.. ;================================================= ;**Error**Cancle** (defun dtr (a) (* pi (/ a 180.0))) (defun rtd (a) (* 180.0 (/ a pi))) ;(defun rtd (a) (/ (* a 180.0) pi)) (defun tan ...더 읽기