社区 › AutoLISP/Visual LISP 编程技术 › 求助 用line 画个三角 怎么填充

静静地 发表于 2012-12-17 18:49:56

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

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

Libra_zhangle 发表于 2012-12-17 20:00:20

本帖最后由 Libra_zhangle 于 2012-12-17 20:00 编辑

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

静静地 发表于 2012-12-17 20:31:25

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

ZZXXQQ 发表于 2012-12-17 22:14:37

本帖最后由 ZZXXQQ 于 2012-12-17 22:20 编辑

法一：
(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 发表于 2012-12-17 22:15:55

Lisp就调用HATCH

xiabin68 发表于 2012-12-17 22:37:28

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

静静地 发表于 2012-12-18 17:07:36

谢谢啦

静静地 发表于 2012-12-18 17:34:48

本帖最后由 静静地 于 2012-12-18 17:35 编辑

(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)
)

画出来还是空心的 求指导

查看完整版本: 求助 用line 画个三角 怎么填充