Lisp 구문 관련하여 도움 요청드립니다. > 질문 및 오류신고

본문 바로가기

질문 및 오류신고

Lisp 구문 관련하여 도움 요청드립니다.

페이지 정보

작성자 조운용 댓글 2건 조회 857회 작성일 24-03-28 13:48

본문

캐드 프로그램 종류 및 버전 : AUTOCAD 2020

오류 내용 (오류 메세지 등) :


안녕하세요. 정말 신세를 많이 지고 있습니다.

염치불구하고 Lisp관련하여 가장 많이 알고 계시기에 해당 첨부 lisp을 활용하여 속성블록에 적용되어 있는 Layer 이름을 넣고 싶습니다.


실력이 너무 부족한 상태라 여러 방안으로 적용해 보았지만 작동하지 않아 염치불구하고 도움 요청드립니다.

첨부파일

댓글목록

이자더님의 댓글

이자더 작성일

아래 것을 사용하시면 되세요.
담 부터는 아키모아와 같은 캐드 카페에 문의를 해주시면 감사하겠습니다.
xicad 가 깔려 있는 경우에만 작동을 합니다.

(defun c:test ( / ss n ent obj lay)
  (xi:StartS)
  (if (setq ss (ssget ":L" '((0 . "INSERT") (66 . 1))))
      (progn
        (xi:StartUndo xi_acDoc)
        (repeat (setq n (sslength ss))
            (setq ent (ssname ss (setq n (1- n)))
                  obj (vlax-ename->vla-object ent)
                  lay (vlax-get obj 'Layer)
            )
            (if (cdr (assoc "SECTOR" (xi:GetAtts obj)))
              (xi:SetAttValue obj "SECTOR" lay)
            )
        )
        (xi:EndUndo xi_acDoc)
      )
  )
  (xi:Ends)
)

이자더님의 댓글

이자더 작성일

그건 어렵습니다.
아키모아와 같은 캐드 카페를 이용해 주시어요.
저도 월급받는 평범한 직장인라서요.. 일을 할 수 있는 시간을 가질 수 있도록 도와주시면 감사하겠습니다.


XICAD, Copyright © izzarder.com All rights reserved.