[编程交流] 帮助将颜色更改为trueco

(defun c:HHatch (/ hcol pt1 clr)
 (initget 1 "Gray Blue greeN Yellow Red Magenta Orange")
 (if (and (setq hcol (getkword "\nEnter COLOR [Gray/Blue/greeN/Yellow/Red/Magenta/Orange]: "))
          (setq clr (nth (vl-position hcol '("Gray" "Blue" "greeN" "Yellow" "Red" "Magenta" "Orange")) '(252 5 3 2 1 200 30))) 
          (setq pt1 (getpoint "\nSelect INTERNAL point: "))
          )
       
 (command "_-hatch" "Properties" "_Solid" "_COLOR" clr "" pt1 "")
   )
 (princ)
 )

(defun c:HHatch (/ hcol pt1 clr)
 (initget 1 "Gray Blue greeN Yellow Red Magenta Orange")
 (if (and (setq hcol (getkword "\nEnter COLOR [Gray/Blue/greeN/Yellow/Red/Magenta/Orange]: "))
          (setq clr (nth (vl-position hcol '("Gray" "Blue" "greeN" "Yellow" "Red" "Magenta" "Orange")) '(252 5 "10,176,80" 3 2 1 200 30))) 
          (setq pt1 (getpoint "\nSelect INTERNAL point: "))
          )
       (if (< (strlen clr) 4)
       (command "_-hatch" "Properties" "_Solid" "_COLOR" clr "" pt1 "")
(command "_-hatch" "Properties" "_Solid" "_COLOR" "T" clr "" pt1 "")
)
   )
 (princ)
 )

(defun c:HHatch (/ hcol pt1 clr)
 (initget 1 "Gray Blue greeN Yellow Red Magenta Orange")
 (if (and (setq hcol (getkword "\nEnter COLOR [Gray/Blue/greeN/Yellow/Red/Magenta/Orange]: "))
          (setq clr (nth (vl-position hcol '("Gray" "Blue" "greeN" "Yellow" "Red" "Magenta" "Orange")) '("252" "5" "10,176,80" "3" "2" "1" "200" "30"))) 
          (setq pt1 (getpoint "\nSelect INTERNAL point: "))
          )
       (if (< (strlen clr) 4)
       (progn
       (setq clri (atoi clr))
       (command "_-hatch" "Properties" "_Solid" "_COLOR" clri "" pt1 "")
       )
(command "_-hatch" "Properties" "_Solid" "_COLOR" "T" clr "" pt1 "")
)
   )
 (princ)
 )