EVO视讯·(中国游)官方网站

1.¼ÆËãËùÓÐÏ߶Î×ܳ¤¶È(¼ÓÔغóÖ»Ðè¿òÑ¡ËùÓÐÏ߶αã¿ÉµÃ³öÕâЩÏ߶εÄ×ܳ¤¶È) 
(defun c:LL ()
(setvar "cmdecho" 1)
(setq en (ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLINE"))))
(setq i 0)
(setq ll 0)
(repeat (sslength en)
  (setq ss (ssname en i))
  (setq endata (entget ss))
  (command "lengthen" ss "")
  (setq dd (getvar "perimeter"))
(setq ll (+ dd ll))
  (setq i (1+ i))
)
  (princ "ËùÑ¡ÏßÌõ×ܳ¤Îª£º")(princ ll)(princ)
)

2.±ê×¢ËùÓÐÏ߶Î(¼ÓÔغóÖ»Ðè¿òÑ¡ËùÓÐÏ߶αã¿ÉµÃ±ê×¢ÕâЩÏ߶Î) 
(defun c:LLL ()
(COMMAND "UCS" "")
(setvar "cmdecho" 1)
(SETVAR "OSMODE" 0)

;;Ñ¡È¡ÐèÒª²âÁ¿µÄÑùÌõÇúÏß¡¢Ô²»¡¡¢Ö±Ïß¡¢ÍÖÔ²
(setq en (ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLINE"))))
(setq i 0)
;;»ñȡϵͳ²ÎÊýtextsize
(setq shh (getvar "textsize"))
(setq str_hh (strcat "\nÎÄ×ָ߶Ƞ<" (rtos shh 2) ">: "))
(setq hh (getdist str_hh))
(while hh
(setvar "textsize" hh)
(setq hh nil))
;;ÊäÈë±ê×¢ÎÄ×ָ߶È
;;Ñ­»·¿ªÊ¼
(repeat (sslength en)
  (setq ss (ssname en i))
  (setq endata (entget ss))
  (command "lengthen" ss "")
  (setq dd (getvar "perimeter"))
  (princ (strcat "\n³¤¶È=" (rtos dd 2)))
  ;;Ñ°ÕÒ´ú±íͼ²ãµÄ×Ö·û´®
  (setq aa (assoc 0 endata))
  ;;»ñȡͼ²ãÃû³Æ
  (setq aa1 (cdr aa))
  ;;ÅжÏÏßÌõÖÖÀà
  (cond
    ((= aa1 "SPLINE")
    ;;Èç¹ûÊÇspline
    (progn
    (setq arcObj (VLAX-ENAME->VLA-OBJECT ss))
    (setq startPnt1 (vla-get-ControlPoints arcObj))
    (setq p1
       (vlax-safearray->list (vlax-variant-value startPnt1))
    )
    (setq x1 (car p1))
    (setq y1 (cadr p1))
    (setq z1 (caddr p1))
    (setq pp1 (list x1 y1 z1))
    (repeat (- (/ (length p1) 3) 1)
      ;;Ñ­»·£¬Ñ°ÕÒ×îºóÒ»¸ö¿ØÖƵã
      (setq p1 (cdddr p1))
      (setq x2 (car p1))
      (setq y2 (cadr p1))
      (setq z2 (caddr p1))
    )
    (setq pp2 (list x2 y2 z2))
    )
    )
    ((= aa1 "LWPOLYLINE")
    ;;Èç¹ûÊÇLWPOLYLINE
    (progn
    (setq arcObj (VLAX-ENAME->VLA-OBJECT ss))
  (setq startPnt1 (vla-get-Coordinates arcObj))
  (setq p1
      (vlax-safearray->list (vlax-variant-value startPnt1))
  )
    (setq x1 (car p1))
    (setq y1 (cadr p1))
    (setq z1 (caddr p1))
    (setq pp1 (list x1 y1 z1))
    (repeat (- (/ (length p1) 3) 1)
      ;;Ñ­»·£¬Ñ°ÕÒ×îºóÒ»¸ö¿ØÖƵã
      (setq p1 (cdddr p1))
      (setq x2 (car p1))
      (setq y2 (cadr p1))
      (setq z2 (caddr p1))
    )
    (setq pp2 (list x2 y2 z2))
    )
    )
    (t
    ;;Èç¹ûÊÇÆäËûÖÖÀàÏßÌõ
    (progn
    (setq arcObj (VLAX-ENAME->VLA-OBJECT ss))
    (setq startPnt1 (vla-get-StartPoint arcObj))
    ;;»ñÈ¡Æðµã
    (setq endPnt1 (vla-get-EndPoint arcObj))
    ;;»ñÈ¡ÖÕµã
    (setq pp1
       (vlax-safearray->list (vlax-variant-value startPnt1))
    )
    (setq
      pp2 (vlax-safearray->list (vlax-variant-value endPnt1))
    )
    )
    )
  )
  (setq x1 (car pp1))
  (setq y1 (cadr pp1))
  (setq z1 (caddr pp1))
  (setq x2 (car pp2))
  (setq y2 (cadr pp2))
  (setq z2 (caddr pp2))
  (setq x (/ (+ x1 x2) 2))
  (setq y (/ (+ y1 y2) 2))
  (setq z (/ (+ z1 z2) 2))
  (setq pt (list x y z))
  ;;È¡µÃÏ߶ÎÁ½¶ËµÄÖеã
  (setq ang (angle pp1 pp2))
  ;;»ñÈ¡½Ç¶È
  (if    (> (* (/ ang pi) 180) 180)
    (setq ang (+ ang pi))
  )
  (command "text"
      "j"
      "bc"
      pt
      ""
      (* (/ ang pi) 180)
      (strcat "" (rtos dd 2))
      ""
  )
  (setq i (1+ i))
)
(prin1)
)
(prompt "\n <>ÔÚͼÖÐÖ±½Óд³ö³¤¶È")
(prin1)

3.Á¬Ðø´ò¶Ï³ÌÐò 
(defun c:br1 ()
  (command "break" pause "f" pause "@")
)

4.½«CADÎÄ×Öµ¼ÈëExcel±í¸ñ 
(defun c:Q2()
(setq ffn (getfiled "д³öÎļþ" "" "xls" 1))
(princ "\nÑ¡È¡ÎÄ×Ö...")
(setq ss (ssget))
(setq ff (open ffn "w"))
(setq i 0)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq sstyp (cdr (assoc 0 ssdata)))
(if (or (= sstyp "TEXT") (= sstyp "MTEXT"))
(progn
(setq txt (cdr (assoc 1 ssdata)))
(princ txt ff)
(princ "\n" ff)
)
)
(setq i (1+ i))      
)
(close ff)
(princ (strcat "\nд³öÎļþ: " ffn))
(prin1)
)  

5 É¾³ý´øÑÕɫͼԪ

ÒÔϳÌÐòÔÚ±ðÈ˵ÄÌù×ÓÀïÌù¹ý.ΪÁË˵Ã÷ÎÊÌâ,½ñÌìÔÙÌùÒ»´Î.
¸ÄÑÕÉ«µÄLISP³ÌÐò

(defun c:c1()(ssget)(command "chprop" "p" "" "c" "1" "") (princ))
(defun c:c2()(ssget)(command "chprop" "p" "" "c" "2" "") (princ))
(defun c:c3()(ssget)(command "chprop" "p" "" "c" "3" "") (princ))
(defun c:c4()(ssget)(command "chprop" "p" "" "c" "4" "") (princ))
(defun c:c5()(ssget)(command "chprop" "p" "" "c" "5" "") (princ))
(defun c:c6()(ssget)(command "chprop" "p" "" "c" "6" "") (princ))
(defun c:c7()(ssget)(command "chprop" "p" "" "c" "7" "") (princ))
(defun c:c8()(ssget)(command "chprop" "p" "" "c" "8" "") (princ))

ÄãÓÃC1 ÃüÁî¾Í¿ÉÒÔ½«Í¼Ôª¸ÄΪºìÉ«ÁË.ÆäÓàÀàËÆ.

ɾ³ýºìɫͼԪ

(defun C:D1 (/ m A M)
             (setq m:err *error* *error* *merr*)
             (setvar "cmdecho" 0)
             (command "UNDO" "G")
             (prompt "Ñ¡ÔñͼÐÎ")
             (setq A (ssget '((62 . 1)) ))
             (if (/= A nil)(progn
             (setq M (sslength A))
             (command "erase" A "")
             (princ "\n¹²É¾³ýºìɫͼԪ<")(princ M)(princ ">¸ö")
             ))
             (command "UNDO" "E")  
             (princ)  )  

ÕâÑù,¼üÈë D1 ÃüÁî,¾Í¿ÉÒÔɾ³ýºìÉ«µÄͼԪÁË¡£

ÍƼöÔĶÁ£ºCAD»·Ðε¯»ÉµÄ»æ

ÍƼöÔĶÁ£ºCADÅàѵ