MBox.LSP MBox.LSP 本源代码由 Gu_xl 编写发布! 联系方式: Email: Gu_xl@sohu.com ;;框选物体画框 By Gu_xl 明经通道 2014.05.12 ( defun c:mBox ( / BOX INTERSECT RECTANG SS N L A L1 FLAG B C ) ( defun box ( e / p1 p2 p3 p4 obj ) ...
语法 (mapcar function list1 ... listn) 功能及参数 此函数将 list1 到 listn 当做 function 的参数, 并返回其结果。不过 list 的数目必须符合 function 所需要的数目。 范例 (setq a 10 b 20 c 30) (mapcar '1+ (list a b c)) & ...
;;text文字头尾除空格,文字位置保持不动 (defun c:tt (/ LLPT SC P1 P2 DOC E) (defun llpt (E / ENX B R L N M P) (setq enx (entget e)) (setq b (cdr (assoc 10 enx)) r (cdr (assoc 50 enx)) l (textbox enx) ...