fedd 发表于 2021-11-25 13:34:47

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

我想要两个填充的图案，角度不一样，差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 发表于 2021-11-25 14:18:38

试试行不行：
(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 发表于 2021-11-25 16:06:40

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

wx302008008 发表于 2021-11-25 16:35:32

(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 发表于 2021-11-27 09:48:15

厉害厉害
页: [1]
查看完整版本: 江湖救急，填充最简单的代码求诊断