（完成）[编程申请]：如何将ucs定义与指定的带宽度的多义线吻合

nmsssb · 发表于 2002-9-20 23:03:05

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

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

×

如何将ucs定义与指定的带宽度的多义线吻合？这在用多义线建模的时候很有用。我收集了一个可以在r14下实现该功能的lsp,为什么在2002下不能用？

XDSoft · 发表于 2002-9-20 23:12:32

你用命令：

UCS
OB

设置，不能满足要求吗？

对多义线，原点设置到多义线的起点。

nmsssb · 发表于 2002-9-20 23:34:59

不能啊。“ob"之后还是平行于wcs的，ucs的z轴方向没变化，而我贴的ucsline在r14中是好用的。

XDSoft · 发表于 2002-9-20 23:39:15

最初由 nmsssb 发布
[B]不能啊。“ob"之后还是平行于wcs的，ucs的z轴方向没变化，而我贴的ucsline在r14中是好用的。 [/B]

X,Y轴是随着多义线的角度转的，Z轴符合右手螺旋垂直XY平面。

原点在多义线的起点，X轴方向是第一、二点连线的方向，Y垂直于X轴。

nmsssb · 发表于 2002-9-20 23:55:31

如图是UCS,NEW,OB的效果，我的编程申请是能使图中UCS的X轴不变，图中Z轴变成Y轴，并且通过点击多义线一次便可实现从其他任何UCS变过来。

XDSoft · 发表于 2002-9-21 01:11:54

最初由 nmsssb 发布
[B]如图是UCS,NEW,OB的效果，我的编程申请是能使图中UCS的X轴不变，图中Z轴变成Y轴，并且通过点击多义线一次便可实现从其他任何UCS变过来。 [/B]

交互过程如下：

[FONT=courier new]
命令: ucs
当前 UCS 名称: *没有名称*
输入选项
[新建(N)/移动(M)/正交(G)/上一个(P)/恢复(R)/保存(S)/删除(D)/应用(A)/?/世界(W)]
<世界>: ob
选择对齐 UCS 的对象:
[/FONT]

复制代码

上面执行后，原点到POLYLINE的起点，下面交互旋转Z轴：

[FONT=courier new]
命令:
UCS
当前 UCS 名称: *没有名称*
输入选项
[新建(N)/移动(M)/正交(G)/上一个(P)/恢复(R)/保存(S)/删除(D)/应用(A)/?/世界(W)]
<世界>: n
指定新 UCS 的原点或 [Z 轴(ZA)/三点(3)/对象(OB)/面(F)/视图(V)/X/Y/Z] <0,0,0>: za
指定新原点 <0,0,0>:
在正 Z 轴范围上指定点 <0,0,1>: 0,-1,0
[/FONT]

复制代码

几个概念：X,Y,Z轴代表的向量，WCS下分别是：(0 0 1)、(0 1 0)、(0 0 1).

上面提示Z轴方向的时候，给0,-1,0，表示新Z轴在现在的Y轴的负方向。

得到下面图：

登录/注册后可看大图

XDSoft · 发表于 2002-9-21 01:16:03

上面交互过程写成LISP如下（请在晓东工具箱环境下使用）：

[FONT=courier new]
(defun c:UCS_Z(/ e)
(if (setq e (car (xdrx_entsel "\n请选取一个POLYLINE<退出>:" '((0 . "*polyline")))))
(progn
(command "._ucs" "ob" e)
(command "._ucs" "n" "za" "" '(0 -1 0))
)
)
(pirnc)
)
[/FONT]

aeo · 发表于 2002-9-24 20:46:43

其实还是要解决一个问题,
我前面问过的Polyline的问题,点不管哪一小段,怎么得到这一小段的起点和终点
这样就可以把ucs转到这一小段上了,并沿这pl线的厚度方向设Z
晓东帮忙写一个吧,很有用的

XDSoft · 发表于 2002-9-24 20:57:27

最初由 aeo 发布
[B]其实还是要解决一个问题,
我前面问过的Polyline的问题,点不管哪一小段,怎么得到这一小段的起点和终点
这样就可以把ucs转到这一小段上了,并沿这pl线的厚度方向设Z
晓东帮忙写一个吧,很有用的 [/B]

我贴过很多次的XDRX_API关于POLYLINE的处理函数，所有的ARX方法都提供接口给LISP了，组合下，有条件的朋友完全可以自己得到具体的段。

这个问题记下了。

XDSoft · 发表于 2002-9-24 22:16:01

最初由 aeo 发布
[B]其实还是要解决一个问题,
我前面问过的Polyline的问题,点不管哪一小段,怎么得到这一小段的起点和终点
这样就可以把ucs转到这一小段上了,并沿这pl线的厚度方向设Z
晓东帮忙写一个吧,很有用的 [/B]

给你写了个通用函数，去体会下XDRX_API处理POLYLINE的用法：

[FONT=courier new]
;|
用法：($XDLSP_PolyLine_getSegAt <多义线实体名> <测试点>)
获得一个*POLYLINE线上指定一点处的“段”的信息。
对于直线段返回：(顶点索引 "kLine" 起点终点)
对于弧线段返回：(顶点索引 "kArc" 圆心半径起始角终止角)
所有返回点在UCS下。
|;
(defun $XDLSP_PolyLine_getSegAt (e pt / cNa tf i nNums eTyl eSegData el tf1
tf2
)
(setq cNa (car (xdrx_Object_ClassName e)))
(if (wcmatch cNa "*POLYLINE")
(progn
(setq tf t)
(if (setq tf (= cNa "POLYLINE"))
(setq tf (xdrx_polyline_ConvertFrom e)
tf2 tf
)
(setq tf t)
)
(if tf
(progn
(setq nNums (xdrx_polyline_numVerts e)
i -1
)
(setq tf1 t)
(while (and
tf1
(< i nNums)
)
(if (xdrx_polyline_onSegAt e (setq i (1+ i))
pt
)
(progn
(setq eTyl (xdrx_polyline_segtype e i)
eSegData (cond
((= "kLine" eTyl)
(xdrx_polyline_getLineSegAt e i)
)
((= "kArc")
(xdrx_polyline_getArcSegAt e i)
)
)
el (cons i (cons eTyl eSegData))
tf1 nil
)
)
)
)
)
)
(if tf2
(xdrx_polyline->2dpolyline e)
)
)
)
el
)
[/FONT]

[FONT=courier new] 
;| 
   用法：($XDLSP_PolyLine_getSegAt <多义线实体名> <测试点>) 
   获得一个*POLYLINE线上指定一点处的“段”的信息。 
   对于直线段返回：(顶点索引 "kLine" 起点 终点) 
   对于弧线段返回：(顶点索引 "kArc" 圆心 半径 起始角 终止角) 
   所有返回点在UCS下。 
|; 
(defun $XDLSP_PolyLine_getSegAt (e pt / cNa tf i nNums eTyl eSegData el tf1 
                                   tf2 
                                ) 
  (setq cNa (car (xdrx_Object_ClassName e))) 
  (if (wcmatch cNa "*POLYLINE") 
    (progn 
      (setq tf t) 
      (if (setq tf (= cNa "POLYLINE")) 
        (setq tf (xdrx_polyline_ConvertFrom e) 
              tf2 tf 
        ) 
        (setq tf t) 
      ) 
      (if tf 
        (progn 
          (setq nNums (xdrx_polyline_numVerts e) 
                i -1 
          ) 
          (setq tf1 t) 
          (while (and 
                   tf1 
                   (
                 ) 
            (if (xdrx_polyline_onSegAt e (setq i (1+ i)) 
                                       pt 
                ) 
              (progn 
                (setq eTyl (xdrx_polyline_segtype e i) 
                      eSegData (cond 
                                 ((= "kLine" eTyl) 
                                   (xdrx_polyline_getLineSegAt e i) 
                                 ) 
                                 ((= "kArc") 
                                   (xdrx_polyline_getArcSegAt e i) 
                                 ) 
                               ) 
                      el (cons i (cons eTyl eSegData)) 
                      tf1 nil 
                ) 
              ) 
            ) 
          ) 
        ) 
      ) 
      (if tf2 
        (xdrx_polyline->2dpolyline e) 
      ) 
    ) 
  ) 
  el 
) 
[/FONT]

aeo · 发表于 2002-9-26 18:04:32

搞晕了
一直以为entsel获得的点,不一定在线上的.
苯呀,没办法

XDSoft · 发表于 2002-9-26 18:12:32

最初由 aeo 发布
[B]搞晕了
一直以为entsel获得的点,不一定在线上的.
苯呀,没办法 [/B]

ENTSEL获得的点确实不一定在线上，XDRX_ENTSEL做了处理，可以保证在线上和过滤实体。

XDSoft · 发表于 2002-9-26 18:16:58

;| 命令：XDTB_SetPolyLineUcs
功能：根据在POLYLINE上拾取的点设置UCS，UCS原点为包括该点的那个段的起点，X轴为这个直线段的方向，Y轴是POLYLINE的厚度方向。
|;

[FONT=courier new]
;|
用法：($XDLSP_PolyLine_getSegAt <多义线实体名> <测试点>)
获得一个*POLYLINE线上指定一点处的“段”的信息。
对于直线段返回：(顶点索引 "kLine" 起点终点)
对于弧线段返回：(顶点索引 "kArc" 圆心半径起始角终止角)
所有返回点在UCS下。
|;
(defun $XDLSP_PolyLine_getSegAt (e pt / cNa tf i nNums eTyl eSegData el tf1
tf2
)
(setq cNa (car (xdrx_Object_ClassName e)))
(if (wcmatch cNa "*POLYLINE")
(progn
(setq tf t)
(if (setq tf (= cNa "POLYLINE"))
(setq tf (xdrx_polyline_ConvertFrom e)
tf2 tf
)
(setq tf t)
)
(if tf
(progn
(setq nNums (xdrx_polyline_numVerts e)
i -1
)
(setq tf1 t)
(while (and
tf1
(< i nNums)
)
(if (xdrx_polyline_onSegAt e (setq i (1+ i))
pt
)
(progn
(setq eTyl (xdrx_polyline_segtype e i)
eSegData (cond
((= "kLine" eTyl)
(xdrx_polyline_getLineSegAt e i)
)
((= "kArc")
(xdrx_polyline_getArcSegAt e i)
)
)
el (cons i (cons eTyl eSegData))
tf1 nil
)
)
)
)
)
)
(if tf2
(xdrx_polyline->2dpolyline e)
)
)
)
el
)
;| 命令：XDTB_SetPolyLineUcs
功能：根据在POLYLINE上拾取的点设置UCS，UCS原点为包括
该点的那个段的起点，X轴为这个直线段的方向，Y轴是POLYLINE的厚度方向。
|;
(defun c:XDTB_SetPolyLineUcs (/ e normal vX vY pY)
(if (setq e (xdrx_entsel "\n请点取一个对齐POLYLINE厚度方向的POLYLINE实体<退出>:"
'((0 . "*POLYLINE"))
)
)
(progn
(setq normal (xdrx_getentdxf 210)
el ($XDLSP_PolyLine_getSegAt (car e) (trans (cadr e) 1 0))
)
(if el
(progn
(setq Origin (trans (nth 2 el) 1 0))
(if (= "kLine" (cadr el))
(progn
(setq pX (trans (nth 3 el) 1 0)
vX (mapcar
'-
pX
Origin
)
vY (xdrx_vector_PerpVector vX)
pY (mapcar
'+
Origin
normal
)
)
)
)
(command "._UCS" "w")
(command "._UCS" "3" Origin pX pY)
)
)
)
)
(princ)
)
[/font]

[FONT=courier new] 
;| 
   用法：($XDLSP_PolyLine_getSegAt <多义线实体名> <测试点>) 
   获得一个*POLYLINE线上指定一点处的“段”的信息。 
   对于直线段返回：(顶点索引 "kLine" 起点 终点) 
   对于弧线段返回：(顶点索引 "kArc" 圆心 半径 起始角 终止角) 
   所有返回点在UCS下。 
|; 
(defun $XDLSP_PolyLine_getSegAt (e pt / cNa tf i nNums eTyl eSegData el tf1 
                                   tf2 
                                ) 
  (setq cNa (car (xdrx_Object_ClassName e))) 
  (if (wcmatch cNa "*POLYLINE") 
    (progn 
      (setq tf t) 
      (if (setq tf (= cNa "POLYLINE")) 
        (setq tf (xdrx_polyline_ConvertFrom e) 
              tf2 tf 
        ) 
        (setq tf t) 
      ) 
      (if tf 
        (progn 
          (setq nNums (xdrx_polyline_numVerts e) 
                i -1 
          ) 
          (setq tf1 t) 
          (while (and 
                   tf1 
                   (
                 ) 
            (if (xdrx_polyline_onSegAt e (setq i (1+ i)) 
                                       pt 
                ) 
              (progn 
                (setq eTyl (xdrx_polyline_segtype e i) 
                      eSegData (cond 
                                 ((= "kLine" eTyl) 
                                   (xdrx_polyline_getLineSegAt e i) 
                                 ) 
                                 ((= "kArc") 
                                   (xdrx_polyline_getArcSegAt e i) 
                                 ) 
                               ) 
                      el (cons i (cons eTyl eSegData)) 
                      tf1 nil 
                ) 
              ) 
            ) 
          ) 
        ) 
      ) 
      (if tf2 
        (xdrx_polyline->2dpolyline e) 
      ) 
    ) 
  ) 
  el 
) 
 
;| 命令：XDTB_SetPolyLineUcs 
功能：根据在POLYLINE上拾取的点设置UCS，UCS原点为包括 
该点的那个段的起点，X轴为这个直线段的方向，Y轴是POLYLINE的厚度方向。 
|; 
 
(defun c:XDTB_SetPolyLineUcs (/ e normal vX vY pY) 
  (if (setq e (xdrx_entsel "\n请点取一个对齐POLYLINE厚度方向的POLYLINE实体<退出>:" 
                           '((0 . "*POLYLINE")) 
              ) 
      ) 
    (progn 
      (setq normal (xdrx_getentdxf 210) 
            el ($XDLSP_PolyLine_getSegAt (car e) (trans (cadr e) 1 0)) 
      ) 
      (if el 
        (progn 
          (setq Origin (trans (nth 2 el) 1 0)) 
          (if (= "kLine" (cadr el)) 
            (progn 
              (setq pX (trans (nth 3 el) 1 0) 
                    vX (mapcar 
                         '- 
                         pX 
                         Origin 
                       ) 
                    vY (xdrx_vector_PerpVector vX) 
                    pY (mapcar 
                         '+ 
                         Origin 
                         normal 
                       ) 
              ) 
            ) 
          ) 
          (command "._UCS" "w") 
          (command "._UCS" "3" Origin pX pY) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
) 
[/font]

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

（完成）[编程申请]：如何将ucs定义与指定的带宽度的多义线吻合

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

相关帖子

设置POLYLINE段UCS的程序写好了。