明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 445|回复: 1

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

[复制链接]
发表于 2017-8-4 21:25 | 显示全部楼层 |阅读模式
[code="lisp]
(defun trans2dda (ename / AcadObject AcadDocument mSpace ent_data str_0 obj pts sngSArea)
  (VL-LOAD-COM)
  
  (setq AcadObject (vlax-get-acad-object))
  (setq AcadDocument (vla-get-ActiveDocument Acadobject))
  (setq mSpace (vla-get-ModelSpace Acaddocument))

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

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

  (entdel (entlast))
      ;(princ)
     sngSArea
)

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

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

  
(setq ss (ssget '( (0 . "polyline")  (8 . "tf-fg1")  ))
          i  0
    )
  (setq sss (ssadd))
    (while (setq ee (ssname ss i))
      
      (if (or (> (-(xyp-CurveLength ee) 0.001) fgzc) (> (- (trans2dda ee) 0.001) fgmj)      )
      (progn  (ssadd ee sss)   )
      )
      
      (setq i (1+ i))
    )
  (sssetfirst nil sss)
  
  




)[/code]

本帖子中包含更多资源

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

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

本版积分规则

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

GMT+8, 2018-9-25 09:41 , Processed in 0.151615 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

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