XDRX API 函数应用（二）--再谈xdrx_entity_moveStretchPoint应用

Lispboy · 发表于 2013-8-7 15:58:55

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 Lispboy 于 2013-8-7 16:03 编辑

看老大发了一个moveStretchPoint的应用例子，也写一个尺寸线界线的函数应用。

xdrx_entity_moveStretchPoint这个函数确实强大，我们平时在CAD中夹点拖动，或者stretch命令操作的过程，完全可以用这个函数通过编程做到了。
有这个函数，不用在详细的了解组码的操作去修改ACAD实体。完全的符合我们平时的操作的习惯。

先看下图片演示：

上面图演示了我们修改尺寸界线的拉伸点。关于尺寸界线的拉伸点可以用 xdrx_entity_getStretchPoint 获得，大家可以积累下不同实体的拉伸点的编号。

对于尺寸实体，拉伸点0 是界线的第一个点，2是界线的第二个点，3是尺寸基线上的和0同向的点，4是尺寸基线上的和1同向的点，5是文字的夹点。

代码如下，很短的代码，干了很多事情。
夹点编号见下图

QQ截图20130807160223.jpg

(defun c:tt()
(if (and (setq ss (ssget '((0 . "DIM*"))))
(setq pt (getpoint "\n点取尺寸界线平齐目标点<退出>:"))
)
(progn
(setq pt (trans pt 1 0))
(xdrx_setsstodb ss 0) ;遍历选择集
(while (setq e (xdrx_getentdata 0))
(setq pstre (xdrx_entity_getstretchPoint e)
p1 (car pstre) ;拉伸点0
p2 (cadr pstre) ;拉伸点1
coord (XD::Entity:GetEcsCoordSystem e) ;尺寸实体的局部坐标系
plane (apply 'XD::Geom:GetPerpPlane coord) ;垂直于尺寸实体平面的垂平面
plane (cons pt (cdr plane)) ;平面移动到拾取点pt
p_1 (xdrx_point_orthoProject p1 plane) ;拉伸点到垂平面的投影
p_2 (xdrx_point_orthoProject p2 plane)
v1 (mapcar '- p_1 p1) ;拉伸点0要拉伸的位移向量
v2 (mapcar '- p_2 p2) ;拉伸点1要拉伸的位移向量
)
(xdrx_entity_moveStretchPoint e v1 0) ;拉伸0点
(xdrx_entity_moveStretchPoint e v2 1) ;拉伸1点
)
)
)
(princ)
)

(defun c:tt() 
   (if (and (setq ss (ssget '((0 . "DIM*")))) 
            (setq pt (getpoint "\n点取尺寸界线平齐目标点<退出>:")) 
       ) 
      (progn 
         (setq pt (trans pt 1 0)) 
         (xdrx_setsstodb ss 0)                                  ;遍历选择集 
         (while (setq e (xdrx_getentdata 0)) 
            (setq pstre (xdrx_entity_getstretchPoint e) 
                  p1 (car pstre)                                ;拉伸点0 
                  p2 (cadr pstre)                               ;拉伸点1 
                  coord (XD::Entity:GetEcsCoordSystem e)        ;尺寸实体的局部坐标系 
                  plane (apply 'XD::Geom:GetPerpPlane coord)    ;垂直于尺寸实体平面的垂平面 
                  plane (cons pt (cdr plane))                   ;平面移动到拾取点pt 
                  p_1 (xdrx_point_orthoProject p1 plane)        ;拉伸点到垂平面的投影 
                  p_2 (xdrx_point_orthoProject p2 plane) 
                  v1 (mapcar '- p_1 p1)                         ;拉伸点0要拉伸的位移向量 
                  v2 (mapcar '- p_2 p2)                         ;拉伸点1要拉伸的位移向量 
            ) 
            (xdrx_entity_moveStretchPoint e v1 0)               ;拉伸0点 
            (xdrx_entity_moveStretchPoint e v2 1)               ;拉伸1点 
         ) 
       ) 
   ) 
   (princ) 
)

liuyj · 发表于 2013-8-7 16:32:42

郁闷死了，又出现错误，已经加载了最新的API和函数库。
点取尺寸界线平齐目标点<退出>:应用程序错误: 收到不存在的函数代码.

Lispboy · 发表于 2013-8-7 16:48:50

本帖最后由 Lispboy 于 2013-8-7 16:50 编辑

liuyj 发表于 2013-8-7 16:32
郁闷死了，又出现错误，已经加载了最新的API和函数库。
点取尺寸界线平齐目标点:应用程序错误: 收到不存在 ...

你这个好像是你系统的错误函数定义的吧？是不是没发现函数都提示这样？

XD::Geom:GetPerpPlane 这个函数你下载了吗？刚才我刚发布的，函数库里面还没这个函数。

http://bbs.xdcad.net/thread-670022-1-1.html

Lispboy · 发表于 2013-8-7 16:52:08

还有这个函数，

(defun XD::Entity:GetEcsCoordSystem(e)
(setq oldcmd (getvar "cmdecho"))
(command "ucs" "Object" e)
(setq m_w2u (xdrx_matrix_ucs2wcs))
(command "ucs" "p")
(setvar "cmdecho" oldcmd)
(xdrx_matrix_getCoordsystem m_w2u)
)

liuyj · 发表于 2013-8-7 17:14:53

的确如此，加载了这两个函数就没问题了。不过这个提示有点让人弄不明白。

Lispboy · 发表于 2013-8-7 17:34:54

如果把程序里面的夹点修改为2 3，那么我们拉动的就是尺寸线，看下面的演示

米克 · 发表于 2013-8-8 12:42:28

总是出现错误啊

账号		自动登录	找回密码
密码			立即注册

[教学] XDRX API 函数应用（二）--再谈xdrx_entity_moveStretchPoint应用

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评