홈/ 질문/Q 112232
다음
진행 중
떠머
Lv.0
등록일: 2020-04-03T11:20:46+09:00 카테고리:

다수의 직선의 길이를 불러와 길이별로 블럭을 늘려주는 방법

수직인 직선이 있습니다.  

직사각형 블럭을 폭은 일정한 값(500mm)이고 
높이를 수직인 직선길이로 만들어주는 리습을 만드려고 합니다.
(Defun c:ib()
  
  (setq line_ent (entsel “n Select line :”))
  (setq l_name (car line_ent))
  (setq l_entdata (entget l_name))
  (setq osp (assoc 10 l_entdata))
  (setq ospp (cdr osp))
  (setq oep (assoc 11 l_entdata))
  (setq oepp (cdr oep))
  (setq dist (distance ospp oepp))
  (command “-insert” “reg” “y” dist ospp “” “” “”)
  (princ)
)
이렇게 만드니 하나는 만들었는데 직선이 100개가 넘어가는데 여러개를 한번에 수정하는 방법이 있을까요 ???
공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.22
      (Defun c:ib(/ ss e  l_entdata  ospp  oepp dist)
        (setq ss(ssget (list(cons 0 “Line”))))
        (foreach e(vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss)))
      (setq l_entdata (entget e))
      (setq ospp (cdr(assoc 10 l_entdata)))
      (setq oepp (cdr(assoc 11 l_entdata)))
      (setq dist (distance ospp oepp))
      (command “-insert” “reg” “y” dist ospp “” “” “”)
      )
        (princ)
      )
      (vl-load-com)
      • 0
    3. Lv.0

      잘되네요 답변 감사합니다.

      • 0