[LISP程序]：一个非常好的程序，但有时候会出错，高手们请进来看看。

userzhluserzhl

问题解决不了，大家再看看这个：
;★长度型标注断开
(defun zm (et x /) (cdr (assoc x (entget et))))
(defun pzm (nwzm y obj /)
  (entmod(subst(cons y nwzm)(assoc y (entget obj))
         (entget obj)))
)
(defun objnm (ent)
  (vla-get-objectname (vlax-ename->vla-object ent))
)
(defun maxlst (pts / js i x tt jl ds)
  (setq    js 0 i  0)
  (repeat (length pts)
    (setq tt (nth i pts))
    (mapcar '(lambda (x)
           (if (> (setq ds (distance tt x)) js)
         (setq js ds
               jl (list x tt)))
         )pts)
    (setq i (1+ i)))jl
)
(defun c:db (/ ENT ENT1 GETPT JPT PT1 PT2 XL)
  (vl-load-com)(vl-cmdf "undo" "be")
  (if (setq ent (car (entsel "\n选择要断开的标注<退出>:")))
    (progn
      (redraw ent 3)
      (setq getpt (getpoint "\n点取断开点:"))
      (redraw ent 4)
      (vl-cmdf ".copy" ent "" '(0 0) "@")
      (setq ent1 (entlast))
      (setq pt1    (zm ent 13)pt2(zm ent 14))
      (if (= (objnm ent) "AcDbAlignedDimension")
    (vl-cmdf ".xline" pt1 pt2 "")
    (vl-cmdf ".xline" "a" (angtos (zm ent 50) 0 4) pt1 "")
      )
      (setq xl(entlast))
      (pzm(setq jpt (vlax-curve-getClosestPointTo xl getpt))13 ent)
      (pzm jpt 14 ent1)(vl-cmdf ".erase" xl ""))
  )(vl-cmdf "undo" "e")(princ)
)
为何有时候会出错？

kanfuj

好难啊

狂刀

(vla-get-activeselectionset
(vla-get-activedocument
(vlax-get-acad-object)
)
是有ｃａｄ自身的ｂｕｇ的，改为　ssget +ssname 分别提取实体
或用activeselectionset　先清ｂｕｇ，详细可参ｅａｃｈｙ的帖子

userzhluserzhl

3楼，可不可以说得更详细点？

zb_lou

请问楼主这个程序是干什么用的？

userzhluserzhl

楼上，此功能是“双向偏移”，在画图中经常用到。

jjunjie

请问如何用这个程序。

ljpnb

这儿是不是有问题
[php]
(defun mk_list (/ layer_name)
(setq layer_list (list))
(setq layer_name (cdr (assoc 2 (tblnext "layer" t))))
(while layer_name
(if (= layer_name of_lay)
nil                                    ;_nil是不是多余了
(setq layer_list (append
layer_list
(list layer_name)
)
)
)
[/php]

主程序试过没问题，应该上面部分出问题了

LUCAS

最初由 狂刀 发布
[B](vla-get-activeselectionset
(vla-get-activedocument
(vlax-get-acad-object)
)
是有ｃａｄ自身的ｂｕｇ的，改为　ssget +ssname 分别提取实体
或用activeselectionset　先清ｂｕｇ，详细可参ｅａｃｈｙ的帖?.. [/B]

详细可参ｅａｃｈｙ的帖子
http://www.xdcad.net/forum/showthread.php?s=&threadid=454619

userzhluserzhl

9楼，;_nil不是多余的，我试过了，问题不是出在这里。

userzhl

(defun zm (et x /) (cdr (assoc x (entget et))))
(defun pzm (nwzm y obj /)
  (entmod(subst(cons y nwzm)(assoc y (entget obj))
         (entget obj)))
)
(defun objnm (ent)
  (vla-get-objectname (vlax-ename->vla-object ent))
)
(defun maxlst (pts / js i x tt jl ds)
  (setq    js 0 i  0)
  (repeat (length pts)
    (setq tt (nth i pts))
    (mapcar '(lambda (x)
           (if (> (setq ds (distance tt x)) js)
         (setq js ds
               jl (list x tt)))
         )pts)
    (setq i (1+ i)))jl
)
(defun c:db (/ ENT ENT1 GETPT JPT PT1 PT2 XL)
  (vl-load-com)(vl-cmdf "undo" "be")
  (if (setq ent (car (entsel "\n选择要断开的标注<退出>:")))
    (progn
      (redraw ent 3)
      (setq getpt (getpoint "\n点取断开点:"))
      (redraw ent 4)
      (vl-cmdf ".copy" ent "" '(0 0) "@")
      (setq ent1 (entlast))
      (setq pt1    (zm ent 13)pt2(zm ent 14))
      (if (= (objnm ent) "AcDbAlignedDimension")
    (vl-cmdf ".xline" pt1 pt2 "")
    (vl-cmdf ".xline" "a" (angtos (zm ent 50) 0 4) pt1 "")
      )
      (setq xl(entlast))
      (pzm(setq jpt (vlax-curve-getClosestPointTo xl getpt))13 ent)
      (pzm jpt 14 ent1)(vl-cmdf ".erase" xl ""))
  )(vl-cmdf "undo" "e")(princ)
)