明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1267|回复: 8

[LISP群(2)] 2013-09-10 明经 AutoLISP 编程②(177027547) 群聊记录:C# 开发的dll能跨版本使用么?

 关闭 [复制链接]
发表于 2013-9-10 10:17:14 | 显示全部楼层 |阅读模式
[蔡__洛]不快乐 10:17:14
C# 开发的dll能跨版本使用么?
 楼主| 发表于 2013-9-10 12:00:21 | 显示全部楼层
[958620832]仁者 12:00:21
(command "undo" "be")放在程序中,有何实用价值?
[mccad][mccad] 12:03:54
可以一次undo
 楼主| 发表于 2013-9-10 14:57:27 | 显示全部楼层
[yxh1202]等你 14:57:27
错误: 参数类型错误: VLA-OBJECT 这个什么意思
[蔡__洛]不快乐 14:59:29
vla-ename->vlax-object 转下看
[yxh1202]等你 15:00:08
看了原代码,提示两个选择的实体,谢谢指导
[蔡__洛]不快乐 15:00:37
你发源码来看嘛
[yxh1202]等你 15:01:56
好的==
[蔡__洛]不快乐 15:03:01
 字体..
[yxh1202]等你 15:03:22
我想把这个前辈做的改为可以选择任意实体所围成的封闭区域面积,这个好像只支持两个多线段
[蔡__洛]不快乐 15:04:05
在哪一句报错?
[yxh1202]等你 15:05:09
现在没问题了,问题是这个只能实现获取两个多线段围成的封闭区域面积,我想实现多个图元围成的封闭区域,请教怎么改下
[蔡__洛]不快乐 15:06:11
这个不难 难在多个区域最外围点的算法  这个你得自己研究了
[yxh1202]等你 15:08:07
我的思路是,求的选择集中的交点,然后排除每一个在交点外围的点,然后就利用这些筛选后的点求的面积
能结合这个代码指点迷津吗,非常谢谢
[蔡__洛]不快乐 15:09:09
哦 你这个思路 我不晓得
[蔡__洛]不快乐 15:11:25
但是之前 我做过一个 文字避让的处理程序 我用的思路是:对所有区域求得对应的面域  由面域做布尔运算求并集 然后用并集面域 反生成边界
[蔡__洛]不快乐 15:12:05
这样不需要什么算法 机器自动都帮你做了
[yxh1202]等你 15:14:29
[qqimg]201309/{36005662-8BB1-98E6-59B7-484EBFA344F5}.jpg[/qqimg]
就是求这个面积,想自动化
刚才发的那个可以实现两个图元,但多了就不行了
[蔡__洛]不快乐 15:15:06
求出面域 直接可以获得 面积
[yxh1202]等你 15:16:13
我是搞土木工程的,计量中会出现交叉的现象。就是想自动选择图层,根据图层上实体围成的封闭区域求面积
[蔡__洛]不快乐 15:20:26
这个要实现 不容易 太智能了 你要自己想想 怎么判断
 楼主| 发表于 2013-9-10 15:35:28 | 显示全部楼层
蝴蝶效应 15:35:28
(defun c:5test1()
;以下 pa、ww、kk 值须由使用者输入
(setq pa (getpoint 100“请输入直角三角形左下角点:”))
(setq ww (getreal 50” 请输入直角三角形底边长度:”))
(setq kk (getreal 50” 请输入直角三角形斜边长度:”))
;以下pb、pc、hh值须由程序依据pa、ww、kk求出
(setq pb (polar pa 0 ww))
(setq hh (sqrt (- (* kk kk) (* ww ww))))
(setq pc (polar pa (/ pi 2) hh))
;以下依据 pa、pb、pc 点画出直角三角形
(princ " 另一边hh的长度=")(princ hh) 
(command “line” pa pb pc “c”) ;;;用PLINE也可以
;以下将三角形二夹角自动求出,并显示在指令区
(setq ang_pb (atan (/ hh ww)))
(setq ang_pb (* ang_pb (/ 180 pi)))
(setq ang_pc (- 90 ang_pb))
(princ " PB的夹角=")(princ ang_pb)(princ "度")
(princ " PC的夹角=")(princ ang_pc)(princ "度")
(prin1)
)
(prompt “  >自动直角三角形绘制”)
(prin1)
请朋侠们帮我看看是那里出错了
梅花 15:36:19
numberp: #这是什么错误啊
[gmstcn]囧囧圣堂 15:38:23
需要个数值参数?
[蔡__洛]不快乐 15:39:02
该对象为nil?
 楼主| 发表于 2013-9-10 21:16:44 | 显示全部楼层
蝴蝶效应 21:16:44
(defun: C: triang1()
      (setq 1(getpoint“  EnterfirstPoint of
    triangle:”))   6
      (setq 2(getpoint“  Entersecondoint of
    triangle:”))   7
      (setq p3(getpoint“  Enterthirdpoint of 
    triangle:”))   8
      (Command“line”p1p2p3“C”)
    )
请各位大侠看看,我加载过后说:
错误: 输入的列表有缺陷
这个是怎么回事呀?
[ZZXXQQ] 21:25:23
(defun C:triang1 ()
 (setq 1 (getpoint "  EnterfirstPoint of triangle:"))
 (setq 2 (getpoint "  Entersecondoint of triangle:"))
 (setq p3 (getpoint "  Enterthirdpoint of triangle:"))
 (command "line" p1 p2 p3 "C")
)
蝴蝶效应 21:26:42
哥们知道怎么回事儿吗
蝴蝶效应 21:31:01
这样子写那里错了呀,大哥
[ZZXXQQ] 21:32:14
(defun c:5test1()
;以下 pa、ww、kk 值须由使用者输入
(setq pa (getpoint 100 "请输入直角三角形左下角点:"))
(setq ww (getreal 50 " 请输入直角三角形底边长度:"))
(setq kk (getreal 50 " 请输入直角三角形斜边长度:"))
;以下pb、pc、hh值须由程序依据pa、ww、kk求出
(setq pb (polar pa 0 ww))
(setq hh (sqrt (- (* kk kk) (* ww ww))))
(setq pc (polar pa (/ pi 2) hh))
;以下依据 pa、pb、pc 点画出直角三角形
(princ " 另一边hh的长度=")(princ hh)
(command “line” pa pb pc “c”) ;;;用PLINE也可以
;以下将三角形二夹角自动求出,并显示在指令区
(setq ang_pb (atan (/ hh ww)))
(setq ang_pb (* ang_pb (/ 180 pi)))
(setq ang_pc (- 90 ang_pb))
(princ " PB的夹角=")(princ ang_pb)(princ "度")
(princ " PC的夹角=")(princ ang_pc)(princ "度")
(prin1)
)
(prompt "  >自动直角三角形绘制")
(prin1)
英文字符打成中文的了
[ xiaoerduo888]小耳朵 21:32:19
括号有问题
 楼主| 发表于 2013-9-10 21:52:23 | 显示全部楼层
蝴蝶效应 21:52:23
这个用2006的版本可以不?但我试了过后,没有看到什么图形的
[ZZXXQQ] 21:53:54
应该行。如果不行关了捕捉试试
 楼主| 发表于 2013-9-10 22:12:55 | 显示全部楼层
蝴蝶效应 22:12:55
命令:
 >自动直角三角形绘制
就只显示了这个东东
[ZZXXQQ] 22:13:38
加载的程序名
蝴蝶效应 22:14:30
那要怎么运行呀
我是加载进去了
 楼主| 发表于 2013-9-10 22:25:12 | 显示全部楼层
蝴蝶效应 22:25:12
那我要怎么样才能看得到画的那个三角形呀
[ZZXXQQ] 22:25:39
运行命令了
蝴蝶效应 22:33:12
这样该运行什么命令?
[ZZXXQQ] 22:33:34
上面不是有提示吗
蝴蝶效应 22:36:58
[qqimg]201309/{8412AA55-CC2F-B830-8D23-6E9D9B1E4872}.jpg[/qqimg]
沙影 22:37:49
沙影 22:38:34
5test1
蝴蝶效应 22:39:58
我加载过后就出现这个样子
[qqimg]201309/{CA10BB33-0DAA-7102-88A1-4D4D99A57AF4}.jpg[/qqimg]
[ZZXXQQ] 22:40:41
说了半天……白说了
蝴蝶效应 22:49:11
麻烦大哥你给我说一下
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-23 12:44 , Processed in 0.184086 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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