一个关于块的lsp,呵呵，是转抄来的

前生

(defun C:IP1 ()
  (if (setq SSBLK (car (entsel "ICK BLOCK TO REDEFINE POINT...")))
    (progn
      (command "UNDO" "BE")
      (command "UCS" "")
      (EB SSBLK)
      (setq INSPNT (getpoint "NEW INSERTION POINT"))
      ;;calculated second mirror point
      (setq
        INS_X
         (list
           (+ (nth 0 INSPNT) (* -100 (sin ROTRAD)))
           (+ (nth 1 INSPNT) (* 100 (cos ROTRAD)))
           (nth 2 INSPNT)
         ) ;_ end of LIST
      ) ;_ end of SETQ
      (setq
        INS_Y
         (list
           (+ (nth 0 INSPNT) (* 100 (cos ROTRAD)))
           (+ (nth 1 INSPNT) (* 100 (sin ROTRAD)))
           (nth 2 INSPNT)
         ) ;_ end of LIST
      ) ;_ end of SETQ
      (setq OLDSNP (getvar "osmode"))
      (setvar "osmode" 0)
      (NN)
      (setvar "osmode" OLDSNP)
      (command "UCS" "")
    ) ;_ end of progn
    (prompt "\nNOTHING WAS SELECTED")
  ) ;_ end of if
)

(defun NN ()
  (setq CMDECHO (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (setq REGENMODE (getvar "REGENMODE"))
  (setvar "REGENMODE" 0)
  (setq NEWITM (entnext ENLAST))        ;select new entities name after edit
  (while (/= NEWITM NIL)
    (ssadd NEWITM SSTOT)                ;add new items to block selection set
    (setq NEWITM (entnext NEWITM))
  ) ;_ end of WHILE
  (command "SCALE" SSTOT "" INSPNT (/ 1 SCALE))
  (if (< SCAL-X 0)
    (command "MIRROR" SSTOT "" INSPNT INS_X "Y")
  ) ;_ end of IF
  (if (< SCAL-Y 0)
    (command "MIRROR" SSTOT "" INSPNT INS_Y "Y")
  ) ;_ end of IF
  (command "ROTATE" SSTOT "" INSPNT (* -1 ROT))
  (command "BLOCK" BNAME "Y" INSPNT SSTOT "")
  (setq ALLBLK NIL)
  (setq ALLBLK (ssget "X" (list (cons 2 BNAME))))
                                        ;create sel. set from all blocks with thet name
  (if (/= ALLBLK NIL)
    (progn
      (setq SSLENB (sslength ALLBLK))
      ;;NUMBER OF BLOCKS
      (while (> SSLENB 0)
        (setq BCHECK (ssname ALLBLK (setq SSLENB (1- SSLENB))))
                                        ;exstact name from sel. set
        (entupd BCHECK)
      )                                        ;WHILE
    )                                        ROGN
  )                                        ;IF
  (setq SSTOT NIL)
  (setq ALLBLK NIL)
  (command "INSERT" BNAME INSPNT SCAL-X SCAL-Y ROT)
  (command "CHPROP" (entlast) "" "LA" BLAYER "")
  (setq CHEK 0)
  (setvar "REGENMODE" REGENMODE)
  (setvar "CMDECHO" CMDECHO)
)

花锦绣

好象每个写程序的人都不爱写注解，这是个不好的习惯哟！

akey

花锦绣发表于2003-12-25 19:22:00好象每个写程序的人都不爱写注解，这是个不好的习惯哟！

有注解的，分号后面。

SWAYWOOD

eb 是一个什么函数

SWAYWOOD

eb 是一个什么函数

luoyaya

楼主要抄也抄完成嘛

myfreemind

呵呵，英文注释！

yybu

用不了啊!!