[求助]请CAD高手帮忙看一下，这个LISP程序为什么在R14下无法用？

ll_j · 发表于 2002-10-19 16:22:00

不仅仅是改名的问题，实体结构也不同，R12的PL（R14中的3DPL）是实体跟随，所以使用entnext，R14的LWP是单实体。修改起来比较麻烦。

dwgplt · 发表于 2002-10-20 10:09:00

(defun C:ZF (/ !ZF EN EN1 EM XM ANG LK P1 P2 P3 P4 P5 HOLDPT TMP)
  (setq       KS (getvar "ltscale")
      LK (* 2 KS)
  )
  (setvar "attdia" 0)
  (setvar "cmdecho" 0)
  (setvar "aperture" 3)
  (setvar "pickbox" 3)
  (while (/= !ZF t)
(princ "\n    ")
(princ "\n    ")
(setq EN (entsel "\n选择闸阀插入点:"))
(initget "Y N")
(setq XM (getkword "\n画法兰盘吗?"))
(if       (or (= XM "Y") (= XM "y"))
   (setq LK (* 2.5 KS))
   (setq LK (* 2 KS))
)
(if       EN                               ;if1
   (progn
      (setq EM (entget (car EN)))       ;progn1
;;增加一段把LWPOLYLINE转POLYLINE程序
      ;;-----------------------------------------------------------------------
      (if (= (cdr (assoc 0 EM)) "LWPOLYLINE")
      (progn
         (setq HOLDPT (getvar &quotLINETYPE"))
         (setvar &quotLINETYPE" 0)
         (command "_.EXPLODE" (car EN))
         (setq TMP (ssget &quot"))
         (command "_.PEDIT" (ssname TMP 0) "" "J" TMP "" "")
         (setq EN (nentselp (cadr EN)))
         (setvar &quotLINETYPE" HOLDPT)
      )
      )
      ;;-----------------------------------------------------------------------
      (if (= (cdr (assoc 0 EM)) &quotOLYLINE") ;if2
      (progn                      ;progn2
         (setq P2 (cdr (assoc 10 (entget (setq EN1 (entnext (car EN))))))
               P3 (cdr (assoc 10 (entget (entnext EN1))))
         )
         (if       (>= (distance P2 P3) (* 4 KS)) ;if3
            (progn                      ;progn3
            (setq ANG (angle P2 P3)
                  P1  (osnap (cadr EN) "NEAREST")
                  P4  (polar P1 ANG LK)
                  P5  (polar P1 (+ ANG pi) LK)
                  ANG (* ANG (/ 180 pi))
            )
            (command "break" P1 "f" P4 P5)
            (if (= LK (* 2.5 KS))
               (cond
                  ((and (> ANG 22.5) ( ANG 202.5) ( ANG 22.5) ( ANG 202.5) (< ANG 247.5))
               (command "insert" "c:/dwg/fm02" P1 KS "" "" "")
               )
               (t (command "insert" "c:/dwg/fm01" P1 KS "" ANG ""))
            )                      ;cond end
            )                               ;progn3 end
         )                               ;if3 end
      )                               ;progn2 end
      )                               ;if2 end
   )                                     ;progn1 end
   (setq !ZF t)
)                                     ;if1 end
(setvar "aperture" 10)
  )                                     ;while end
  (grtext)
)

[求助]请CAD高手帮忙看一下，这个LISP程序为什么在R14下无法用？

发表回复

精选推荐