测测你们的包围盒函数代码...

userzhl

上面的程序对含有SPLINE的选集或图块，以及对裁剪过的图块，都不能正确求出。

XDSoft

userzhl 发表于 2013-4-28 14:44

                               
登录/注册后可看大图

上面的程序对含有SPLINE的选集或图块，以及对裁剪过的图块，都不能正确求出。

SPLINE那个算正常结果。下面的裁剪块的，你贴个DWG文件到论坛吧。

userzhl

测试文件见附件。

userzhl

[pcode=lisp,true]
;; Based on code by John Uhden 4/16/2005.
;; Argument: a block reference ename or vla-object.
;; Returns: the xclip boundary WCS point list if the block is clipped,
;; otherwise nil.
(defun getclipboundary (obj / xdict filter spatial elst ptlst)
  (if (= (type obj) 'ename)
    (setq obj (vlax-ename->vla-object obj))
  )
  (setq elst (vl-catch-all-apply '(lambda ()
                                    (setq xdict
                                          (vla-getextensiondictionary obj)
                                    )
                                    (setq filter (vla-getobject xdict
                                                                "ACAD_FILTER"
                                                 )
                                    )
                                    (setq spatial (vla-getobject filter "SPATIAL"))
                                    (entget (vlax-vla-object->ename spatial))
                                  )
             )
  )                                       ; (princ elst)
                                       ; (princ "n")
  (if (not (vl-catch-all-error-p elst))
    (foreach x elst
      (if (eq 10 (car x))
        (setq ptlst (cons (cdr x) ptlst))
      )
    )
  )
  ptlst
)

[/pcode]

XDSoft

userzhl 发表于 2013-4-28 15:25

                               
登录/注册后可看大图

;; Based on code by John Uhden 4/16/2005.
;; Argument: a block reference ename or vla-object.
;; ...

对裁剪块的实体是个有益的补充。你把这个函数发到 程序库函数库 论坛吧。

zhuquanmao

还是院长的代码好用哈

Lispboy

zhuquanmao 发表于 2013-4-28 22:01

                               
登录/注册后可看大图

还是院长的代码好用哈

院长的代码在哪？

zhuquanmao

Lispboy 发表于 2013-4-28 22:29

                               
登录/注册后可看大图

院长的代码在哪？

晕 开的窗口太多 发错帖了

yxh1202

学习了。非常感谢

flytodayddc

贴一大师超强无敌代码--- YAD建筑

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:廓线线1.lsp 
下载次数:37  文件大小:5.61 KB 
下载权限: 不限 以上  [免费赚D豆]

wowan1314

Highflybird 发表于 2013-4-28 13:14
下面是我的代码：
其实在UCS下最主要的是如何得到ucs的变换矩阵。
当然，对spline是有些问题的。不过如果 ...

2. ;;; wcs到ucs矩阵，也可称UCS的变换矩阵                               ;;
   
3. 031.
   
4. ;;;-----------------------------------------------------------;;
   
5. 032.
   
6. (defun MAT:w2u () (MAT:Trans 0 1))
   

;;; wcs到ucs矩阵，也可称UCS的变换矩阵                               ;;<br /> 031.<br /> ;;;-----------------------------------------------------------;;<br /> 032.<br /> (defun MAT:w2u () (MAT:Trans 0 1))<br />

你的lisp轮矩阵中，如上代码。。  跟你现在贴的代码中的说法不同啊？？  是不是写反了？？

1. matrix (vlax-tmatrix (MAT:Trans 1 0))                 ;UCS的变换矩阵
   

复制代码

我用点的矩阵转换测试，， 也是与trans函数的写法相反。。。  好像

newer

wowan1314 发表于 2013-8-4 00:14
你的lisp轮矩阵中，如上代码。。  跟你现在贴的代码中的说法不同啊？？  是不是写反了？？我用点的矩阵转换 ...

你可以用XDRX_API 的矩阵函数做测试

xdrx_matrix_ucs2wcs
xdrx_matrix_wcs2ucs

st788796

flytodayddc 发表于 2013-5-25 20:54
贴一大师超强无敌代码--- YAD建筑

你试试在一堆线中取一部分线看能不能生成