明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 764|回复: 4

做一个销孔 ,加载没反应,该怎么修改呢

[复制链接]
发表于 2019-1-20 10:50 | 显示全部楼层 |阅读模式
;;做一个销孔
(defun c:fs_dim_mkxk (/ cen hatch obj r ss)
  (princ "\n选择要生成销孔的圆:")
  (setq ss (ssget ":S" '((0 . "circle,arc"))))
  (or ss (fsxm-silenceexit))
  (foreach en (fsxm-ss->enlist ss)
    (entmake
      '((0 . "HATCH")
        (100 . "AcDbEntity")
        (67 . 0)
        (8 . "Hatch")
        (62 . 1)
        (100 . "AcDbHatch")
        (10 0.0 0.0 0.0)
        (210 0.0 0.0 1.0)
        (2 . "SOLID")
        (70 . 1)
        (71 . 0)
        (91 . 2)
        (92 . 7)
        (72 . 1)
        (73 . 1)
        (93 . 3)
        (10 0.0 1.0 0.0)
        (42 . 0.0)
        (10 0.0 0.0 0.0)
        (42 . 0.0)
        (10 1.0 0.0 0.0)
        (42 . 0.414214)
        (97 . 0)
        (92 . 7)
        (72 . 1)
        (73 . 1)
        (93 . 3)
        (10 0.0 0.0 0.0)
        (42 . 0.0)
        (10 -1.0 0.0 0.0)
        (42 . 0.414214)
        (10 0.0 -1.0 0.0)
        (42 . 0.0)
        (97 . 0)
        (75 . 0)
        (76 . 1)
        (47 . 0.0036759)
        (98 . 2)
        (10 0.415316 0.296747 0.0)
        (10 -0.49285 -0.320804 0.0)
        (450 . 0)
        (451 . 0)
        (460 . 0.0)
        (461 . 0.0)
        (452 . 1)
        (462 . 1.0)
        (453 . 2)
        (463 . 0.0)
        (63 . 5)
        (421 . 255)
        (463 . 1.0)
        (63 . 7)
        (421 . 16777215)
        (470 . "LINEAR")
       )
    )
    (setq hatch (vlax-ename->vla-object (entlast)))
    (setq obj (vlax-ename->vla-object en))
    (setq cen (vla-get-Center obj))
    (setq r (vla-get-Radius obj))
    (vla-move hatch (vlax-3d-point '(0 0)) cen)
    (vla-ScaleEntity hatch cen r)
  )
  (c:fs_dim_mkxk)
  (princ)
)




本帖子中包含更多资源

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

x
发表于 2019-1-24 13:26 | 显示全部楼层
这个需要飞诗函数才行
发表于 2019-1-24 18:15 | 显示全部楼层
;;;飞诗的函数
(defun fsxm-ss->enlist (ss / lst n en)
  (setq n -1)
  (while (setq en (ssname ss (setq n (1+ n))))
    (setq lst (cons en lst))
  )
)
发表于 2019-11-10 21:51 | 显示全部楼层
Thanks for sharing ^^
发表于 2021-12-20 02:10 | 显示全部楼层
yoyoho 发表于 2019-1-24 18:15
;;;飞诗的函数
(defun fsxm-ss->enlist (ss / lst n en)
  (setq n -1)

哪这个加在哪个位置呢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 16:45 , Processed in 0.266590 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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