明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1152|回复: 1

选择异常飞时达方格-飞时达方格分割后产生的BUG

[复制链接]
发表于 2017-8-4 21:25 | 显示全部楼层 |阅读模式

  1. (defun trans2dda (ename / AcadObject AcadDocument mSpace ent_data str_0 obj pts sngSArea)
  2.   (VL-LOAD-COM)
  3.   
  4.   (setq AcadObject (vlax-get-acad-object))
  5.   (setq AcadDocument (vla-get-ActiveDocument Acadobject))
  6.   (setq mSpace (vla-get-ModelSpace Acaddocument))

  7.   ;(setq ename (car (entsel "选择要转换的三维多段线:")))
  8.   (setq ent_data (entget ename))
  9.   (setq str_0 (cdr (assoc 0 ent_data)))
  10.   (while (/= str_0 "POLYLINE")
  11.     (setq ename (car (entsel "选择的实体非三维多段线,请重新选择!:")))
  12.     (setq ent_data (entget ename))
  13.     (setq str_0 (cdr (assoc 0 ent_data)))
  14.    )
  15.       (setq obj (vlax-ename->vla-object ename))
  16.       (setq pts (vlax-variant-value (vla-get-coordinates obj)))
  17.       
  18.   ;(vlax-ename->vla-object (vla-AddPolyline mSpace pts) )
  19.   ;(setq vlaSTrigon (vlax-ename->vla-object objSTrigon));将转化成VLA 对象

  20.      (setq sngSArea (vlax-curve-getArea  (vla-AddPolyline mSpace pts) ))

  21.   (entdel (entlast))
  22.       ;(princ)
  23.      sngSArea
  24. )

  25. (defun xyp-CurveLength (s1) (vlax-curve-getDistAtParam s1 (vlax-curve-getEndParam s1)))
  26. ;;;;;;;;;;;;;;;;;;;;;;;;;
  27. (defun c:xzfgw ( / ss fgmj ee i sss fgzc)  ;飞时达异常方格删除

  28. (setq fgmj (getreal "\n请输入方格面积5位小数如25.00000:") )
  29.   (setq fgzc (getreal "\n请输入方格周长5位小数如20.00000:") )
  30. ;(setq fgmj (trans2dda (car (entsel "\n请选择样板方格:"))) )

  31.   
  32. (setq ss (ssget '( (0 . "polyline")  (8 . "tf-fg1")  ))
  33.           i  0
  34.     )
  35.   (setq sss (ssadd))
  36.     (while (setq ee (ssname ss i))
  37.       
  38.       (if (or (> (-(xyp-CurveLength ee) 0.001) fgzc) (> (- (trans2dda ee) 0.001) fgmj)      )
  39.       (progn  (ssadd ee sss)   )
  40.       )
  41.       
  42.       (setq i (1+ i))
  43.     )
  44.   (sssetfirst nil sss)
  45.   
  46.   




  47. )


本帖子中包含更多资源

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

x
发表于 2017-12-13 11:59 | 显示全部楼层
飞时达用来算量还是好用的,就是D版不好找。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 12:43 , Processed in 0.207155 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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