实体填充问题！

kingerst

(defun c:h1 ()

(prompt "\n灰色实体填充,指定内部点\n")
(setq pt (getpoint))
(setq oldcolor (getvar "cecolor"))
(command "color" "8")
(command "bhatch" "p" "solid" pt "")
(command "color" oldcolor)
(princ)
)

已知这个程序可以给封闭线填充颜色。可如何(setq color (acad_truecolordlg (cons 62 0))) 使用弹出框用RGB值去填充？ 另外如果是框选对像，该如何修改。 请老师赐教，谢谢！！

kingerst

我算出了所选块的中心点。可CAD提示
选择对象:
点在对象上。nil

如果用(getpoint）取点就可以。这是为什么呀。算的中心点可以用来命令填充吗？请高手指教。

(defun c:QQ( / SS I Devtype ENT1 ENT)  
        (setvar "cmdecho" 0)
        (setq color (acad_truecolordlg (cons 62 0)))
        (setq co (cdr (car color)))
(IF  (SETQ SS (SSGET '((0 . "INSERT") (66 . 1))))
                (PROGN
                   (SETQ I -1)
                   (REPEAT (SSLENGTH SS)
                                (SETQ EN (SSNAME SS (SETQ I (1+ I))))
                                (SETQ ENT (ENTGET EN ) ENT1 ENT)
                                (GetLeftUp EN)
                                (command "bhatch" "p" "solid" Pt "")
                                (command "color" oldcolor)
                        )
                               
                )
                  (princ)
)
)

菡萏

设置当前颜色:

1. (if
   
2.   (setq color (acad_truecolordlg (cons 62 0)))
   
3.    (setvar "CeColor"
   
4.            (cond ((setq c (cdr (assoc 420 color)))
   
5.                   (strcat "RGB:"
   
6.                           (itoa (lsh (lsh (fix c) 8) -24))
   
7.                           ","
   
8.                           (itoa (lsh (lsh (fix c) 16) -24))
   
9.                           ","
   
10.                           (itoa (lsh (lsh (fix c) 24) -24))
    
11.                   )
    
12.                  )
    
13.                  (t (itoa (cdr (assoc 62 color))))
    
14.            )
    
15.    )
    
16. )

(if<br />   (setq color (acad_truecolordlg (cons 62 0)))<br />    (setvar "CeColor"<br />            (cond ((setq c (cdr (assoc 420 color)))<br />                   (strcat "RGB:"<br />                           (itoa (lsh (lsh (fix c) 8) -24))<br />                           ","<br />                           (itoa (lsh (lsh (fix c) 16) -24))<br />                           ","<br />                           (itoa (lsh (lsh (fix c) 24) -24))<br />                   )<br />                  )<br />                  (t (itoa (cdr (assoc 62 color))))<br />            )<br />    )<br /> )

kingerst

多谢高手。现在问题是。我算出来的PT。在 (command "bhatch" "p" "solid" Pt "")
命令里没反应，说 点在对象上 。而用(setq pt (getpoint)) 就可以。算出来的PT和get的PT不同吗？
还是bhatch只接受（getpoint）,不接受算出来的？
命令: !pt
(465.0 205.0 0.0)
命令: (setq pt1(getpoint))
(462.58 212.77 0.0)