寻一个绘制椭圆并填充的lisp，谢谢。

hadessna

我想用一个命令绘制出椭圆后自动填充，椭圆图层为Miscellaneous，填充图层为Hatch，填充图案为honey，自己研究学习了两天，只知道一个command，不知从何入手，厚颜无耻的来求代码，谢谢。

王鹏_pBZlo

1. (defun c:tt( / ent)
   
2.         (if (not (tblobjname "layer" "Miscellaneous"))
   
3.             (command "layer" "n" "Miscellaneous" "")
   
4.         )
   
5.         (if (not (tblobjname "layer" "Hatch"))
   
6.             (command "layer" "n" "Hatch" "")
   
7.         )
   
8.         (while (setq ent (car (entsel "\n选择椭圆:")))
   
9.             (if (= (cdr (assoc 0 (entget ent))) "ELLIPSE")
   
10.               (progn        (command "change" ent "" "P" "la" "Miscellaneous" "")
    
11.                 (command "hatch" "honey" "10" "0" ent "")
    
12.                 (command "change" (entlast) "" "P" "la" "Hatch" "")
    
13.               )
    
14.            )
    
15.         )
    
16.         (princ)
    
17. )
    

(defun c:tt( / ent)<br />         (if (not (tblobjname "layer" "Miscellaneous"))<br />             (command "layer" "n" "Miscellaneous" "")<br />         )<br />         (if (not (tblobjname "layer" "Hatch"))<br />             (command "layer" "n" "Hatch" "")<br />         )<br />         (while (setq ent (car (entsel "\n选择椭圆:")))<br />             (if (= (cdr (assoc 0 (entget ent))) "ELLIPSE")<br />               (progn        (command "change" ent "" "P" "la" "Miscellaneous" "")<br />                 (command "hatch" "honey" "10" "0" ent "")<br />                 (command "change" (entlast) "" "P" "la" "Hatch" "")<br />               )<br />            )<br />         )<br />         (princ)<br /> )<br />

newer

王鹏_pBZlo 发表于 2020-4-21 19:50

王工，请编辑下帖子，看看如何帖代码

王鹏_pBZlo

newer 发表于 2020-4-21 21:12
王工，请编辑下帖子，看看如何帖代码

谢谢版主帮我编辑