leslie114 发表于 2009-2-9 10:35:00

[求助]请各位帮我解决下vla-cylinder的问题

是这样的，我想画一个圆柱体用vla-cylinder 画出来的圆柱体是永远垂直往上的，我是想画一个和X轴或者Y轴平行的圆柱体不知道怎么画请各位大大们帮我解决这个问题，困惑了很久<br/>

狂刀无痕 发表于 2009-2-9 12:33:00

先生成，再旋转

leslie114 发表于 2009-2-9 13:04:00

难道不能像使用command时候先(command "ucs" "za" pt1 pt2) 然后再用cylinder画吗一定要画好在旋转？<br/>

leslie114 发表于 2009-2-10 16:10:00

难道没有帮忙吗

caiqs 发表于 2009-2-11 08:37:00

<p>;;;程序加了详细的注释,下面的例子是生成一个平行于x轴的圆柱体</p><p>(vl-load-com) ;_加载vl<br/>;;;师兄 QQ 361865648 2009/2<br/>(defun c:test (/ acadapp doc mspace ucss ort xvec yvec newucs mat cyl)<br/>&nbsp; (setq acadapp (vlax-get-acad-object)) ;_acad程序<br/>&nbsp; (setq doc (vla-get-ActiveDocument acadapp)) ;_活动文档<br/>&nbsp; (setq mspace (vla-get-ModelSpace doc)) ;_模型空间<br/>&nbsp; (setq ucss (vla-get-UserCoordinateSystems doc)) ;_用户坐标系统<br/>&nbsp; (setq org (vlax-3d-point '(0 0 0))) ;_坐标中心<br/>&nbsp; (setq xvec (vlax-3d-point '(0 0 1))) ;_x方向<br/>&nbsp; (setq yvec (vlax-3d-point '(0 1 0))) ;_y方向<br/>&nbsp; (setq newucs (vla-add ucss org xvec yvec "Myucs")) ;_新建坐标系<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;(vla-put-ActiveUCS doc newucs)<br/>&nbsp; (setq mat (vla-GetUCSMatrix newucs)) ;_新坐标系变换矩阵<br/>&nbsp; (setq cyl (vla-AddCylinder mspace org 10 15)) ;_生成圆柱体<br/>&nbsp; (vla-TransformBy cyl mat) ;_变换到新坐标系<br/>(princ)(princ);_静默退出<br/>)</p>

leslie114 发表于 2009-2-11 09:05:00

非常谢谢楼上的我试试看

leslie114 发表于 2009-2-11 09:35:00

非常谢谢可以平行于X轴了
页: [1]
查看完整版本: [求助]请各位帮我解决下vla-cylinder的问题