cad使用lisp.docxVIP

【累计长度cd】(DEFUN C:cd () (setq tot_len 0) (prompt \nSelect all objects to count请选择所有要累计长度的物体: ) (setq ss (ssget)) (while ( (sslength ss) 0) (setq en (ssname ss 0)) (setq ed (entget en)) (setq e_type (cdr (assoc 0 ed))) (cond ((= e_type LINE) (add_lines)) ((= e_type ARC) (add_arcs)) ((= e_type POLYLINE) (add_poly)) ((or (/= e_type LINE) (/= e_type ARC) (/= e_type POLYLINE) ) (ssdel en ss) ) ) ) (prompt (strcat \nTotal length is 总长度是: (rtos tot_len 2 2))))(princ)【焊缝hf】;;; WELDn.LSP;;; Date : 28 June 1995;;; Description : Draws welding symbol;;; bong c. deato property for Tostem HK Ltd.;;; 2.00;;; revise 03 July 1996: add sideweld option;;; 2.01;;; revise 17 September 1996 : add UCS World command to fit all ucs;;; 2.02;;; revise 15 July 1997 : change the weld-plan routine;;; 3.00;;; by Eric Wong(defun C:hf (/ old cmdold lyold) (setq old *error*) (defun *error* (msg) (if (or (/= msg Function cancelled) (= msg quit / exit abort) ) (princ) (princ (strcat \nError: msg)) ) (setq *error* old) (setq old nil base nil cmdold nil lyold nil) (princ) );defun error (setq cmdold (getvar cmdecho)) (setq lyold (getvar clayer)) (prompt \nWELD.lsp Version 3.00) (setvar CMDECHO 0) (princ);;; default value routine (if (= wsz nil) (setq wsz 4.0)) (princ (strcat \nWelding size (rtos wsz 2 2) : )) (setq a (getdist)) (if (= a nil) (setq a wsz)) (setq wsz a) (initget Sideweld Planweld) (setq select (getkword \nSideweld/Planweld: )) (if (= select Sideweld)(weld_sect)(weld_plan)) (setq old nil) (setvar CMDECHO CMDOLD) (setvar blipmode 0) (setvar clayer lyold) (princ)); end;;;-------------------------------------------------------------;;; weldn section routine(defun weld_sect (/ ipt weld-lay) (setvar blipmode 1) (setq ipt (getpoint \n Insertion point: )) (setq weld-lay (tblsearch layer PUB_HATCH)) (if