highflybir的留言板 - 明经CAD社区

hyqfa 2023-7-17 12:06

飞鸟老哥牛逼，《数字文本的四则运算和统计》有个BUG，选到非数字文本就无法计算，有个小小的建议，增加一个容错，能够过滤选择集里非纯数字的文本

流氓兔 2021-4-30 12:24

获取QQ登录号码发我一下，qq:871425525

chenyizhen28 2019-9-1 20:09

老大，你的对图神器有没升级啊，我想用啊。有的话麻烦发一份到215241411@qq.com 谢谢了。

highflybir 2017-2-8 15:43

"abc\000def\000gh" 是怎么出现的？

crtrccrt 2017-1-3 19:26

求助:
"abc\000def\000gh"
如何修改为
"abc def gh"
即"\000"替换为" "（空格）;;;

tianyi1230 2015-6-16 22:09

如果有时间，麻烦您把您写的这个程序升级一下好吗，用不了有时候，【越飞越高讲堂6】十年磨一剑--openDCL和反应器
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=61440&fromuid=401641

自贡黄明儒 2013-9-23 11:47

请教大师，如何将.bak文件移动到回收站？

自贡黄明儒 2013-9-18 13:17

当你有空时，请帮忙解决一下，先谢谢了！
;;[功能] 获取ucs下四角点坐标
;|
4 = 左上；3 = 右上
1 = 左下；2 = 右下
|;
;;(HH:Ename4pt (car (entsel))),返回UCS坐标系下坐标;((91.0442 155.193 0.0) (74.2661 129.503 0.0) (78.7314 126.587 0.0) (95.5095 152.277 0.0))
(defun HH:Ename4pt (ent / LST MAT0 MAT1 MAXPT MINPT OBJ X)
  ;;1 包围盒转四角点列表wcs
  (defun zg:BBox:List (box / pt1 pt2 pt3 pt4)
(setq pt1 (car box))
(setq pt3 (cadr box))
(setq pt2 (list (car pt3) (cadr pt1) (caddr pt1)))
(setq pt4 (list (car pt1) (cadr pt3) (caddr pt1)))
(list pt1 pt2 pt3 pt4)
  )
  ;;2 本程序主程序
  (cond ((= (type ent) 'ENAME)
   (setq obj (vlax-ename->vla-object ent))
)
((= (type ent) 'VLA-OBJECT) (setq obj ent))
(T (exit))
  )
  (setq Mat0 (Mat:EntityMatrix ent))
  (setq mat1 (cadr mat0))    ;OCS->WCS
  (setq mat0 (car mat0))    ;WCS->OCS(trans Pt WCS OCS)
  (vla-TransformBy obj (vlax-tmatrix mat0))    ;变换到ocs
  (vla-GetBoundingBox obj 'minPt 'maxPt)    ;得到包围框
  (vla-TransformBy obj (vlax-tmatrix mat1))

  (setq lst (mapcar 'vlax-safearray->list (list minPt maxPt)))
  (setq lst (zg:BBox:List lst))
  ;;这里lst要变换一下，怎么变呢？
  ;;(setq lst (mapcar '(lambda (x) (MAT:mxp (MAT:Trans 0 1) x)) lst));不对
  ;;(mapcar '(lambda (x) (trans x ent 1)) lst);不对
)

zjupxw 2013-9-8 19:15

请问你的矩阵变换能求图块与直线的实际交点吗？

s678z 2013-7-3 08:11

先生，我有这个需求，http://bbs.mjtd.com/forum.php?mod=viewthread&tid=102063&page=1#pid595073 能不能告诉我图元规整程序在哪里？

bavfpl 2013-5-9 15:30

请问VLISP能操作ActiveX的事件吗？

wowan1314 2013-4-6 20:43

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=96069&fromuid=282351
在此贴中你的代码还有点bug存在！请帮忙看看能否解决！！！！！
能解决那就太帅啦！
先谢谢啦！

风花飘飘 2013-3-26 14:03

尊敬的版主：【鲍赫公式】可以解复系数方程，但是，世界上好像还没有解复系数方程的软件程序，不知如何编程。这是个问题，求考虑解决之，谢谢！

maiko 2013-3-21 01:12

家门版主也是庆字辈的?

328302216 2013-1-7 10:16

highflybir: 有一定难度，但我现在没多少时间。请见谅。

我听他们说你整过类似的，但是我找你的贴好像没找到！如果有时间就帮我看看吧！

highflybir 2013-1-5 16:30

能否用vla-get-area获取？
如果不能的话，我记得以前我发过帖子，求这个面积的。你搜下我的帖子。

cxjzxh 2013-1-5 16:24

请问图案填充的面积在CAD2004中如何实现，谢谢！

328302216 2012-12-28 18:14

老师有空帮我看看 http://bbs.mjtd.com/thread-99824-1-1.html 这个怎么算！！

长风（尚品） 2012-5-28 20:04

为什么我在06版中加载为LISP定制的动态输入，动态拖拉和动态信息函数（更新至12.15）这个后只有显示状态栏。其它的什么都没有。为什么

wangph 2012-3-21 10:36

highflybir大师，看了你关于DynamicWrapperX的讲座受益匪浅，我有个这样的API函数库（***.dll）,现在要用LISP调用里面的一个函数：long Find(long AppID, long * Handle, long *num), 其中AppID为要输入的参数，Handle和num为要输出的参数，请教这样的能调用成功吗，我试验了一下没有成功，请指教！

highflybir的个人空间 http://www.mjtd.com/?236907 [收藏] [复制] [分享] [RSS]

留言板

highflybir