阅读下一篇
查询最大立管编号(lisp)(defun c:mh (/ n ) (princ "\n最大的编号为:\n") (foreach n ("JL-" "WL-" "FL-" "NL-" "XL-" "ZL-") (mh_1 n)) ;此处可以 (princ))(defun mh_1 (wz_lx / ents ent txt c0 lx lx1 bh maxbh flag) (setq maxbh 1) (setq lx1 (strcat wz_lx "*"))
回帖成功
经验值 +10
全部回复(2 )
只看楼主 我来说两句抢地板回复 举报
回复 举报