2013-09-21 QQ群：CAD-LISP(199191568) 聊天记录：[image={E9B34F21-CEAA-8A68-2949-48D3DC21

CCarch

34、Pan(471968306)于2013-09-21 21-52-46：
[qqimg]{7E536876-BD9F-045A-82E6-1A910D0FF8F7}.gif[/qqimg]

CCarch

34、Pan(471968306)于2013-09-21 21-52-49：
死梅毒！

CCarch

___5 月 末(110901107)于2013-09-21 21-53-18：
(defun c:kJ(/ OS ENT PT ENTD ENTDT p1 p2 p3 p4
            p1x p1y p2x p2y p3x p3y p4x p4y p1q
            p2q p3q p4q PM PMX PMY EL1 RANG ENTS old_error)
  (getv)
  (setq old_error *error*)
  (defun KJ_error(msg)
    (setq *error* old_error)
    (SETV)
    (princ msg)
    (princ)
  )
  (setq *error* KJ_error)
  (command "ucs" "w")
  (SETVAR "OSMODE" 0)
  (SETQ ENTS (SSGET ":S"))
  (SETQ ENT(SSNAME ENTS 0))
  (SETQ  ENTD(ENTGET ENT ))  
  (IF(=  (cdr (assoc 0 ENTD)) "LWPOLYLINE")
     (PROGN
       (SETQ IS_CLOSED(CDR(ASSOC 70 ENTD)))
       (SETQ ENTDT ENTD)
       (WHILE (/= 10 (CAR(CAR ENTDT)))(SETQ ENTDT(CDR ENTDT)))
       (while (/= nil (cdr(assoc 10 (cdr entDT))))
         (setq P1 (cdr(assoc 10 entDT)))        
         (setq entDT (cdDDr entDT))
         (setq P2 (cdr(assoc 10 entDT)))
         (setq entDT (cddDr entDT))
         (setq P3 (cdr(assoc 10 entDT)))
         (setq entDT (cddDr entDT))
         (setq P4 (cdr(assoc 10 entDT)))
         (setq entDT (cddDr entDT))
         (setq PX (cdr(assoc 10 entDT)))
       )
      )
    )
  (SETQ DIRSTR(Judge_dir P1 P4 P2))
  (SETQ DIRANG(+(ANGLE p4 p1)(* DIRSTR(/ PI 2))))
  (SETQ P1Q(polar p2 (* DIRANG) 1.5))
  (SETQ P2Q(polar p2 (* DIRANG) 0.5))
  (SETQ P3Q(polar p3 (* DIRANG) 0.5))
  (SETQ P4Q(polar p3 (* DIRANG) 1.5))
  (IF(> (DISTANCE P1 P2) 2.15)
     (PROGN
     (SETQ P2Q(INTERS P1 P1Q P2Q P3Q NIL)
           P3Q(INTERS P4 P4Q P2Q P3Q NIL))
     )
  )
  (COMMAND "PLINE" P1Q P2Q P3Q P4Q"")
  (setq el(entlast))
  (command"change"el"""p""La""1""")
  (SETQ RANG (RANG_OF_SS ENTS))
  (setq id 0 iter 40)
  (COMMAND "ERASE"ENT"")
  (setq pmx(/ (+(car p1Q)(car p4Q)) 2)
        pmy(/ (+(cadr p1Q)(cadr p4Q)) 2)
        pm (list pmx pmy))
  (command "trim" p2q "" pm"")
  (command "line" p1q p4q"")
  (c:Z1)
  (setq el1(entlast))
  (if(or(= (cdr(assoc 8  entd)) "41")(= (cdr(assoc 8  entd)) "s01"))
    (command"change"el1"""p""La""11"""))
  (if(= (cdr(assoc 8  entd)) "11")
    (command"change"el1"""p""La""1"""))
  (setv)
  (setq *error* old_error)
  (princ)
)

CCarch

___5 月 末(110901107)于2013-09-21 21-53-23：
研究下吧，。

CCarch

___5 月 末(110901107)于2013-09-21 21-53-30：
感觉有些不对

CCarch

34、Pan(471968306)于2013-09-21 21-53-59：
发个本文吧

CCarch

34、Pan(471968306)于2013-09-21 21-54-21：
这个有点刷屏的感觉

CCarch

___5 月 末(110901107)于2013-09-21 21-54-52：
上传中

CCarch

___5 月 末(110901107)于2013-09-21 21-54-53：
帮我看下