|
sailorcwx兄,首先感谢你的帮助,小弟用在投影机上的程式已经OK了,现在想稍微改一下你的程式用在CNC加工中心.还有点小问题,想请你再费心帮帮忙..小弟就是还想在"G01 Z-1.0F800"上面再加一行"G00 每个孔的第一个点X Y坐标",有空的话就帮我把第一行那个"****. nc"也改成当前图形的文件名.我用(setq filename(getvar "dwgname"))得出的文件是还带.dwg的文件名.你能不能改成只要数字的文件名,比如我当前图文件名是1234-m.dwg,能不能得出是1234.nc (defun c:cs(/ X YH_BO YH_FILE YH_INDEX YH_LE YH_LPT YH_OBJ YH_PT YH_PT1 YH_PTL YH_PTL1 YH_RANGLE YH_RPT)
(vl-load-com)
(command)
(setq YH_ptl '())
(while (setq YH_pt1 (getpoint "\n选择孔内部点或者右键退出:"))
(setq YH_le (entlast))
(command "boundary" "a" "i" "n" "" "" YH_pt1 "")
(setq YH_bo (entlast))
(setq YH_ptl1 '())
(if (eq YH_le YH_bo)
(alert "错误，所选区域不封闭！")
(progn
(setq YH_rangle nil
YH_obj (vlax-ename->vla-object YH_bo)
)
(mapcar '(lambda (x)
(if (= (car x) 10)
(progn
(setq YH_pt (cdr x))
(if YH_rangle
(setq YH_lpt (last YH_ptl1)
YH_rpt (vlax-curve-getpointatparam YH_obj (/ (+ (vlax-curve-getparamatpoint YH_obj YH_pt)(vlax-curve-getparamatpoint YH_obj YH_lpt)) 2))
YH_ptl1 (append YH_ptl1 (list YH_rpt YH_pt))
YH_rangle nil
)
(setq YH_ptl1 (append YH_ptl1 (list YH_pt)))
)
)
)
(if (and (= (car x) 42) (/= (cdr x) 0))
(setq YH_rangle T)
)
)
(entget YH_bo))
(entdel YH_bo)
)
)
(if YH_ptl1 (setq YH_ptl (append YH_ptl (list (append YH_ptl1 (list (car YH_ptl1)))))))
)
(if YH_ptl
(progn
(setq YH_file (open "C:\\1.txt" "W")
YH_index 0
)
(write-line "%" YH_file)
(write-line "(****.nc)" YH_file)
(write-line "M06 T2 (D=3.0)" YH_file)
(write-line "M08" YH_file)
(write-line "G80G90G54F80" YH_file)
(write-line "G00 X0.0 Y0.0 M03S2000" YH_file)
(write-line "G43 H2 Z5.0" YH_file)
(write-line "G01 F100 Z2.0" YH_file)
(repeat (length YH_ptl)
(setq YH_ptl1 (nth YH_index YH_ptl))
(write-line (strcat "N" (rtos (1+ YH_index) 2 0)) YH_file)
(write-line "G01 Z-1.0F800" YH_file)
(mapcar '(lambda (x) (write-line (strcat "G01" "X" (rtos (car X)) "Y" (rtos (cadr X))) YH_file)) YH_ptl1)
(write-line "G00 Z5.0" YH_file)
(write-line "M01" YH_file)
(setq YH_index (1+ YH_index))
)
(write-line "G00 X0 Y0" YH_file)
(write-line "M30" YH_file)
(write-line "%" YH_file)
(close YH_file)
(startapp "notepad" "C:\\1.txt")
)
)
(princ)
)
| 
[复制链接]
楼主
显身卡
发表于 2007-10-7 15:25:00
发表于 2007-10-11 21:44:00
