求助我这个LSP是啥问题，执行后提示内部错误: !scandr.cpp@815: eWasOpenForWrite

evayleung

我这标注断开，当选择标注数量在49个以内的时候，是可以执行的，当多于49个，就会出错，请问大大是什么问题，谢谢！
我用的CAD2014

dyjwyqz5221

(setq pt_lst (xdrx_curve_getinters (list p1 p2) ss))
返回值为一个点的点表，用xdrx_dimension_break函数当然不能将尺寸线给分断了。
取轴线的起点、终点试试，就没问题了

evayleung

dyjwyqz5221 发表于 2020-8-17 09:52
(setq pt_lst (xdrx_curve_getinters (list p1 p2) ss))
返回值为一个点的点表，用xdrx_dimension_break函 ...

我遇到的问题是，只是选择数量多的时候会出错，选择数量少是没问题的。
xdrx_dimension_break这个函数是支持点表的

dyjwyqz5221

(defun C:BZDK (/ ss)
  (xdrx_begin)
        (xdrx_sysvar_push '("CMDECHO" 0)'("osmode" 0))
        (setq ss (xdrx_ssget '((0 . "DIMENSION"))))
        (mapcar
                '(lambda (x / e p1 p2 pt_lst ss)
                        (setq p1 (xdrx_getpropertyvalue x "XLine1Point"))
                             (setq p2 (xdrx_getpropertyvalue x "XLine2Point"))                 
                        (Setq ss (ssget "F" (list p1 p2) '((8 . "DOTE,AXIS"))))
                        (setq e (car (xdrx-pickset->ents ss)))
                        (SETQ pt_lst (xdrx-getpropertyvalue e "Vertices"))
                        (xdrx_dimension_break x pt_lst)
                )
                (xdrx_pickset->ents ss)
        )
        (xdrx_sysvar_pop)
        (xdrx_end)
)

dyjwyqz5221

简单点的
(defun C:BZDK (/ ss)
  (xdrx_begin)
        (xdrx_sysvar_push '("CMDECHO" 0)'("osmode" 0))
        (setq ss (xdrx_ssget '((0 . "DIMENSION"))))
        (mapcar
                '(lambda (x / e pt_lst ss)                 
                        (Setq ss (ssget "cp" (xdrx-entity-box x) '((8 . "DOTE,AXIS"))))
                        (setq e (car (xdrx-pickset->ents ss)))
                        (SETQ pt_lst (xdrx-getpropertyvalue e "Vertices"))
                        (xdrx_dimension_break x pt_lst)
                )
                (xdrx_pickset->ents ss)
        )
        (xdrx_sysvar_pop)
        (xdrx_end)
        (princ)
)

dyjwyqz5221

再给你个中间不用选择的，
(defun C:tt (/ ss lst1 lst2)
          (xdrx-begin)
        (xdrx-sysvar-push '("CMDECHO" 0)'("osmode" 0))
        (setq ss (xdrx-ssget
                                (list
                                        '(-4 . "<or")
                                                '(0 . "DIMENSION")
                                                '(8 . "DOTE,AXIS")
                                        '(-4 . "or>")
                                )
                )
        )
        (mapcar
                '(lambda(x)
                        (cond
                                ((xdrx-object-isa x "AcDbLine")
                                        (setq lst2 (cons x lst2))
                                )
                                (t
                                        (setq lst1 (cons x lst1))
                                )
                        )
                )
                (xdrx-pickset->ents ss)
        );;;mapcar       
        (mapcar
                '(lambda (x / e pts)
                        (setq e (car (xdrx-getnearpt (xdrx-getpropertyvalue x "centroid") lst2))
                                pts (xdrx-getpropertyvalue e "Vertices")
                        );;;;setq
                        (xdrx-dimension-break x pts)
                )
                lst1
        )
        (xdrx-sysvar-pop)
        (xdrx-end)
        (princ)
);;;defun

evayleung

dyjwyqz5221 发表于 2020-8-17 10:47
再给你个中间不用选择的，
(defun C:tt (/ ss lst1 lst2)
          (xdrx-begin)

谢谢你的回答，但还是一样，解决不了我的问题。我遇到的问题不是程序运行不了，而是选择数量多了就会出错，你改写的LSP也一样会出错的。所以我觉得错误可能是出在xdrx_dimension_break这个函数上面。

evayleung

dyjwyqz5221 发表于 2020-8-17 10:47
再给你个中间不用选择的，
(defun C:tt (/ ss lst1 lst2)
          (xdrx-begin)

这个TT的不会出错，刚才楼上的，才会出错。谢谢分享。我先参考一下你这个看看自己的怎么改。再度感谢
！

dyjwyqz5221

evayleung 发表于 2020-8-17 11:38
这个TT的不会出错，刚才楼上的，才会出错。谢谢分享。我先参考一下你这个看看自己的怎么改。再度感谢
！

换成最新版的api试试

dyjwyqz5221

下载最新版的api试试

evayleung

dyjwyqz5221 发表于 2020-8-17 13:57
下载最新版的api试试

已经是最新版的了，最晚才下载的。

dyjwyqz5221

与xdrx-dimension-break函数无关，这几个都用到了这个函数

dyjwyqz5221

坐标系我也看了，世界坐标系，没问题的
你单句测试一下，看看是哪里有问题

dyjwyqz5221

tt中间没用选择集，所以不会出问题。是选择集数量超过了128的限值吧

dyjwyqz5221

tt采用的是dimensition中点求最近axis线的模式，