设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › addhatch
返回列表 发新帖
查看: 3608|回复: 7

[已解决] addhatch

[复制链接]
taner

已领礼包: 2个

财富等级: 恭喜发财
发表于 2013-7-20 00:08:02 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
请教各位大吓,有没有可能用addhatch将选择集生成一个HATCH,就象用HATCH命令生成的一样是一个整体,而不是单个的,谢谢!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2013-7-20 00:14:57 | 显示全部楼层
本帖最后由 st788796 于 2013-7-20 00:17 编辑

http://www.xdcad.net/forum/forum.php?mod=viewthread&tid=176632
http://www.xdcad.net/forum/forum.php?mod=viewthread&tid=637069
Google 的
  1. (defun c:Test (/ ss h)
  2.   (vl-load-com)
  3.   (if (setq ss (ssget '((0 . "LWPOLYLINE") (-4 . "<OR") (70 . 1) (70 . 129) (-4 . "OR>"))))
  4.     ((lambda (space)
  5.        (vlax-for x (setq ss (vla-get-activeselectionset *AcadDoc*))
  6.          (vla-put-layer
  7.            (setq h (vla-AddHatch space acHatchPatternTypePredefined "SOLID" :vlax-true))
  8.            (vla-get-layer x)
  9.          )
  10.          (vlax-invoke h 'AppendOuterLoop (list x))
  11.          (vlax-invoke h 'Evaluate)
  12.        )
  13.        (vla-delete ss)
  14.      )
  15.       (if (or (eq acmodelspace
  16.                   (vla-get-activespace
  17.                     (cond (*AcadDoc*)
  18.                           ((setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object))))
  19.                     )
  20.                   )
  21.               )
  22.               (eq :vlax-true (vla-get-mspace *AcadDoc*))
  23.           )
  24.         (vla-get-modelspace *AcadDoc*)
  25.         (vla-get-paperspace *AcadDoc*)
  26.       )
  27.     )
  28.   )
  29.   (princ)
  30. )

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

使用道具 举报

taner

已领礼包: 2个

财富等级: 恭喜发财
 楼主| 发表于 2013-7-20 08:41:00 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
相同的功能我已实现,有没有可能将生成的HATCH变成一个整体,就象用HATCH命令生成的一样?

点评

newer
addhatch生成的HATCH不是整体的？  详情 回复 发表于 2013-7-20 08:48
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2013-7-20 08:48:52 | 显示全部楼层
taner 发表于 2013-7-20 08:41
相同的功能我已实现,有没有可能将生成的HATCH变成一个整体,就象用HATCH命令生成的一样?

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

使用道具 举报

Free-Lancer
发表于 2013-7-20 09:04:24 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
taner 发表于 22&nbsp;分钟前

                               
登录/注册后可看大图

相同的功能我已实现,有没有可能将生成的HATCH变成一个整体,就象用HATCH命令生成的一样?

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

使用道具 举报

taner

已领礼包: 2个

财富等级: 恭喜发财
 楼主| 发表于 2013-7-20 09:42:15 | 显示全部楼层
左边为ADDHATCH生成,右边为HATCH命令生成(一个整体).

test1.zip

5.06 KB, 下载次数: 17, 下载积分: D豆 -1 , 活跃度 1

点评

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

使用道具 举报

SmartStar

已领礼包: 188个

财富等级: 日进斗金
发表于 2013-7-20 11:06:37 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 SmartStar 于 2013-7-20 14:53 编辑
taner 发表于 2013-7-20 09:42
左边为ADDHATCH生成,右边为HATCH命令生成(一个整体).

试试这个：
  2. (defun c:Test (/ ss h)
  3.   (vl-load-com)
  4.   (setq *acad* (vlax-get-acad-object))
  5.   (setq *acdoc* (vla-get-activedocument *acad*))
  6.   (setq  mSpace (if (= 1 (getvar 'cvport))
  7.      (vla-get-paperspace *acdoc*)
  8.      (vla-get-modelspace *acdoc*)
  9.          )
  10.   )
  11.   (defun gxl-Sel-SS->List (ss / i s)
  12.     (if  ss
  13.       (repeat (setq i (sslength ss))
  14.   (setq s (cons (ssname ss (setq i (1- i))) s))
  15.       )
  16.     )
  17.   )
  18.   (if (setq ss (ssget '((0 . "LWPOLYLINE") (-4 . "<OR") (70 . 1) (70 . 129) (-4 . "OR>"))))

  20.     (progn
  21.       (setq lst (gxl-Sel-SS->List ss))
  22.       (setq ent (car lst))
  23.       (setq en-vl (vlax-ename->vla-object ent))
  24.       (setq patternName "solid")  ;填充样式
  25.       (setq patternType 0)
  26.       (setq bAssociativity :vlax-true)
  27.       (setq hatch (vla-AddHatch
  28.         mSpace
  29.         patternType
  30.         patternName
  31.         bAssociativity
  32.       )
  33.       )
  34.       (vlax-invoke hatch 'appendouterloop (list en-vl))
  35.       ;;(vlax-put-property hatch 'patternscale sca) ;比例
  36.       ;;(vlax-put-property hatch 'color 8) ;颜色
  37.       ;;(vlax-put-property hatch 'layer lay) ;图层
  38.       ;;(vlax-put-property hatch 'PatternAngle 0.7854) ;角度
  39.       (setq i 0)
  40.       (while (setq ent1 (nth (setq i (1+ i)) lst))
  41.   (setq en-vl1 (vlax-ename->vla-object ent1))
  42.   (vlax-invoke hatch 'AppendInnerLoop (list en-vl1))
  43.       )
  44.       (vla-evaluate hatch)
  45.     )
  46.   )
  47.   (princ)

  49. )

评分

参与人数 1D豆 +10 收起 理由
XDSoft + 10 热心帮忙奖！

查看全部评分

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

使用道具 举报

taner

已领礼包: 2个

财富等级: 恭喜发财
 楼主| 发表于 2013-7-20 13:58:30 | 显示全部楼层
谢谢,没想到AppendInnerLoop是可以加N次的!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-4-23 15:50 , Processed in 0.421264 second(s), 47 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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