关于论坛中的块平齐

spp_wall

(defun c:XDTB_ObjAlign (/ box1 e1 e2 mat p1 pd1 pd2 ps1 ps2 vd vs)
  (if (setq e1 (xdrx_entsel "\n拾取平齐的基线<退出>:" '((0 . "LINE,*POLYLINE"))))
    (progn
      (while (setq e2 (car (xdrx_entsel "\r选取要平齐的对象<退出>:")))
        (setq box1 (XD::Entity:BoxAtEcs e2 e2)
              ps1 (car box1)
              ps2 (cadr box1)
              vs (xdrx_vector_normalize (mapcar
                                          '-
                                          ps2
                                          ps1
                                        )
                 )
              p1 (cadr e1)
              e1 (car e1)
              pd1 (xdrx_curve_getClosestPoint e1 p1)
              vd (xdrx_curve_getFirstDeriv e1 p1)
              vd (if (xdrx_vector_IsCodirectional vs vd)
                   vd
                   (xdrx_vector_negate vd)
                 )
              pd2 (mapcar
                    '+
                    p1
                    vd
                  )
              mat (XD::Matrix:Align ps1 ps1 pd1 ps2 pd2)
        )
        (xdrx_entity_transform e2 mat)
      )
    )
  )
  (princ)
)

是不是能修改下 能对下面这个图适用！

ysq101

'((0 . "LINE,*POLYLINE"))))   为什么 POLYLINE 前要加个*    ？

st788796

ysq101 发表于 2013-10-11 21:57
'((0 . "LINE,*POLYLINE"))))   为什么 POLYLINE 前要加个*    ？

pline分LWPOLYLINE和polyline两种，前者是二维，整条线一定在一个平面，后者可以是三维空间线，可以看看CURVE类，ARC CIRCLE ELLIPSE SPLINE，曲线

楼主把这些标志块补全，约定路边图层，程序好写

newer

ysq101 发表于 2013-10-11 21:57
'((0 . "LINE,*POLYLINE"))))   为什么 POLYLINE 前要加个*    ？

*POLYLINE表示 可以是  LWPOLYLINE 也可以是POLYLINE

newer

对齐是按照块的角度定的。 你的想对齐哪个边，做块的时候做好。这个是通用的程序。

如果你想适合任意，那么就要选2点，单个实体对齐了，那样和ALIGN命令就没什么太大区别了。

你要批量，就一定要有个规则，程序可以调适合你这个，但也只适合你这样需要的角度。其他就不适用了。

spp_wall

st788796 发表于 2013-10-11 22:02
pline分LWPOLYLINE和polyline两种，前者是二维，整条线一定在一个平面，后者可以是三维空间线，可以看 ...

最近才开始准备学lisp   现在还是入门  只会用别人写的东西！

其实我是这样想的   把每个安全设施的块  的 中心定于原点  位置垂直于中心点   这样对齐线的时候就有规律可以遵循

但是如果要自己改  我估计一时半会是做不到！  

有没好心人出手修改下{:soso_e100:}

st788796

spp_wall 发表于 2013-10-12 11:46
最近才开始准备学lisp   现在还是入门  只会用别人写的东西！

其实我是这样想的   把每个安全设施的块 ...

你这不有思路了，先把块定义搞好，中心在哪，块定义一定做成水平，这样你修改块的角度就可以实现与线平齐。

你用在位编辑修改下块定义，然后再试上面的程序

spp_wall

newer 发表于 2013-10-11 22:06
对齐是按照块的角度定的。 你的想对齐哪个边，做块的时候做好。这个是通用的程序。

如果你想适合任意， ...

2008为什么无法加载  XDRX_API.R17.X32.arx

newer

spp_wall 发表于 2013-10-12 15:34
2008为什么无法加载  XDRX_API.R17.X32.arx

你操作系统是什么？ XP OR WIN7？

st788796

newer 发表于 2013-10-12 15:57
你操作系统是什么？ XP OR WIN7？

估计是Windows XP

spp_wall

newer 发表于 2013-10-12 15:57
你操作系统是什么？ XP OR WIN7？

XP的  

家里06的 可以用