江湖救急，填充最简单的代码求诊断

fedd

我想要两个填充的图案，角度不一样，差90度，运行不行啊，请大侠指点：
(defun c:T5 ()
(setvar "measurement" 1)     ; 设置公制单位
(setvar "cmdecho" 0)
  (prompt "\n请拾取填充部点：\n")
  (command "bhatch" pause)
(setvar "clayer" "5剖面线层")
(command "bhatch" "p" "ansi31" "2" "0" "")
(princ)
)

(defun c:T4()
(setvar "measurement" 1)     ; 设置公制单位
(setvar "cmdecho" 0)
  (prompt "\n请拾取填充部点：\n")
  (command "bhatch" pause)
(setvar "clayer" "5剖面线层")
(command "bhatch" "p" "ansi31" "2" "" "90")
(princ)
)

ssyfeng

试试行不行：
(defun c:T5 (/ clayer cmdecho measurement pt)
        (setq measurement (getvar "measurement")
                cmdecho (getvar "cmdecho")
                clayer (getvar "clayer")
                pt (getpoint "\n请拾取填充部点：")
        )
        (setvar "measurement" 1)     ; 设置公制单位
        (setvar "cmdecho" 0)
        (setvar "clayer" "5剖面线层")
        (command "bhatch" "p" "ansi31" "2" "0" pt "")
        (setvar "measurement" measurement)
        (setvar "cmdecho" cmdecho)
        (setvar "clayer" clayer)
        (princ)
)
(defun c:T4 (/ clayer cmdecho measurement pt)
        (setq measurement (getvar "measurement")
                cmdecho (getvar "cmdecho")
                clayer (getvar "clayer")
                pt (getpoint "\n请拾取填充部点：")
        )
        (setvar "measurement" 1)     ; 设置公制单位
        (setvar "cmdecho" 0)
        (setvar "clayer" "5剖面线层")
        (command "bhatch" "p" "ansi31" "2" "90" pt "")
        (setvar "measurement" measurement)
        (setvar "cmdecho" cmdecho)
        (setvar "clayer" clayer)
        (princ)
)

fedd

感谢ssyfeng大侠！厉害！代码很好用，太棒了！！！无比美妙的代码

wx302008008

(defun c:T5 ( / pt hp0)
(setvar "measurement" 1)     ; 设置公制单位
(setvar "cmdecho" 0)
(prompt "\n请拾取填充部点：\n")
(setvar "clayer" "5剖面线层")
(setq hp0 (getvar "hpang"))
(setvar "hpang" 0)
(setq pt (getpoint ))
(command "-hatch"  "p" "ANSI31" "1" "" pt "")
(setvar "hpang" hp0)
(princ)
)


(defun c:T4 ( / pt hp0)
(setvar "measurement" 1)     ; 设置公制单位
(setvar "cmdecho" 0)
(prompt "\n请拾取填充部点：\n")
(setvar "clayer" "5剖面线层")
(setq hp0 (getvar "hpang"))
(setvar "hpang" 90)
(setq pt (getpoint ))
(command "-hatch"  "p" "ANSI31" "1" "" pt "")
(setvar "hpang" hp0)
(princ)
)

Wanda

厉害厉害