有任何常规转换程序吗
大家好,如果任何人有将revcloud转换为多段线的例程,请发送给我。。。。。。。链接:D Revclouds是轻型多段线。这有什么不对?
如果你想从revcloud中删除曲线,那完全是另一回事。然后,只需选择要修复的云线批注,单击鼠标右键,然后转到“多段线>Decurve”。 谢谢你的评论。。。。。。。。。。。。。
用于修改凸出、反转或取消旋转云的工具
如果凸出值=0.000,即:展平
;http://www.cadtutor.net/forum/showthread.php?87920-是否有任何将Revcloud转换为多段线的例程(setq*yesno*“No”)(defun c:modcd(/e e1 i bu);;HANHPCHUC 2014年7月30日(if(和(setq e(car(entsel“\n点击Revcloud…)))(setq l(entget e))(setq e1(vlax ename->vla object e))(=(vla get objectname e1)“AcDbPolyline”)(setq bu('((x)(/(apply'+x)(length x))(mapcar“cdr(vl remove if not'((x)(=(car x)42))l));_setq结束(setq i-1 bu(UREAL 0“”“\n公布值..”bu);
页:
[1]