2013-09-10 明经 AutoLISP 编程②(177027547) 群聊记录：C# 开发的dll能跨版本使用么？

明经快报

[蔡__洛]不快乐 10:17:14

C# 开发的dll能跨版本使用么？

明经快报

[958620832]仁者 12:00:21

(command "undo" "be")放在程序中，有何实用价值？

[mccad][mccad] 12:03:54

可以一次undo

明经快报

[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

这个要实现 不容易 太智能了 你要自己想想 怎么判断

明经快报

蝴蝶效应 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？

明经快报

蝴蝶效应 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

括号有问题

明经快报

蝴蝶效应 21:52:23

这个用2006的版本可以不？但我试了过后，没有看到什么图形的

[ZZXXQQ] 21:53:54

应该行。如果不行关了捕捉试试

明经快报

蝴蝶效应 22:12:55

命令:
 >自动直角三角形绘制
就只显示了这个东东

[ZZXXQQ] 22:13:38

加载的程序名

蝴蝶效应 22:14:30

那要怎么运行呀

我是加载进去了

明经快报

蝴蝶效应 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

麻烦大哥你给我说一下