[编程申请]：申请调试！！！

flh1314

该命令是通过二个点来确定一个填充范围，采用预定义的填充图案填充。我现在的问题是不能更改填充的角度。请高手调教！

RO 应该为(Angle P1 P2)再减去36度，为一个可变量。简单的来说，我就是要保证 "填充图案的角度" 相对于 "P1 P2这条直线" 是 "0度" 角。

请帮忙，我急用，多谢了。

;;;;;;;;=====================================================
(Defun C:wf (/ P1 P2 P3 P4 Sc Ro el)
  (Setq P1 (getpoint "\n请选择焊缝起点: "))
  (Setq P2 (Getpoint P1 "\n请选择焊缝终点: "))
  (Setq Sc (Getreal "\n输入焊缝比例: "))
  (setq P3 (polar P2 (+ (angle p1 p2) (angtof "90")) 6))
  (setq p4 (polar P1 (+ (angle p1 p2) (angtof "90")) 6))
  ;(setq Ro (- (angtos (angle p1 p2)) 36))  该行未成功，请帮忙调试该行，RO要为一个整数。
(command "pline" p1 p2 p3 p4 "c")
  (setq el (entlast))
  (command "-bhatch" "p" "ANSI31" Sc Ro "S" el "" "")
  (PRINC)