将任意line转三维并平移到WCS原点进行拉伸

二哈哈和二哈

最近想实现以下功能，将曲线（如图所示lwpolyline或者polyline），当前的（x,y），转换为（xx,x,y）其中xx就是需要拉伸的方向，5根曲线，从上到下依次拉伸到（xx=-5000 15000 25000 36000 56000）.不知道应该怎么写这个程序，还望各位不吝赐教。最终的效果是三维线型原点是WCS中的原点，而非UCS的原点。谢谢

newer

没太看明白你说的。

二哈哈和二哈

newer 发表于 2016-9-1 00:37
没太看明白你说的。

嗯，可能表述不清楚吧。当前视图上曲线的点坐标（x,y）想提出出来，然后把这个点的坐标变成三维的，原来的（X,y）是现在的横坐标和垂向坐标了。而纵向坐标是用户输入的或者读取某列数组（xx=-5000 15000 25000 36000 56000）。不知道怎么实现啊，现在lwpolyline只有二维信息

Lisphk

二哈哈和二哈 发表于 2016-9-1 14:21
嗯，可能表述不清楚吧。当前视图上曲线的点坐标（x,y）想提出出来，然后把这个点的坐标变成三维的，原来 ...

你的意思是XY不变，就添加一个Z坐标吗？ 所有的顶点都增加吗？ LWPOLYLINE不行了，应该变成3DPOLYLINE了。

二哈哈和二哈

Lisphk 发表于 2016-9-1 14:28
你的意思是XY不变，就添加一个Z坐标吗？ 所有的顶点都增加吗？ LWPOLYLINE不行了，应该变成3DPOLYLINE了 ...

是的，每根曲线的Z坐标一样，分别为（z=-5000 15000 25000 36000 56000）。然后把这些变换以后的曲线移动到WCS原点坐标系统并呈现出来

Lisphk

二哈哈和二哈 发表于 2016-9-1 14:32
是的，每根曲线的Z坐标一样，分别为（z=-5000 15000 25000 36000 56000）。然后把这些变换以后的曲线移动 ...

移动到WCS？ 现在的曲线不就是在WCS吗？ 你意思是曲线的一个端点的坐标变成(0,0,z) ?

二哈哈和二哈

Lisphk 发表于 2016-9-1 14:41
移动到WCS？ 现在的曲线不就是在WCS吗？ 你意思是曲线的一个端点的坐标变成(0,0,z) ?

嗯，对的大概是这样子

newer

二哈哈和二哈 发表于 2016-9-1 14:49
嗯，对的大概是这样子

下面代码在晓东工具箱或者 XDRX API 环境下运行

程序把你选择的多段线Z值加上 '(-5000 15000 25000 36000 56000)，并移动到原点（0 0 Z1)

1. (defun c:tt()
   
2.    (if (setq e (car (xdrx_entsel "\n拾取多段线<退出>" '((0 . "*POLYLINE")))))
   
3.      (progn
   
4.         (xdrx_begin)
   
5.         (xdrx_sysvar_push '("osmode" 0))
   
6.         (xdrx_polyline_convertfrom e)
   
7.         (setq pts (xdrx_getpropertyvalue e "vertices"))
   
8.         (setq a '(-5000 15000 25000 36000 56000))
   
9.         (setq a (XD::List:FillGap a 0.0 (length pts)))
   
10.         (setq pts (mapcar '(lambda(x y)(list (car x)(cadr x) (+ (caddr x) y))) pts a))
    
11.         (apply 'command (cons "3dpoly" pts))
    
12.         (command "")
    
13.         (xdrx_entity_move (entlast) (car pts) (list 0 0 (last (car pts))))
    
14.         (xdrx_entity_setpropertiesfrom (entlast) e)
    
15.         (xdrx_entity_delete e)   
    
16.         (xdrx_sysvar_pop)
    
17.         (xdrx_end)
    
18.      )
    
19.    )
    
20.    (princ)
    
21. )
    
22. 
    

(defun c:tt()<br />    (if (setq e (car (xdrx_entsel "\n拾取多段线<退出>" '((0 . "*POLYLINE")))))<br />      (progn<br />         (xdrx_begin)<br />         (xdrx_sysvar_push '("osmode" 0))<br />         (xdrx_polyline_convertfrom e)<br />         (setq pts (xdrx_getpropertyvalue e "vertices"))<br />         (setq a '(-5000 15000 25000 36000 56000))<br />         (setq a (XD::List:FillGap a 0.0 (length pts)))<br />         (setq pts (mapcar '(lambda(x y)(list (car x)(cadr x) (+ (caddr x) y))) pts a))<br />         (apply 'command (cons "3dpoly" pts))<br />         (command "")<br />         (xdrx_entity_move (entlast) (car pts) (list 0 0 (last (car pts))))<br />         (xdrx_entity_setpropertiesfrom (entlast) e)<br />         (xdrx_entity_delete e)   <br />         (xdrx_sysvar_pop)<br />         (xdrx_end)<br />      )<br />    )<br />    (princ)<br /> )<br /> <br />

二哈哈和二哈

newer 发表于 2016-9-1 15:19
下面代码在晓东工具箱或者 XDRX API 环境下运行

程序把你选择的多段线Z值加上 '(-5000 15000 25000 36 ...

谢谢热心帮助，我看看

二哈哈和二哈

newer 发表于 2016-9-1 15:19
下面代码在晓东工具箱或者 XDRX API 环境下运行

程序把你选择的多段线Z值加上 '(-5000 15000 25000 36 ...

大神，我的线型是lwpolyline的，用你给出的程序，只能移动一小段曲线或者点（如图所示）。不知道后续怎么操作了。额，是版主啊，劳你大驾，谢谢

newer

二哈哈和二哈 发表于 2016-9-1 15:35
大神，我的线型是lwpolyline的，用你给出的程序，只能移动一小段曲线或者点（如图所示）。不知道后续怎么 ...

程序是单选，只要是一根都能做， 你是说你想一次操作多条LWPOLYLINE？

二哈哈和二哈

newer 发表于 2016-9-1 15:46
程序是单选，只要是一根都能做， 你是说你想一次操作多条LWPOLYLINE？

现在我是单选了那条曲线，但是指过去了一个点。我最开头帖子里面附件有cad文件，您可以打开看看。谢谢。另外程序里面的xdrx_前缀的函数在哪儿查啊，不太清楚是什么功能或者他们的开源代码？

newer

二哈哈和二哈 发表于 2016-9-1 15:58
现在我是单选了那条曲线，但是指过去了一个点。我最开头帖子里面附件有cad文件，您可以打开看看。谢谢。 ...

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

里面有手册下载。