아래와 같은 리습은 어떻게 사용하는지요?
;;; Sort
(defun sort (data method / item1 item2)
(setq item1 (car data))
(foreach item2 (cdr data)
(if (apply method (list item2 item1)) (setq item1 item2)))
(if data (append (list item1) (sort (append (cdr (member item1 (reverse data)))
(cdr (member item1 data))) method))
)
)
(princ)
;;; Show Object Information (General)
(defun c:show_info (/ selected_object part_name head tail axis llenght wire rawhead rawtail rawaxis rawlength rawwire head_x head_y head_z tail_x tail_y tail_z axis_x axis_y axis_z outputstring dcl_id radius rawradius ok rawwire_p)
(setq selected_object (car (entsel “nClick Object…”)))
(setq part_name (car (dfi_partForEntity selected_object)))
(setq rawhead (dfi_ref_lisp (strcat part_name “:toppoint:”)))
(setq rawtail (dfi_ref_lisp (strcat part_name “:bottompoint:”)))
(setq rawaxis (dfi_ref_lisp (strcat part_name “:axis:”)))
(setq rawlenght (dfi_ref_lisp (strcat part_name “:height:”)))
(setq rawwire (dfi_ref_lisp (strcat part_name “:wires:”)))
(setq rawradius (dfi_ref_lisp (strcat part_name “:radius:”)))
(setq rawquantity (dfi_ref_lisp (strcat part_name “:quantity_of_wire:”)))
(setq rawwire_p (sort rawwire ‘<))
(savelist rawwire_p “c:/defigner/thesis/temp1.txt”)
(readlist “c:/defigner/thesis/temp1.txt”)
(setq llength (rtos rawlenght 2))
(setq head_x (nth 0 rawhead))
(setq head_y (nth 1 rawhead))
(setq head_z (nth 2 rawhead))
(setq head_xp (rtos head_x 2))
(setq head_yp (rtos head_y 2))
(setq head_zp (rtos head_z 2))
(setq head (strcat “Point (” head_xp ” ” head_yp ” ” head_zp “)”))
(setq tail_x (nth 0 rawtail))
(setq tail_y (nth 1 rawtail))
(setq tail_z (nth 2 rawtail))
(setq tail_xp (rtos tail_x 2))
(setq tail_yp (rtos tail_y 2))
(setq tail_zp (rtos tail_z 2))
(setq tail (strcat “Point (” tail_xp ” ” tail_yp ” ” tail_zp “)”))
(setq axis_x (nth 0 rawaxis))
(setq axis_y (nth 1 rawaxis))
(setq axis_z (nth 2 rawaxis))
(setq axis_xp (rtos axis_x 2))
(setq axis_yp (rtos axis_y 2))
(setq axis_zp (rtos axis_z 2))
(setq axis (strcat “Vector (” axis_xp ” ” axis_yp ” ” axis_zp “)”))
(setq quantity (itoa rawquantity))
(setq radius (rtos rawradius 2))
(setq wire outputstring)
(setq dcl_id (load_dialog “cable.dcl”))
(setq ok 2)
(while (> ok 1)
(if (not (new_dialog “cable_if” dcl_id “”)) (exit))
(set_tile “part_name_dcl” part_name)
(set_tile “head_dcl” head)
(set_tile “tail_dcl” tail)
(set_tile “axis_dcl” axis)
(set_tile “length_dcl” llength)
(set_tile “radius_dcl” radius)
(set_tile “wire_dcl” wire)
(set_tile “quantity_dcl” quantity)
(setq ok (start_dialog))
)
(done_dialog)
(unload_dialog dcl_id)
(command “zoom” “all”)
(princ)
)
(princ)
;;; Save List Into TXT File For Data Type Transformation
(defun savelist (lst sfilnam / fn)
(setq fn (open sfilnam “w”))
(foreach n lst (princ n fn) (princ ” ” fn))
(close fn)
(princ)
)
(princ)
;;; Read TXT File For Data Type Transformation
(defun readlist (rfilnam / fn)
(setq fn (open rfilnam “r”))
(setq outputstring (read-line fn))
(close fn)
(princ)
)
(princ)
;;; Wire Trace
(defun c:trace_wire (/ dcl_id wire ok wireid wireid_s wirenum i wire_i wire_s)
(setq dcl_id (load_dialog “cable.dcl”))
(setq ok 2)
(setq wireid (dfi_ref_lisp “allwires:”))
(setq wireid (sort wireid ‘<))
(setq wirenum (length wireid))
(setq i 0)
(repeat wirenum
(setq wire_i (nth i wireid))
(setq wire_s (itoa wire_i))
(setq wireid_s (append wireid_s (list wire_s)))
(setq i (+ i 1))
)
(while (> ok 1)
(if (not (new_dialog “cable_tr” dcl_id “”)) (exit))
(start_list “wire_dcl”)
(mapcar ‘add_list wireid_s)
(end_list)
(action_tile “wire_dcl” “(setq wire $value)”)
(setq ok (start_dialog))
)
(done_dialog)
(unload_dialog dcl_id)
(if (= wire nil) (setq wire (nth 0 wireid_s)))
(if (= ok 1)
(progn
(setq wire (nth (atoi wire) wireid_s))
(dfi_compileRule “cable” “highlight_wire” (strcat “(integer) highlight_wire:” wire “;”))
)
)
(command “zoom” “all”)
(princ)
)
(princ)
;;; List Xor User Function
(defun listxor (mainwire transwire / i j main_quantity trans_quantity main_ele trans_ele aaa bbb)
(setq xorwire ‘())
(setq main_quantity (length mainwire))
(setq trans_quantity (length transwire))
(setq i 1)
(while i
(setq main_ele (nth (- i 1) mainwire))
(setq j 1)
(setq bbb 0)
(while j
(setq trans_ele (nth (- j 1) transwire))
(setq aaa 0)
(if (/= main_ele trans_ele) (setq aaa 1))
(setq bbb (+ aaa bbb))
(setq j (+ j 1))
(if (= j (+ trans_quantity 1)) (setq j nil))
)
(if (= bbb trans_quantity) (setq xorwire (append xorwire (list main_ele))))
(setq i (+ i 1))
(if (= i (+ main_quantity 1)) (setq i nil))
)
(setq i 1)
(while i
(setq trans_ele (nth (- i 1) transwire))
(setq j 1)
(setq bbb 0)
(while j
(setq main_ele (nth (- j 1) mainwire))
(setq aaa 0)
(if (/= main_ele trans_ele) (setq aaa 1))
(setq bbb (+ aaa bbb))
(setq j (+ j 1))
(if (= j (+ main_quantity 1)) (setq j nil))
)
(if (= bbb main_quantity) (setq xorwire (append xorwire (list trans_ele))))
(setq i (+ i 1))
(if (= i (+ trans_quantity 1)) (setq i nil))
)
(princ)
)
(princ)
;;; Make <mainwire.txt> File – ReCompile
(defun c:rebuild (/ mbwire tbwire nextmbwire i loopend j aaa resultlist lastresult mbwirefirst mbwirelast dcl_id ok line_qunt fn txtline fnn)
(setq dcl_id (load_dialog “cable.dcl”))
(setq ok 2)
(while (> ok 1)
(if (not (new_dialog “cable_ck” dcl_id “”)) (exit))
(setq ok (start_dialog))
)
(done_dialog)
(unload_dialog dcl_id)
(dfi_updateModel)
(if (= ok 1)
(progn
(fileselect)
(setq i 0)
(setq loopend (- (dfi_ref_lisp “no_of_main_bundles:”) 2))
(setq mbwire (dfi_ref_lisp “Connector_1:wires:”))
(setq mbwirefirst (dfi_ref_lisp “Connector_1:wires:”))
(setq mbwirelast (dfi_ref_lisp “Connector_2:wires:”))
(while i
(setq i (+ i 1))
(setq j (itoa i))
(setq tbwire (dfi_ref_lisp (strcat “Trans_Bundle_” j “:wires:”)))
(listxor mbwire tbwire)
(setq nextmbwire xorwire)
(setq resultlist (append resultlist (list nextmbwire)))
(setq mbwire nextmbwire)
(if (= i loopend) (setq i nil))
)
(setq lastresult (append (list mbwirefirst) resultlist (list mbwirelast)))
(savemainwire lastresult “c:/defigner/thesis/mainwire.txt”)
(setq line_qunt (dfi_ref_lisp “no_of_main_bundles:”))
(setq fn (open “c:/defigner/thesis/mainwire.txt” “r”))
(setq fnn (open “c:/defigner/thesis/wiremain.txt” “w”))
(repeat line_qunt
(setq txtline (read-line fn))
(instr “(” “” txtline)
(setq txtline_1 resultstr)
(instr “)” “” txtline_1)
(setq txtline_2 resultstr)
(write-line txtline_2 fnn)
)
(close fn)
(close fnn)
(dfi_updateModel)
(command “zoom” “all”)
)
)
(princ)
)
(princ)
;;; Save <mainwire.txt> File
(defun savemainwire (lst sfilnam / fn)
(setq fn (open sfilnam “w”))
(foreach n lst (princ n fn) (princ “n” fn))
(close fn)
(princ)
)
(princ)
;;; Transfomation Lisp List To Defigner List <Save>
(defun savelist_1 (lst sfilnam / fn)
(setq fn (open sfilnam “w”))
(princ “{” fn)
(foreach n lst (princ n fn) (princ “;” fn))
(princ “}” fn)
(close fn)
(princ)
)
(princ)
;;; Length Change
(defun c:chglen (/ raw_main_bundle_length_list raw_trans_bundle_length_list selected_object part_name indicator obj_num obj_len obj_num_s obj_len_s new_len new_len_list new_len_list_def outputstring dcl_id ok new_len_t)
(setq raw_main_bundle_length_list (dfi_ref_lisp “main_bundle_length_list:”))
(setq raw_trans_bundle_length_list (dfi_ref_lisp “trans_bundle_length_list:”))
(setq selected_object (car (entsel “nClick Object…”)))
(setq part_name (car (dfi_partForEntity selected_object)))
(setq indicator (substr part_name 1 1))
(if (= indicator “M”)
(progn
(setq obj_num_s (substr part_name 13 3))
(setq obj_num (atoi obj_num_s))
(setq obj_len (nth (- obj_num 1) raw_main_bundle_length_list))
(setq obj_len_t (rtos obj_len 2))
(setq dcl_id (load_dialog “cable.dcl”))
(setq ok 2)
(while (> ok 1)
(if (not (new_dialog “cable_cl” dcl_id “”)) (exit))
(set_tile “bundle_name_dcl” part_name)
(set_tile “bundle_length_dcl” obj_len_t)
(action_tile “bundle_length_dcl” “(setq new_len_t $value)”)
(setq ok (start_dialog))
)
(done_dialog)
(unload_dialog dcl_id)
(setq new_len (atof new_len_t))
(chgitem raw_main_bundle_length_list obj_num new_len)
(setq new_len_list chglist)
(savelist_1 new_len_list “c:/defigner/thesis/temp2.txt”)
(readlist “c:/defigner/thesis/temp2.txt”)
(setq new_len_list_def outputstring)
(if (= ok 1) (dfi_compileRule “cable” “main_bundle_length_list” (strcat “(list)main_bundle_length_list:” new_len_list_def “;”)))
(command “zoom” “all”)
)
)
(if (= indicator “T”)
(progn
(setq obj_num_s (substr part_name 14 3))
(setq obj_num (atoi obj_num_s))
(setq obj_len (nth (- obj_num 1) raw_trans_bundle_length_list))
(setq obj_len_t (rtos obj_len 2))
(setq dcl_id (load_dialog “cable.dcl”))
(setq ok 2)
(while (> ok 1)
(if (not (new_dialog “cable_cl” dcl_id “”)) (exit))
(set_tile “bundle_name_dcl” part_name)
(set_tile “bundle_length_dcl” obj_len_t)
(action_tile “bundle_length_dcl” “(setq new_len_t $value)”)
(setq ok (start_dialog))
)
(done_dialog)
(unload_dialog dcl_id)
(setq new_len (atof new_len_t))
(chgitem raw_trans_bundle_length_list obj_num new_len)
(setq new_len_list chglist)
(savelist_1 new_len_list “c:/defigner/thesis/temp2.txt”)
(readlist “c:/defigner/thesis/temp2.txt”)
(setq new_len_list_def outputstring)
(if (= ok 1) (dfi_compileRule “cable” “trans_bundle_length_list” (strcat “(list)trans_bundle_length_list:” new_len_list_def “;”)))
(command “zoom” “all”)
)
)
(if (and (/= indicator “M”) (/= indicator “T”))
(progn
(setq dcl_id (load_dialog “cable.dcl”))
(setq ok 2)
(while (> ok 1)
(if (not (new_dialog “cable_ca” dcl_id “”)) (exit))
(setq ok (start_dialog))
)
(done_dialog)
(unload_dialog dcl_id)
(command “zoom” “all”)
)
)
(princ)
)
(princ)
;;; Change List Item
(defun chgitem (lst num value / tmplt tmplt2 counter)
(setq num (- num 1))
(setq tmplt (list nil))
(setq tmplt2 (list nil))
(setq counter 0)
(repeat num
(setq tmplt (append tmplt (list (nth counter lst))))
(setq counter (+ counter 1))
)
(setq counter (+ counter 1))
(repeat (- (length lst) (+ num 1))
(setq tmplt2 (append tmplt2 (list (nth counter lst))))
(setq counter (+ counter 1))
)
(setq tmplt (cdr tmplt))
(setq tmplt2 (cdr tmplt2))
(setq chglist (append tmplt (list value) tmplt2))
(princ)
)
(princ)
;;; Exchange String Character
(defun instr (olds news estr / temp1 temp2 nold nnew nest ct e tststr)
(setq temp1 nil)
(setq temp2 nil)
(setq nold (strlen olds))
(setq nnew (strlen news))
(setq nest (strlen estr))
(setq ct 1)
(setq e 1)
(while e
(setq tststr (substr estr ct nold))
(setq ct (+ ct 1))
(if (= tststr “”) (setq e nil))
(if (= (strcase tststr) (strcase olds))
(progn
(setq e nil)
(setq ct (- ct 1))
(setq temp1 (substr estr 1 (- ct 1)))
(setq temp2 (substr estr (+ ct nold) nest))
(setq resultstr (strcat temp1 news temp2))
)
)
)
(princ)
)
(princ)
;;; Save List Into TXT File (String Type)
(defun savelist_2 (lst sfilnam / fn)
(setq fn (open sfilnam “w”))
(foreach n lst (princ n fn) (princ “n” fn))
(close fn)
(princ)
)
(princ)
;;; Swap Bundle
(defun c:swap (/ selected_object_m selected_object_t part_name_m part_name_t chkm_s chkt_s chkm chkt axis100 axis010 axis_100 resaxism nomb notb resaxist outputstring resultstr mb_tp_list i tpele restp mb_len_list ptx pty j ylen ylensum restp_1 res_mb_tp indicator_m indicator_t chksel)
(setq selected_object_m (car (entsel “nClick Main Bundle…”)))
(setq part_name_m (car (dfi_partForEntity selected_object_m)))
(setq indicator_m (substr part_name_m 1 1))
(setq selected_object_t (car (entsel “nClick Trans Bundle…”)))
(setq part_name_t (car (dfi_partForEntity selected_object_t)))
(setq indicator_t (substr part_name_t 1 1))
(setq nomb (dfi_ref_lisp “no_of_main_bundles:”))
(setq notb (dfi_ref_lisp “no_of_trans_bundles:”))
(setq chkm_s (substr part_name_m 13))
(setq chkt_s (substr part_name_t 14))
(setq chkm (atoi chkm_s))
(setq chkt (atoi chkt_s))
(setq chksel (- chkm chkt))
(if (and (= indicator_m “M”) (= indicator_t “T”) (= chksel 1))
(progn
(setq axis_100 ‘(-1 0 0))
(setq axis0_10 ‘(0 -1 0))
(setq axis100 ‘(1 0 0))
(repeat (- chkm 1) (setq resaxism (append resaxism (list axis_100))))
(repeat (+ 1 (- nomb chkm)) (setq resaxism (append resaxism (list axis0_10))))
(repeat (- chkt 1) (setq resaxist (append resaxist (list axis0_10))))
(setq resaxist (append resaxist (list axis_100)))
(repeat (- notb chkt) (setq resaxist (append resaxist (list axis_100))))
(savelist_3 resaxism “c:/defigner/thesis/temp5.txt”)
(savelist_3 resaxist “c:/defigner/thesis/temp6.txt”)
(readlist “c:/defigner/thesis/temp5.txt”)
(repeat (* 2 nomb) (instr ” ” “;” outputstring) (setq outputstring resultstr))
(setq resaxism outputstring)
(readlist “c:/defigner/thesis/temp6.txt”)
(repeat (* 2 notb) (instr ” ” “;” outputstring) (setq outputstring resultstr))
(setq resaxist outputstring)
(setq mb_tp_list (dfi_ref_lisp “main_bundle_top_point:”))
(setq mb_len_list (dfi_ref_lisp “main_bundle_length_list:”))
(setq i 0)
(repeat chkm
(setq tpele (nth i mb_tp_list))
(setq restp (append restp (list tpele)))
(setq i (+ 1 i))
)
(setq j 0)
(setq ylensum 0)
(repeat (- nomb chkm)
(setq ptx (nth 0 (nth (- chkm 1) restp)))
(setq ylen (nth (+ j (- chkm 1)) mb_len_list))
(setq ylensum (+ ylen ylensum))
(setq pty ylensum)
(setq restp_1 (append restp_1 (list (list ptx pty 0))))
(setq j (+ 1 j))
)
(setq res_mb_tp (append restp restp_1))
(savelist_4 res_mb_tp “c:/defigner/thesis/temp7.txt”)
(readlist “c:/defigner/thesis/temp7.txt”)
(repeat (* 2 nomb) (instr ” ” “;” outputstring) (setq outputstring resultstr))
(setq res_mb_tp outputstring)
(dfi_compileRule “cable” “main_bundle_axis_list” (strcat “(list) main_bundle_axis_list:” resaxism “;”) T)
(dfi_compileRule “cable” “trans_bundle_axis_list” (strcat “(list) trans_bundle_axis_list:” resaxist “;”) T)
(dfi_compileRule “cable” “main_bundle_top_point” (strcat “(list) main_bundle_top_point:” res_mb_tp “;”))
(command “zoom” “all”)
)
)
(if (or (/= indicator_t “T”) (/= indicator_m “M”) (/= chksel 1))
(progn
(setq dcl_id (load_dialog “cable.dcl”))
(setq ok 2)
(while (> ok 1)
(if (not (new_dialog “cable_cc” dcl_id “”)) (exit))
(setq ok (start_dialog))
)
(done_dialog)
(unload_dialog dcl_id)
(command “zoom” “all”)
)
)
(princ)
)
(princ)
;;; Transfomation Lisp List To Defigner List <Save> <Vector List>
(defun savelist_3 (lst sfilnam / fn)
(setq fn (open sfilnam “w”))
(princ “{” fn)
(foreach n lst (princ “vector” fn) (princ n fn) (princ “;” fn))
(princ “}” fn)
(close fn)
(princ)
)
;;; Transfomation Lisp List To Defigner List <Save> <Point List>
(defun savelist_4 (lst sfilnam / fn)
(setq fn (open sfilnam “w”))
(princ “{” fn)
(foreach n lst (princ “point” fn) (princ n fn) (princ “;” fn))
(princ “}” fn)
(close fn)
(princ)
)
(princ)
;;; Undo Swap Bundle
(defun c:undoswap (/)
(dfi_compileRule “cable” “main_bundle_axis_list” (strcat “(list) main_bundle_axis_list: main_bundle_axis_list_1:;”) T)
(dfi_compileRule “cable” “trans_bundle_axis_list” (strcat “(list) trans_bundle_axis_list: trans_bundle_axis_list_1:;”) T)
(dfi_compileRule “cable” “main_bundle_top_point” (strcat “(list) main_bundle_top_point: main_bundle_top_point_1:;”) )
(command “zoom” “all”)
(princ)
)
(princ)
;;; Undo Change Length
(defun c:undoclen (/)
(dfi_compileRule “cable” “main_bundle_length_list” (strcat “(list) main_bundle_length_list: main_bundle_length_list_1:;”) T)
(dfi_compileRule “cable” “trans_bundle_length_list” (strcat “(list) trans_bundle_length_list: trans_bundle_length_list_1:;”))
(command “zoom” “all”)
(princ)
)
(princ)
;;; Connector Information by Color Display
(defun c:makeclst (/ selected_object part_name conn_chk dcl_id_p ok inwires wirelen i highwire_n highwire_s mbcl tbcl mbcl_p tbcl_p resmbcl restbcl resmbcl_dfa restbcl_dfa outputstring outres a)
(setq selected_object (car (entsel “nClick Connector…”)))
(setq part_name (car (dfi_partForEntity selected_object)))
(setq conn_chk (substr part_name 1 10))
(if (/= conn_chk “Connector_”)
(progn
(setq dcl_id_p (load_dialog “cable.dcl”))
(setq ok 2)
(while (> ok 1)
(if (not (new_dialog “cable_cb” dcl_id_p “”)) (exit))
(setq ok (start_dialog))
)
(done_dialog)
(unload_dialog dcl_id_p)
(command “zoom” “all”)
)
)
(if (= conn_chk “Connector_”)
(progn
(setq inwires (dfi_ref_lisp (strcat part_name “:wires:”)))
(setq wirelen (length inwires))
(dfi_compileRule “cable” “highlight_wire_1” “(integer) highlight_wire_1: 9999;” T)
(setq i 0)
(repeat wirelen
(setq highwire_n (nth i inwires))
(setq highwire_s (itoa highwire_n))
(dfi_compileRule “cable” “highlight_wire_1” (strcat “(integer) highlight_wire_1:” highwire_s “;”) T)
(setq mbcl_p (dfi_ref_lisp “main_bundle_color_list_1:”))
(setq tbcl_p (dfi_ref_lisp “trans_bundle_color_list_1:”))
(setq mbcl (append mbcl (list mbcl_p)))
(setq tbcl (append tbcl (list tbcl_p)))
(setq i (+ i 1))
)
(compclist mbcl “m”)
(setq resmbcl outres)
(savelist_1 resmbcl “c:/defigner/thesis/temp8.txt”)
(readlist “c:/defigner/thesis/temp8.txt”)
(setq resmbcl_dfa outputstring)
(compclist tbcl “t”)
(setq restbcl outres)
(savelist_1 restbcl “c:/defigner/thesis/temp9.txt”)
(readlist “c:/defigner/thesis/temp9.txt”)
(setq restbcl_dfa outputstring)
(dfi_compileRule “cable” “main_bundle_color_list” (strcat “(list) main_bundle_color_list:” resmbcl_dfa “;”) T)
(dfi_compileRule “cable” “trans_bundle_color_list” (strcat “(list) trans_bundle_color_list:” restbcl_dfa “;”))
(command “zoom” “all”)
)
)
(princ)
)
(princ)
;;; Color List Compare
(defun compclist (lst chk / lstlen elelen i j elelst ele resele colele)
(setq lstlen (length lst))
(if (= chk “m”) (setq elelen (dfi_ref_lisp “no_of_main_bundles:”)))
(if (= chk “t”) (setq elelen (dfi_ref_lisp “no_of_trans_bundles:”)))
(setq outres (list nil))
(setq i 0)
(repeat elelen
(setq resele 0)
(setq j 0)
(repeat lstlen
(setq elelst (nth j lst))
(setq ele (nth i elelst))
(setq resele (+ resele ele))
(setq j (+ 1 j))
)
(if (= resele (* 256 lstlen)) (setq colele 256))
(if (/= resele (* 256 lstlen)) (setq colele 100))
(setq outres (append outres (list colele)))
(setq i (+ 1 i))
)
(setq outres (cdr outres))
(princ)
)
(princ)
;;; File Select
(defun fileselect (/ filename)
(setq filename (dfi_ref_lisp “wire_dataFile2:”))
(dfi_compileRule “cable” “rawData” (strcat “(List) rawData: @{$file << OpenFile(”” filename “”; Read); $list << ReadSimpleDataFile($file); CloseFile($file); $list;};”))
(princ)
)
(princ)