无法准确地获得投影点并将其发送到Autocad的命令

lethuongtri · 发表于 2022-1-15 02:36:05

大家早上好，我是个新手，我有个问题。我试图通过找到投影点并按该点移动实体，为X/Y方向创建一个简单的对齐命令。源代码如下。请查看
无效
cmdAXY（）
{
ads_name ss
TCHAR千瓦[10]
int-rc
rc=acedsget（NULL、NULL、NULL和ss）
如果（rc！=RTNORM）返回
acedInitGet（1，_T（“X，Y”）
acedGetKword（_T（“\n符号方向：
”），千瓦）
//Khai báo，&#273ịnh-ngh；g；c 0 UCS
点pt0、pt1、pt2、pt1T
pt0[0]=0
pt0[1]=0
pt0[2]=0
/&#272ịnh-ngh；pt1
acedInitGet（1，NULL）
rc=acedGetPoint（pt0，_T（“\n选择第一个点：”），pt1）
如果（rc！=RTNORM）返回
/&#272ịnh-ngh；a pt2:
acedInitGet（1，NULL）
rc=acedGetPoint（pt1，_T（“\n选择第二个点：”），pt2）
如果（rc！=RTNORM）返回
struct resbuf*cmdlist
如果（_tcscmp（Kw，_T（“X”）＝＝0）
{
pt1T[0]=pt1[0]
pt1T[1]=pt2[1]
pt1T[2]=pt1[2]
}
其他
{
pt1T[0]=pt2[0]
pt1T[1]=pt1[1]
pt1T[2]=pt1[2]
}
cmdlist=acutBuildList（RTSTR，_T（“.move”）、RTSTR、_T（“P”）、RTSTR、_ T（“）和RTPOINT
，pt1，RTPOINT，pt1T，0）
＜div＞acedCmdS（cmdlist）
＜div＞acutRelRb（cmdlist）
acedSSFree（ss）
}

skflqqdteni.PNG

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

lethuongtri · 发表于 2022-1-15 19:11:23

RT3DPOINT而不是RTPOINT？

lethuongtri · 发表于 2022-1-16 02:26:19

谢谢你的回复。我也试过了，但不起作用。

lethuongtri · 发表于 2022-1-16 03:46:09

可能尝试不使用move命令＜br＞静态无效ArxBrxTest_doit（）＜/div＞
{
ads_name ss{0L，0L}
TCHAR-Kw[10]＝{0}
int-rc
rc=acedsget（NULL、NULL、NULL和ss）
如果（rc！=RTNORM）返回
acedInitGet（1，_T（“X，Y”）
acedGetKword（_T（“\n符号方向：
”），千瓦）
＜div＞AcGePoint3d pt1、pt2、pt1T
acedInitGet（1，NULL）
rc=acedGetPoint（NULL，_T（“\n选择第一个点：”），asDblArray（pt1））
如果（rc！=RTNORM）返回
acedInitGet（1，NULL）
rc=acedGetPoint（asDblArray（pt1），_T（“\n选择第二个点：”），asdblaray（pt2））
如果（rc！=RTNORM）返回
AcGePlane
如果（_tcscmp（Kw，_T（“X”）＝＝0）
平面。集合（pt1，AcGeVector3d:：kYAxis）
其他
平面。集合（pt1，AcGeVector3d:：kXAxis）
pt1T=平面接近点（pt2）
＜div＞AcGeMatrix3d xform=ACGEMATTRIX3D:：translation（pt2-pt1T）
ACDBObjectiveDarray ID
＜div＞acedGetCurrentSelectionSet（ids）
用于（自动id:ids）
{
if（AcDbEntityPointer-pEnt（id，AcDb：：kForWrite）；被压抑的。openStatus（）＝＝eOk）
pEnt->transformBy（xform）
}
acedSSFree（ss）
}