找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 8879|回复: 11

[求助] 如何用entmake 创建 hatch 实体?

[复制链接]

已领礼包: 19个

财富等级: 恭喜发财

发表于 2013-5-30 08:57:04 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
刚看到一个朋友讨论HATCH,以前的程序对于HATCH我都是用命令去做,有没有ENTMAKE生成的方法? 我试了几次,都没成。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2013-5-30 12:18:34 | 显示全部楼层
Lisphk 发表于 2013-5-30 12:00
哇,这么长,都是必要的吗? 能给讲讲每个组码的值的含义吗? 谢谢!!!

边界路径数据
每个图案填充对象的边界由包含一条或多条线段的路径(或环)定义。路径线段数据取决于构成路径的图元类型。每条路径线段由它自己的组码集定义。关于此表中使用的缩写和格式方面的信息,请参见“本参考的格式惯例”。 图案填充边界路径数据组码

组码  说明

92  边界路径类型标志(按位编码):
0 = 默认;1 = 外部;2 = 多段线
4 = 导出;8 = 文本框;16 = 最外层

不确定
多段线边界类型数据(仅当边界 = 多段线时)。参见下面的多段线边界数据表

93  该边界路径中的边数(仅当边界不是多段线时)

72  边类型(仅当边界不是多段线时):
1 = 直线;2 = 圆弧;3 = 椭圆弧;4 = 样条曲线

不确定
边类型数据(仅当边界不是多段线时)。参见下面的相应边数据表

97  源边界对象数

330  源边界对象的参照(多个条目)

多段线边界数据组码

组码
说明

72  “有凸度”标志

73  “关闭”标志

93  多段线顶点数

10  顶点位置(在 OCS 中)
DXF:X 值;APP:二维点(多个条目)

20
DXF:顶点位置的 Y 值(在 OCS 中)(多个条目)

42
凸度(可选;默认值 = 0)

直线边数据组码

组码
说明

10
起点(在 OCS 中)
DXF:X 值;APP:二维点

20
DXF:起点的 Y 值(在 OCS 中)

11
端点(在 OCS 中)
DXF:X 值;APP:二维点

21
DXF:端点的 Y 值(在 OCS 中)

弧边数据组码

组码
说明

10
中心点(在 OCS 中)
DXF:X 值;APP:二维点

20
DXF:中心点的 Y 值(在 OCS 中)

40
半径

50
起点角度

51
端点角度

73
“逆时针”标志

椭圆边数据组码

组码
说明

10
中心点(在 OCS 中)
DXF:X 值;APP:二维点

20
DXF:中心点的 Y 值(在 OCS 中)

11
相对于中心点的长轴端点(在 OCS 中)
DXF:X 值;APP:二维点

21
DXF:长轴端点的 Y 值(在 OCS 中)

40
短轴的长度(占长轴长度的比例)

50
起点角度

51
端点角度

73
“逆时针”标志

样条曲线边数据组码

组码
说明

94
阶数

73
有理

74
周期

95
节点数

96
控制点数

40
节点值(多个条目)

10
控制点(在 OCS 中)
DXF:X 值;APP:二维点

20
DXF:控制点的 Y 值(在 OCS 中)

42
权值(可选;默认值 = 1)

图案数据

各图案定义行重复使用以下图案数据代码。关于此表中使用的缩写和格式方面的信息,请参见“本参考的格式惯例”。 填充图案数据组码

组码  说明

53
图案直线角度

43
图案直线基点,X 分量

44
图案直线基点,Y 分量

45
图案直线偏移,X 分量

46
图案直线偏移,Y 分量

79
虚线长度项目数

49
虚线长度(多个条目)





评分

参与人数 1D豆 +5 收起 理由
牢固 + 5 技术引导讨论和指点奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 2 反对 0

使用道具 举报

发表于 2013-5-30 09:56:39 | 显示全部楼层
  1. (entmakex
  2.   '((0 . "HATCH")
  3.     (100 . "AcDbEntity")
  4.     (62 . 1)
  5.     (100 . "AcDbHatch")
  6.     (10 0.0 0.0 0.0)
  7.     (210 0.0 0.0 1.0)
  8.     (2 . "ANSI31")
  9.     (70 . 1)
  10.     (71 . 0)
  11.     (91 . 1)
  12.     (92 . 7)
  13.     (72 . 1)
  14.     (73 . 1)
  15.     (93 . 2)
  16.     (10 32.98375559395936 269.1906470755084 0.0)
  17.     (42 . 0.414173250333224)
  18.     (10 34.15067627742974 270.3574451628437 0.0)
  19.     (42 . 2.414053538695394)
  20.     (97 . 0)
  21.     (75 . 1)
  22.     (76 . 1)
  23.     (47 . 0.021113020398065)
  24.     (98 . 1)
  25.     (10 32.80274827151152 270.0366050964267 0.0)
  26.     (450 . 0)
  27.     (451 . 0)
  28.     (460 . 0.0)
  29.     (461 . 0.0)
  30.     (452 . 0)
  31.     (462 . 0.0)
  32.     (453 . 0)
  33.     (470 . "")
  34.    )
  35. )
复制代码
试试这样

评分

参与人数 2D豆 +8 收起 理由
Lisphk + 5 热心帮忙奖!
炫翔 + 3 技术引导讨论和指点奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

 楼主| 发表于 2013-5-30 12:00:11 | 显示全部楼层
哇,这么长,都是必要的吗? 能给讲讲每个组码的值的含义吗? 谢谢!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-5-30 12:39:48 来自手机 | 显示全部楼层
学习vla方法吧,比这个好理解来自: Android客户端
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-5-30 13:15:25 | 显示全部楼层
Free-Lancer 发表于 2013-5-30 12:39
学习vla方法吧,比这个好理解

速度呢! 听说entmake的速度很不错
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-5-30 13:22:22 来自手机 | 显示全部楼层
除了速度,还要方便来自: Android客户端
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

 楼主| 发表于 2013-5-30 13:32:16 | 显示全部楼层
Love-Lisp 发表于 2013-5-30 12:18
边界路径数据
每个图案填充对象的边界由包含一条或多条线段的路径(或环)定义。路径线段数据取决于构成 ...

谢谢,哪些是必须的?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-5-30 13:33:25 | 显示全部楼层
Free-Lancer 发表于 2013-5-30 13:22
除了速度,还要方便

把它做成函数呢! 这样算方便了!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 20个

财富等级: 恭喜发财

发表于 2013-5-30 13:47:09 | 显示全部楼层
本帖最后由 marting 于 2013-5-30 13:49 编辑

下面是关于HATCH的各种代码

1、DH-2line places hatch between two parallel lines
2、 DH3 uses points picked for three Corners, long side then width
3、 Hatch - Unlimited points  
4、Hatch - Creates separate hatch with several objects
5、Hatch- Quick pick hatch command
6、Hatch - Matches the properties of existing hatches (sets only)
7、Hatch - Matches existing hatch and allows user to pick new object
8、Hatch - 2-point hatch
9、Hatch - 2-point circular
10、 Hatch - Pick internal point


[sell=5]
  1. ;;;Misc hatch routines
  2. ;;;============================================================================
  3. ;;;    Hatch Between two parallel lines
  4. ;;;============================================================================
  5. ;;;============================================================================
  6. ;;;  DH-2line places hatch between two parallel lines
  7. ;;;  Creates ANSI37 hatch 90 deg
  8. (defun C:DH-2line (/ usercmd ss er e1 e2 p1 p2 p3 p4 xp1 xp2 xp3 xp4 yp1
  9.       yp2 yp3   yp4 ang   HS RB)
  10.   (setq   usercmd   (getvar "CMDECHO")
  11.    ss   nil
  12.    er   nil
  13.    HS   "" ; Hatch Scale
  14.    RB   "N" ; Retain Border
  15.   )
  16.   (setvar "CMDECHO" 0)
  17.   (while (not ss)
  18.     (prompt "\nSelect two parallel lines to hatch")
  19.     (setq ss (ssget)) ;  ":S"  may be used
  20.     (Cond
  21.       ((equal ss nil)
  22.        (setq er "Nothing selected:")
  23.       )
  24.       ((< (sslength SS) 2)
  25.        (setq er "too few lines selected.")
  26.       )
  27.       ((> (sslength SS) 2)
  28.        (setq er "too many lines selected.")
  29.       )
  30.       (T
  31.        (setq e1 (entget (ssname ss 0)))
  32.        (setq e2 (entget (ssname ss 1)))
  33.        (if (and   (= (cdr (assoc 0 e1)) "LINE")
  34.       (= (cdr (assoc 0 e2)) "LINE")
  35.       )
  36.     (progn ; Both are LINES
  37.       (setq p1 (cdr (assoc 10 e1)) ; Get end points of lines
  38.        p2 (cdr (assoc 11 e1))
  39.        p3 (cdr (assoc 10 e2))
  40.        p4 (cdr (assoc 11 e2))
  41.       )
  42.       (setq xp1 (car p1) ; get x & y values of end points
  43.        xp2 (car p2)
  44.        xp3 (car p3)
  45.        xp4 (car p4)
  46.        yp1 (cadr p1)
  47.        yp2 (cadr p2)
  48.        yp3 (cadr p3)
  49.        yp4 (cadr p4)
  50.       )
  51.       ; Correct for cases where two points are not exactly equal (+/- .1)
  52.       (Setq xp1 (if (equal xp1 xp2 0.1) xp2 xp1)) ; make exactly equal
  53.       (Setq xp3 (if (equal xp3 xp4 0.1) xp4 xp3)) ; make exactly equal
  54.       (Setq yp1 (if (equal yp1 yp2 0.1) yp2 yp1)) ; make exactly equal
  55.       (Setq yp3 (if (equal yp3 yp4 0.1) yp4 yp3)) ; make exactly equal

  56.       (if (or (> xp1 xp2) (and (= xp1 xp2) (> yp1 yp2))) ;  Swap ends
  57.         (setq px p1 ; make starting ends the same
  58.          p1 p2 ; by swaping ends
  59.          p2 px
  60.         )
  61.       )
  62.       (if (or (> xp3 xp4) (and (= xp3 xp4) (> yp3 yp4)))
  63.         (setq px p3 ; make starting ends the same
  64.          p3 p4 ; by swaping ends
  65.          p4 px
  66.         )
  67.       )
  68. ;;;============================================================================
  69.       (setq ang (* 0.0 (/ (+ (angle p1 p2) (* pi 0.5)) pi))) ; Hatch @ 0 deg to line
  70.       (setq pi2 (* pi 2)
  71.        a1  (angle p1 p2) ; check for >= 2pi angle, set to 0 or correct to < 2pi
  72.        a1  (if (equal a1 pi2 0.0001) 0 (if (> a1 pi2) (- a1 pi2)a1))
  73.        a2  (angle p3 p4)
  74.        a2  (if (equal a2 pi2 0.0001) 0 (if (> a2 pi2) (- a2 pi2)a2))
  75.       )
  76.       (if (not (equal a1 a2 0.1)) ; (margin +/- 0.1 inch)
  77.         (setq er "lines are not parallel.")
  78.       ; Lines OK to Hatch         
  79.         (command "_.hatch" "" HS ang "" RB p1 p2 p4 p3 "close" "" )           
  80.       ) ; endif
  81. ;;;============================================================================
  82.     ) ;end progn
  83.     (setq er "one or both item(s) not a LINE.")
  84.        ) ; endif
  85.       ) ; end (T)
  86.     ) ; end cond
  87.   ) ; end  while
  88.   (if (/= er nil)
  89.     (alert (strcat "ERROR: " er))
  90.   )
  91.   (setvar "CMDECHO" usercmd)
  92.   (princ)
  93. ) ; end defun
  94. (Princ)

  95. ;;;============================================================================
  96. ;;;============================================================================
  97. ;;;    Hatch- three point
  98. ;;;============================================================================
  99. ;;;============================================================================
  100. ;;;  DH3 uses points picked for three Corners, long side then width
  101. ;;;  Creates ANSI37 hatch 90 deg

  102. (defun C:dh3   (/ p1 p2 p3 p4 hs rb ang usercmd )   
  103.   ;Make 2D point from 3D point
  104.   (defun 3dP->2dP (3dpt) (list (car 3dpt) (cadr 3dpt)))

  105.   (setq usercmd (getvar "CMDECHO"))
  106.   (setvar "CMDECHO" 0)
  107.   (prompt "\nPick boundry points to hatch")
  108.   (setq   p1  (getPoint "\nPick first point:")
  109.    p2  (getPoint p1 "\nPick along Pipe first:")
  110.    p3  (getPoint p2 "\nPick across Pipe:")
  111.    p1  (3dP->2dP p1)
  112.    p2  (3dP->2dP p2)
  113.    p3  (3dP->2dP p3)
  114.    p4  (polar p1 (angle p2 p3) (distance p2 p3))
  115.    HS   30      ; Hatch Scale
  116.    RB   "N"     ; Retain Border

  117.    ang (* 180.0 (/ (+ (angle p1 p2) (* pi 0.5)) pi))
  118.   )
  119. (command "_.hatch" "" "" ang "" RB p1 p2 p3 p4 "close" "" )
  120.   (setvar "CMDECHO" usercmd)
  121.   (princ)
  122. )
  123. (Princ)



  124. ;;;===========================================================
  125. ;;;    Hatch - Unlimited points                                 
  126. ;;;===========================================================
  127. (defun c:DH   (/ hs ang usercmd)
  128.   (setq usercmd (getvar "CMDECHO"))
  129.   (setvar "CMDECHO" 0)
  130.   (prompt "\nDraw a polyline boundry to hatch, Enter when done.")
  131.   (setq   hs "" ; Hatch Scale
  132.    ang 0 ; Hatch angle
  133.    )
  134.    (command "_.hatch" "" HS ang "" "n")
  135.   (setvar "CMDECHO" usercmd)
  136.   (princ)
  137. ); end defun
  138. (princ)
  139. ;
  140. ;
  141. ;


  142. ;;;==============================================================================
  143. ;;; Hatch - Creates separate hatch with several objects
  144. ;;;===============================================================================


  145. (defun c:mhatch (/ sset idx hnd cmdecho)
  146.   (setq cmdecho (getvar "CMDECHO"))
  147.   (setvar "CMDECHO" 0)
  148.   (setq sset
  149.          (ssget
  150.            '((-4 . "<OR") (0 . "POLYLINE") (0 . "LWPOLYLINE") (-4 . "OR>"))
  151.          )
  152.   )
  153.   (if sset
  154.     (progn
  155.       (command "UNDO" "_begin")
  156.       (setq idx (sslength sset))
  157.       (while (>= (setq idx (1- idx)) 0)
  158.         (setq hnd (ssname sset idx))
  159.         (command "_.hatch" "" "" "" hnd "")
  160.       )
  161.       (command "UNDO" "_end")
  162.     )
  163.   )
  164.   (setvar "CMDECHO" cmdecho)
  165.   (princ)
  166. )

  167. ;;;==============================================================================
  168. ;;; Hatch- Quick pick hatch command
  169. ;;;===============================================================================

  170. (defun c:h (/ ss)
  171.     (setvar "cmdecho" 0)
  172.     (prompt "\n*** Select objects for Hatch & press [Enter] ")
  173.     (if (and
  174.             (setq ss (ssget))
  175.             (> (sslength ss) 0)
  176.         )
  177.         (command "hatch" "" "" "" ss "")
  178.     )
  179.     (princ)
  180. )




  181. ;;;==============================================================================
  182. ;;; Hatch - Matches the properties of existing hatches (sets only)
  183. ;;;===============================================================================

  184. ;;  Match properties of hatch pattern selected
  185. ;;  Set system variables to match
  186. (defun c:hs (/ ent elist lay colr)
  187.   (if (setq ent (entsel))
  188.     (progn
  189.       (setq elist (entget (car ent)))
  190.       (if (= (cdr (assoc 0 elist)) "HATCH")
  191.         (progn
  192.           (command "_undo" "_begin")
  193.           (setq lay (cdr (assoc 8 elist)))
  194.           (setq colr (cdr (assoc 62 elist)))
  195.           (setvar "hpname" (cdr (assoc 2 elist)))
  196.           (setvar "hpang" (cdr (assoc 52 elist)))
  197.           (if (or (= (substr (getvar "hpname") 1 2) "_U")
  198.                   (= (substr (getvar "hpname") 1 1) "U")
  199.               )
  200.             (progn
  201.               (if (= (cdr (assoc 78 elist)) 2)
  202.                 (setvar "hpdouble" 1)
  203.               )
  204.               (if (= (cdr (assoc 78 elist)) 1)
  205.                 (setvar "hpdouble" 0)
  206.               )
  207.               (setvar "hpspace" (cdr (assoc 41 elist)))
  208.             )
  209.             (setvar "hpscale" (cdr (assoc 41 elist)))
  210.           )
  211.           (command "_layer" "s" lay "")
  212.           (if (null colr)
  213.             (setvar "cecolor" "256")
  214.             (setvar "cecolor" (itoa (cdr (assoc 62 elist))))
  215.           )
  216.           (command "_undo" "_end")
  217.           (if c:r
  218.             (c:r)
  219.             (redraw)
  220.           )
  221.         )
  222.         (prompt "\nSelection is not a hatch")
  223.       )
  224.     )
  225.     (prompt "\nNothing selected")
  226.   )
  227.   (princ)
  228. )

  229. ;;;===================================================================================
  230. ;;;Hatch - Matches existing hatch and allows user to pick new object
  231. ;;;===================================================================================


  232. (defun c:mh (/ ocol olay col ent lay hat sca rot po)
  233.   (setq ocol (getvar "cecolor"))
  234.   (setq olay (getvar "clayer"))
  235.   (setq oosn (getvar "osmode"))

  236.   (setvar "osmode" 0)
  237.   (if (setq ent (entsel "\nSelect a hatch pattern to copy."))
  238.     (progn
  239.       (setq ent (entget (car ent)))
  240.       (if (= (cdr (assoc 0 ent)) "HATCH")
  241.    (progn
  242.      (setq lay (cdr (assoc 8 ent)))
  243.      (setq hat (cdr (assoc 2 ent)))
  244.      (setq sca (cdr (assoc 41 ent)))
  245.      (setq rot (cdr (assoc 52 ent)))
  246.      (setq rot (* rot (/ 180 pi)))
  247.      (setq col (cdr (assoc 62 ent))) ; may return nil
  248.      (cond
  249.        ((or (= col "BYLAYER") (= col "BYBLOCK"))
  250.         (setvar "cecolor" col)
  251.        )
  252.        ((= (type col) 'int)
  253.         (setvar "cecolor" (itoa col))
  254.        )
  255.      )
  256.      (command "layer" "s" lay "")
  257.      (initget "s") ; this allows numbers to be entered
  258.      (setq   po
  259.        (getpoint "\nSelect Internal Point or (S)elect Objects:")
  260.      )
  261.      (if (= (type po) 'list)
  262.        (command "-bhatch" po "p" hat sca rot "")

  263.        (if   (setq po (ssget)) ; allow one choice only
  264.          (command "-bhatch" "s" po "" "p" hat sca rot "")
  265.          (prompt "\nNothing selected.")
  266.        )
  267.      )
  268.    )
  269.    (prompt "\nSelection was not a hatch.")
  270.       )
  271.     )
  272.     (prompt "\nNothing selected.")
  273.   )
  274.   (setvar "clayer" olay)
  275.   (setvar "cecolor" ocol)
  276.   (setvar "osmode" oosn)
  277.   (princ)
  278. )

  279. ;;;===================================================================================
  280. ;;; Hatch - 2-point hatch
  281. ;;;===================================================================================
  282. (DEFUN C:2PHATCH ()
  283.   (SETVAR "CMDECHO" 0)  
  284.   (SETQ
  285.     X1 (GETPOINT "\nPick 1st corner:")
  286.     Y2 (GETCORNER X1
  287.        "\nPick opposite corner: ")
  288.     LEN1 (DISTANCE X1 Y2)
  289.     ANG1 (ANGLE X1 Y2)
  290.     X2 (POLAR X1 0.0
  291.        (* LEN1 (COS ANG1)))
  292.     Y1 (POLAR Y2 PI
  293.        (* LEN1 (COS ANG1)))
  294.   )
  295.   (command "_.hatch" "" "" "" "" "n" X1 X2 Y2 Y1 "close" "")
  296.   (SETVAR "CMDECHO" 1)
  297.   (PRINC)
  298. )

  299. ;;;===================================================================================
  300. ;;; Hatch - 2-point circular
  301. ;;;===================================================================================

  302. (defun c:cdh ( )
  303.   (command "osmode" "16")
  304.   (command "circle" "2p" pause pause)
  305.   (command)(command)
  306.   (command "Hatch" "" pause 0 "L" "" "erase" "P" "")  
  307.   (command "osmode" "0")
  308. )
  309. ;;;===================================================================================
  310. ;;; Hatch - Pick internal point
  311. ;;;===================================================================================
  312. (defun c:hI (/ sSet *error*)
  313. (defun *error* (msg)
  314. (setvar "cmdecho" 1)
  315. ); end *error*
  316. (setvar "cmdecho" 0)
  317. (setq ent1 (getpoint "*** Select POINT for Hatch "))
  318. (command "_.-bhatch" ent1 "" "")
  319. (while (= 1 (getvar "cmdactive"))
  320. (command pause)
  321. ); end while
  322. (command "")
  323. (princ)
  324. )
[/sell]

评分

参与人数 1D豆 +5 收起 理由
xshrimp + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 593个

财富等级: 财运亨通

发表于 2013-5-30 13:55:48 | 显示全部楼层
wowan1314 发表于 2013-5-30 13:33
把它做成函数呢! 这样算方便了!

以前写的一个函数,绘制Hatch,ea:init的意义搜索相关帖子,这个函数是根据图中已有的填充生成填充图例,其中用到了Vla方法生成填充
;;参数:
;;space 图例间距
;;pl    表    hatch -         patternname 、color (truecolor)
;;            Gradienthatch - gradientname 、 color1 、color2 (渐变填充)
;;pt    基点
游客,本帖隐藏的内容需要积分高于 30 才可浏览,您当前积分为 0



论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 223个

财富等级: 日进斗金

发表于 2015-7-27 22:31:12 | 显示全部楼层
看不了啊,混明经的,晓东的分不够看,郁闷
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-6 07:48 , Processed in 0.461908 second(s), 52 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表