안녕하세요?

원 센터에서 선이 나오는 건데요
그으면 녹색으로 나오게금 해났는데 원래 흰색으로 안 바뀌네요  녹색선이 나오고 바로 레이어가흰색으로 바꿔으면 합니다 .

수식 리습인데요.. 수정좀 부탁드리겠습니다…

완전 초보에요~

(defun c:ass (/ #x #a #b #c #d #f #g #h )
(vl-load-com)
(setq #x “(“)
(repeat (setq #b(sslength #a))
(setq #c(vla-get-textstring(vlax-ename->vla-object(ssname #a (SETQ #x (- #c (SQRT (- (EXPT #d 2) (EXPT #e 2)))))
(if (setq #h(vl-string-search #x #c))
(progn
(setq #d(vl-string->list(substr #c(+(strlen #x)(1+ #h)))))
(foreach #y #d
(if (and(> #y 45)(< #y 57)(/= #y 47)(not #f))
(setq #e(cons #y #e))
(setq #f t)
);;if
);;foreach
(setq #g(cons (reverse #e) #g) #e nil #f nil)
);;progn
);;if
);;repeat
(princ “값=”)
(apply ‘+ (mapcar ‘(lambda (x)(atof(apply ‘strcat(mapcar ‘chr x))))#g))
);;defun

트레이 만드는 리습을 만들고 있는데

왕초보라보니 문제점을 해결할수가 없네요… ㅡㅡ;

고수님들의 답변 기다리겠습니다…

부탁드립니다..

… 생략 …
(setq sta_lst ‘(“1000 2000” “1000 3000” “2000 3000”))
(start_list “sh”) (mapcar ‘add_list sta_lst) (end_list)

(action_tile “sh” “(done_dialog)(setq pt $value)”)
(setq what_next (start_dialog))
)
(unload_dialog dcl_id)
(cond
((= pt “0”) (setq pts ‘(1000 2000)))
((= pt “1”) (setq pts ‘(1000 3000)))
((= pt “2”) (setq pts ‘(2000 3000)))
)
위 프로그램을 실행시키면 리스트 박스가 뜨고 거기에
1000 2000
1000 3000
2000 3000
이라고 나타납니다. 제가 1000 2000을 선택하면 Dialog Box는 사라지고
그다음 코드를 실행합니다. 저는 선택한 1000 2000을 리스트로 만들고
이것을 좌표로 이용합니다.

근데 위에 3개 말고 더 추가를 하고 싶은데 추가할 때마다 프로그램을 열고 list항과 Cond항을 두번 수정해 줍니다. 그리고 list항의 순서라도 바뀌게 되면 결과값은 제대로 안나오는거죠. 왜냐면 Cond항의 내용과 틀려져 버리니까요. 리스트항 내용을 수정하면 Cond항이 바로 수정되게 할 수 없나요?

그리고 저는 고정이 아니라 List Box에 나타나는 데이타를 입력받아서 추가도 하고 싶고 삭제도 하고 싶거든요. 방법없을까요?
(추가/삭제는 프로그램에서 하는게 아니라 Dialog Box를 이용해서 하고 싶거든요)

넘 서두없이 글을 적었네요. 바쁜와중에 항상 좋은 리플달아주시는 고수님들 감사드리고 이것 한번 생각 좀 해주십시요.

원래INT 교차점을 찾아서 그 교차점에 원을 그리고 원안에 있는 선을 TRIM 하는 리습인데요 CEN점을 찾아서 트림하게 할수는 없을까요

모듈과 압력각 잇수를 입력하면 자동으로 기어가 설계되는 리습인데여..
제가 초보라서 잘 모르거든요…
기어에 shaft가 들어갈 홈을 그려야 하는데 좀 도와주세요….ㅜㅡ;;;