홈/ 질문/Q 105513
다음
진행 중
Lv.0
등록일: 2015-11-21T18:13:13+09:00 카테고리:

win.lsp의 코드에 대해서….잘 모르겠습니다……..

;예전에 사용하던….상용리습의 코드중 일부입니다…..지금은 상용이 아니기에….

;사용상 의문이 있어 질문드립니다…..

;Block WIN15 references itself
;*Invalid*
;error: Function cancelled 
;라는 에러가 뜨면서…실행이 중단되는데…..
;제 리습 실력으로는 도무지…해석이 안되서…도움 요청드립니다…..
;정상적으로 사용하려면….어느 부분이 수정되어야 하는지…….
;아시는 분….꼭 좀…..알려주셨음…합니다……..
;읽어주셔서…감사합니다……….

(defun m:WIN(/ CC CEC SSE E pt1 pt2 pt3 d1 pt4 ang ss ls no)(princ(strcat “ntWIN, Version ” version “,” logo “”))

(setvar “cmdecho” 0) (setq cor (getvar “orthomode”))
(MENUCMD “S=X”)(MENUCMD “S=WIN”)
;여기………
;(MENUCMD) 함수가 뭔지 잘 모르겠구요……..
(if(= wn nil) (setq wn “WIN15”))
;”WIN15″ 역시 잘 모르겠고…….
(setq wnk (getstring (strcat “n>> Enter Window Name<” wn “>: “)))
(if (/= wnk “”) (setq wn wnk))
(MENUCMD “S= “)(MENUCMD “S= “)
(setvar “OSMODE” 512)
(initget 1) 
(setq pt1 (getpoint “n>> Upper-left Corner of Opening: NEAREST to “))
(while (/= pt1 nil) 
(setq pt2 (getpoint pt1 “n>>Upper-right Corner(or Enter @size<angle):NEAREST to”))
(setvar “OSMODE” 128)(setvar “orthomode” 0)
(setq pt3 (getpoint pt1 “n>> Touch Other side of Wall: PERPEND to “))

;하지만 여기까진 실행이 되는거 같습니다………..
(setvar “OSMODE” 0)(setvar “BLIPMODE” 0)
(setq ang (angle pt1 pt2))
(setq d1 (distance pt1 pt2))
(setq pt4 (polar pt1 ang (/ d1 1.1) ) )

(setq ss (ssget “C” pt3 pt4)) 
(RMV) ;이 넘이 문제인것 같기도 하구요…
(SETQ CEC (GETVAR “CECOLOR”)) (SETQ SSE (SSGET PT1))
(SETQ E (ENTGET (SSNAME SSE 0))) (SETQ CC(CDR(ASSOC 62 E)))
(SETQ cel(CDR(ASSOC 8 E))) 
(SETLAY cel) ;이 넘이 말하는게 무엇인지 모르겠고…….

;여기서 부터……..
(COMMAND “COLOR” CC) ;여기에서…CC를 잘 모르겠습니다……
(command “LINE” pt1 pt3 “”) (command “COPY” “L” “” pt1 pt2)
(command “TRIM” “L” “P” “”) 
(repeat ls (setq no(1+ no) ) 
(command  (list (ssname ss no) pt4 ) ) )
(command “”) (COMMAND “COLOR” cec) 
;여기서 cec를 잘 모르겠습니다….
(RTNLAY) ;이 것도 잘 모르겠어요……
(SETVAR “BLIPMODE” 0)
(SETLAY “WINDOW”)    ;  여기….(setlay)를 잘 모르겠고…..

(command “INSERT” wn pt1 “” “” (rtd ang) )
(RTNLAY)
(setvar “OSMODE” 512)(setvar “orthomode” cor) 
;cor도 모르겠습니다….
(prompt “n>> If stop Window Creating, Strike Return Key. “) (prompt “n>> Otherwise, “)
(setq pt1 (getpoint “Pick Upper-left Corner of Opening: NEAREST to “) ) )  ; 여기 ) 가 왜 3개인지….

(setvar “OSMODE” 0) (princ) )
(defun C:WIN() (m:win)) (princ “ntWINdows creating loaded. Command: WIN”) (princ)
;여기까지 입니다……….
공유

    관련 있는 질문들

    7 답변

    1. aalan
    2. Lv.21

      이런리습류는 함수끼리 서로 연결 돼 있기 때문에 통째로 있어야 사용이 가능합니다 

      일단 눈에 보이는 함수만 해도 4개가 다른곳에 있고 변수 몇개도 다른곳에서 정보를 가져오네요.. 
      • 0

    3. 그런 함수와 변수가 어떤게 있을까요?…..

      꼭 찾아보고 수정해보고 싶어서요……..
      다른 것들은 실행이 되는데….이 것만…실행이 안돼는군요………
      여기서 부터…..
      라는 곳에서 부터….에러가 나는거 같습니다…….
      그리고 알고 싶은것은 wn변수인데……..좀처럼…모습이 보이지 않는군요…….
      • 0
    4. 상큼메론90 님…….

      답변 감사합니다…..

      역시 에러가 나지만…..많은 도움이 되는것이 사실입니다……
      검색을 해본답시고….해보고….질문들 드린건데….많이 부족했었나 봅니다……..
      이전…질문을 다시 검색해보고……
      분석하고…..한번 더..연구해 보겠습니다……………….
      • 0

    5. 제가 이제 막 리습에 대한 책한권을 읽은 상태라 잘은 모르겠어요….

      (defun c:win)에서…(defun c:winn)으로 고쳤습니다….중복을 피하려고…..
      일단…… win15.dwg 화일을 같은 디렉토리에 넣은후….
      입력화일을 요구할 때…win15 라고 입력했습니다….
      그리고….
      실행하면…..벽체까지 잘리는데는 성공하는데….블럭은 로드가 안되고…..
      >> Touch Other side of Wall: PERPEND to Block win15 references itself
      *Invalid*
      Function cancelled
      이런 메시지가 뜹니다…….무슨 뜻인지………???
      왠지…..이것만 잘 해결하면……
      다른것은 잘 풀릴것 같은…….
      좋은 느낌이 드는군요……^^
      • 0
    6. (SETVAR “OSMODE” 128)
      요게..있어서…….직각점을 잡는데는 별 문제가 없는것 같습니다…..
      혹시 다른 문제가 있나 싶어….다른 리습을…언로드시키고….
      상큼메론90 님께서…만들어주신……
      win.lsp만 로드시킨후..실행시켜도…..역시 마찬가지네요……
      저도….왜…에러가 나는지 잘 모르겠어요……
      암튼…..덕분에…많은 공부가 돼는것 같습니다……..^^…..
      코드를 디버깅하면서….살펴보고 있는데….
      전체적으로……
      별 문제는 없는것 같습니다…..
      좀…더…연구해 보겠습니다………^^
      • 0

    7. 문제는 리습이 아니고..블럭에 있다는 느낌이 들기도 하는군요…..

      WIN15.DWG 화일을 단순히….INSERT시켜도…..
      Block win15 references itself
      *Invalid*
      이런 에러가 나는데
      무슨 문제인지…모르겠습니다……….
      • 0

    8. 아~~~리습에 대한 부분은 완벽하군요……

      잘 실행이 됩니다…..문제는….
      블럭에 있었군요…..예전 캐드의 블럭들을 재정의 해야하는 것 같습니다…..
      2016에서….다시 블럭을 정의한 뒤….실행시키니까…..
      잘….됩니다………..
      지금까지…..조언해 주셔서…너무..너무…감사드립니다…………….
      리습에 대한 공부도 돼었지만………….
      저에게….많은걸…일깨워 주신…….
      상큼메론90 님……너무….많은…고마움에…..무한한…감사를 드리고………
      무엇이라 표현드리지는 못하지만………..
      암튼……..
      많은 도움을 받고…..싶습니다…….
      리습을 사용하지 않고….단순히…응용프로그램에만…집착하면…..
      새로운…기술에 대한…배움이 없어지는것 같기에…..
      리습은……꼭…잡아야 하는 도구가 아닌가 싶습니다………
      때문에…..앞으로도…더더욱..리습에 대한 공부를 하려고 합니다……
      성공에 대한….흥분으로….
      이런 마음을 어떻게 표현해야 할지 잘 모르겠습니다…………^^
      감사함에……..몸둘바를 모르겠고…..무엇을 어떻게 해야할지……잘 모르겠습니다……….
      어쨌든……..성공했습니다……..
      감사합니다………..^__________________________^~!!!
      • 0