求助 用line 画个三角 怎么填充

静静地

用line 画个三角 怎么填充成实心的？？颜色和画得线一样就可以。 谢谢了

Libra_zhangle

用填充命令：HATCH，简化输入h/H，然后弹出窗口，在窗口中找到“图案（P）：”一行后的灰色小矩形（里面省略号），然后点击它，选择“其他预定义”，然后选择第一个为全黑的图形（下面对应着“solid”，大概意思为实心的，英语不好），然后点击“确定”，再回到主窗口里面“边界”，一，可以选择“添加：拾取点”，即点击其前“+”点击要填充图形内部（注意，被填充的图形一定是闭合的）；二，可以选择“添加：选择对象”，即是选择被填充的图形（图形也一定要闭合），须全选！边界完成后，可以看看效果：点击下面“预览”
即可，然后可以按“ESC”返回填充主窗口，可以在角度，比例位置，选择适合自己的角度和比例！
回复的不好，请不好见怪~希望对你有帮助！

静静地

谢谢你了，我不是在CAD的界面里 （我没说清楚把）    是用 lisp编程的时候

ZZXXQQ

法一：
(defun ft (p1 p2 p3)
(command "_.SOLID" P1 P2 P3 "" "")
(princ)
)
法二：
(defun ft (p1 p2 p3)
(entmake
  (list
   '(0 . "SOLID")
   '(67 . 0)
   (cons 8 (getvar "CLAYER"))
   (cons 10 p1)
   (cons 11 p2)
   (cons 12 p3)
   (cons 13 p3)
   '(39 . 0.0)
  )
)
(princ)
)

chpmould

Lisp就调用HATCH

xiabin68

z版真牛，一口气就解决了这么几个问题

静静地

谢谢啦

静静地

(defun c:tc()
   (SETVAR "osmode"0)
   (setvar "blipmode" 0)
   
(GRAPHSCR)                        
(SETQ OCE(GETVAR"CMDECHO"))         
(SETVAR "CMDECHO" 0)

   (setq a(getpoint "\n 第1点"))
   (setq b(getpoint "\n 第2点"))
   (setq c(getpoint "\n 第3点"))


(command "line" a b c  "c")
  (defun ft(a b c)
  (command "_.SOLID" a b c "" "")
)
(princ)
  )

画出来还是空心的 求指导