我让它工作了。我只是将其设置为重置拾取的图案填充。
仍然不知道如何转换这些角度，但这似乎是一个足够好的解决方案。
>；----------------------------------------------------------------------------------------------------；；；；选择图案填充方式：图层、图案名称、图案角度、图案比例、颜色和背景色；；由3dwannab最后修改于17.08.18；；Roy_043的帮助-http://www.cadtutor.net/forum/showthread.php?104909-HATCH-Angle-is-not-getting-selected-until-I-run-the-hatchedit-command&goto=newpost；；需要FNs:；；-KGA_Math_LimitAngleRange；；-KGA_Conv_Pickset_To_ObjectList；；-重置HatchPatangle（defun c:QSHLPASCB nil（c:QSHATCH\u SAME\u Layer\u PatName\u PatScale\u Color&BkgColor））（defun c:QSHATCH\u SAME\u Layer\u PatName\u PatScale\u Color&BkgColor（/bkgcol ent\u 1 laycolor laycolor laycolor nss patangle PatName PatScale ss\u 1 ss\u data ss\u temp）（while（not）和（setq ent\u 1（car（entsel“\n选择Hatch以获得与下列内容相同的图案填充实体：\n\n-图层\n-图案名称\n-图案角度\n-图案比例\n-颜色\n-背景色\n-----------------------------------------------------------------”）ss\U数据（如果ent\u 1（entget ent\u 1））（=（cdr（assoc 0 ss\u数据））“Hatch”）（sssetfirst nil）（setq ss\u 1（vlax ename->vla object ent\u 1））（setq ss\u temp（ssadd））（progn（ssadd ent_1 ss_temp）（ResetHatchPatAngle ss_temp）（setq bkgcol（vla get backgroundcolor ss_1）bkgcol（vla get ColorIndex（vla get backgroundcolor ss_1））laycolor（vla get color ss_1）laycolor（vla get layer ss_1）PATTNAME（vla get PatternName ss_1）patscale（vla get PatternScale ss_1）patangle（vla get PatternAngle ss_1）ss_1（ssget“X”（vl remove‘nil（list（cons 8 layer）’（0。“HATCH”）（cons 2 patname）（if（/=“SOLID”patname）（cons 41 patscale））（if（/=“SOLID”patname）（cons 52 patangle））（cons 62 laycolor）（cons 410（getvar‘ctab）））nss（ssadd））（重复（setq i（sslength ss_1））（和（setq e）（ssname ss_1（setq i（1-i）））（=bkgcol（vla get colordindex（vla get BackgroundColor（vlax ename->vla object e）））（ssadd e nss））（princ（strcat“\n\t\t
页:
1
[2]