2013-08-05 明经 AutoLISP 编程(102918348) 群聊记录：我遇到一张图，取不出对象名字，是怎么回事 ？

明经快报

[236004]张牙舞爪 00:11:04

我遇到一张图，取不出对象名字，是怎么回事 ？

[236004]张牙舞爪 00:14:04

[qqimg]201308/{B1F9576F-3366-3890-674C-3CAA49246F96}.jpg[/qqimg]

明经快报

[AMKYUD][AMKYUD]??? 01:17:16

命令: ; 错误: ActiveX 服务器返回错误: 无效索引。
这是什么意思？怎样解决问题？

明经快报

佛法无边 08:10:41

好了么

明经快报

[236004]张牙舞爪 08:21:37

对象类型，

[958620832]无天 08:21:38

一个括号不就行了么？

[pzweng][pzweng]路人 08:21:53

假如多个条件呢？

[236004]张牙舞爪 08:21:58

你还是看看书吧。

问个问是，

[pzweng][pzweng]路人 08:22:17

[958620832]无天 08:22:18

’代表路人？

[236004]张牙舞爪 08:22:27

是

[236004]张牙舞爪 08:23:11

[qqimg]201308/{B1F9576F-3366-3890-674C-3CAA49246F96}.jpg[/qqimg]

[pzweng][pzweng]路人 08:23:26

你更新一下A试试

已经过期了

[236004]张牙舞爪 08:23:36

没用，

[pzweng][pzweng]路人 08:23:41

以前也碰到过

[236004]张牙舞爪 08:23:43

图可以打开，

[pzweng][pzweng]路人 08:23:45

你把图发给我

[236004]张牙舞爪 08:24:13

我是用  ENTSEL 选择的，

我是用  ENTSEL 选择的， 对象都选择了，怎么可能是 无效的呢，

发给你了，

[pzweng][pzweng]路人 08:25:01

我试试看

[236004]张牙舞爪 08:25:04

你在 CAD里运行一下就知道是不是 相等的了，

[pzweng][pzweng]路人 08:25:14

啥都没有呀

空白的图

[236004]张牙舞爪 08:25:25

问多了没有用的，要自己试验，

有呀，

[pzweng][pzweng]路人 08:25:43

你是不是天正的

[236004]张牙舞爪 08:25:51

要装一个 线性库

[pzweng][pzweng]路人 08:26:11

装了能删吗

[236004]张牙舞爪 08:26:32

刚发给你的这个  线性库 要装上，否则打开什么都没有，

[pzweng][pzweng]路人 08:26:42

代表quote

[236004]张牙舞爪 08:27:03

能

我没有试，

[958620832]无天 08:27:26

命令: (setq ss (ssget quote ((0 . "text"))))
; 错误: *error* 函数中出错参数类型错误: lselsetp nil

[pzweng][pzweng]路人 08:27:39

哪个图元

[236004]张牙舞爪 08:27:48

那个都不行，

[pzweng][pzweng]路人 08:27:49

(setq ss (ssget (quote ((0 . "text")))))

[236004]张牙舞爪 08:28:21

你不想用 QUOTE 就用 LIST 也可以的。

在

[pzweng][pzweng]路人 08:28:53

我怎么entsel为nil呢

[236004]张牙舞爪 08:28:55

句柄可以 ？

[pzweng][pzweng]路人 08:29:10

我连图元名都没有

[236004]张牙舞爪 08:29:18

有图元名，

图元名都没有，怎么取 句柄 ？

[pzweng][pzweng]路人 08:30:00

我再试试

[958620832]无天 08:30:37

命令: (setq ss (ssget (list ((0 . "text"))))) ; 错误: *error* 
函数中出错参数类型错误: lselsetp nil

[236004]张牙舞爪 08:31:13

(setq ss(ssget "x"(list(cons 0 "text"))))

[958620832]无天 08:32:49

[pzweng][pzweng]路人 08:33:49

张工，我转一下试试

[236004]张牙舞爪 08:34:17

你有转门的软件，还是你自己开发的工具 ？

[pzweng][pzweng]路人 08:34:22

试了可以的话我再告诉你

[236004]张牙舞爪 08:34:30

好的，我去楼下买个早餐吃的

[pzweng][pzweng]路人 08:34:41

好，去吧

[958620832]无天 08:40:02

(cons 0 "text")本身就是一个串行，为什么还要结合list？

[pzweng][pzweng]路人 08:40:34

问你死你的

[958620832]无天 08:41:08

张工，别听他胡说八道，他也不懂

[ahwx0814]雨中漫 08:43:07

((cons 0 "text")(cons 1 "text"))

[pzweng][pzweng]路人 08:46:03

[958620832]无天 08:46:40

你要真懂，你来解释一下试试看

[XQL]强 08:46:53

cons 组成点对

过滤参数是链表

(list(cons 0 "text")(cons 1 str)))

....

)

[pzweng][pzweng]路人 08:50:42

我现在不懂了

[958620832]无天 08:51:08

不懂就谦虚一点

[pzweng][pzweng]路人 08:51:15

嗯

知道了

[958620832]无天 08:51:32

那就好，孺子可教也

[pzweng][pzweng]路人 08:58:41

你也是

明经快报

[236004]张牙舞爪 09:19:30

回来了，

[lisp-study]jun 09:19:51

群里有没有搞水电的朋友？

[236004]张牙舞爪 09:19:53

路人，啥问题 ？

[pzweng][pzweng]路人 09:20:43

能不能转成CAD能打开的

[236004]张牙舞爪 09:20:48

怎么解决，

我现在是用CAD2006可以打开，

[pzweng][pzweng]路人 09:21:02

你这个非得装那个东西才能打开

我获取句柄都没用

[236004]张牙舞爪 09:21:09

是的，

是呀，

不知道是什么原因哟，

[pzweng][pzweng]路人 09:22:22

;   Handle (RO) = "11BA3"

句柄是有的

[236004]张牙舞爪 09:22:47

图是CAD做的，

[236004]张牙舞爪 09:23:28

估计句柄也是无效的，

[pzweng][pzweng]路人 09:24:23

句柄是有效的

[XQL]强 09:24:34

(handent

[236004]张牙舞爪 09:25:52

怎么取得句柄

[pzweng][pzweng]路人 09:26:19

vla-get获取

[236004]张牙舞爪 09:26:49

给一个完整的语句，

明经快报

[pzweng][pzweng]路人 09:40:32

((-1 . ) (0 . "OLYLINE") (5 . "CEFE") (102 . 
"{ACAD_XDICTIONARY") (360 . ) (102 . "}") (330 . ) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "hatch") (100 . 
"AcDb2dPolyline") (66 . 1) (10 0.0 0.0 1300.0) (70 . 132) (40 . 0.75) (41 . 
0.75) (210 0.0 0.0 1.0) (71 . 0) (72 . 0) (73 . 0) (74 . 0) (75 . 6))

张牙

获取了一第

条

[pzweng][pzweng]路人 09:43:40

张牙在不

((-1 . ) (0 . "LWPOLYLINE") (5 . "11551") (102 . 
"{ACAD_XDICTIONARY") (360 . ) (102 . "}") (330 . ) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "GCD") (62 . 253) 
(6 . "Continuous") (100 . "AcDbPolyline") (90 . 68) (70 . 0) (43 . 0.0) (38 . 
1342.0) (39 . 0.0) (10 2905.51 1931.09) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 
2900.54 1930.04) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2898.34 1929.92) (40 . 
0.0) (41 . 0.0) (42 . 0.0) (10 2890.46 1931.21) (40 . 0.0) (41 . 0.0) (42 . 
0.0) (10 2886.92 1931.81) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2882.78 1932.51) 
(40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2877.06 1933.48) (40 . 0.0) (41 . 0.0) (42 
. 0.0) (10 2870.95 1934.91) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2865.64 
1937.01) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2861.12 1939.77) (40 . 0.0) (41 . 
0.0) (42 . 0.0) (10 2857.41 1943.2) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 
2854.21 1947.02) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2851.28 1950.97) (40 . 
0.0) (41 . 0.0) (42 . 0.0) (10 2848.6 1955.05) (40 . 0.0) (41 . 0.0) (42 . 0.0) 
(10 2846.18 1959.25) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2842.48 1966.34) (40 
. 0.0) (41 . 0.0) (42 . 0.0) (10 2840.57 1970.54) (40 . 0.0) (41 . 0.0) (42 . 
0.0) (10 2838.94 1975.33) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2837.73 1979.69) 
(40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2836.95 1983.64) (40 . 0) (40 . 0.0) (41 . 0.0) (42 
. 0.0) (10 2874.8 1994.64) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2880.29 
1991.95) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2886.29 1988.87) (40 . 0.0) (41 . 
0.0) (42 . 0.0) (10 2892.79 1985.38) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 
2901.75 1982.47) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2904.08 1981.82) (40 . 
0.0) (41 . 0.0) (42 . 0.0) (10 2909.68 1980.62) (40 . 0.0) (41 . 0.0) (42 . 
0.0) (10 2914.99 1979.83) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2921.02 1979.42) 
(40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2925.89 1979.6) (40 . 0.0) (41 . 0.0) (42 
. 0.0) (10 2929.78 1980.1) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2936.58 
1981.32) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2945.1.0) (41 . 0.0) (42 
. 0.0) (10 2836.59 1987.17) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2836.73 
1990.3) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2837.43 1993.06) (40 . 0.0) (41 . 
0.0) (42 . 0.0) (10 2838.7 1995.44) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 
2840.53 1997.46) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2842.87 1999.05) (40 . 
0.0) (41 . 0.0) (42 . 0.0) (10 2845.66 2000.2) (40 . 0.0) (41 . 0.0) (42 . 0.0) 
(10 2848.89 2000.88) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2852.56 2001.11) (40 
. 0.0) (41 . 0.0) (42 . 0.0) (10 2856.56 2000.85) (40 . 0.0) (41 . 0.0) (42 . 
0.0) (10 2860.77 2000.06) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2865.19 1998.76) 
(40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2869.82 1996.93(10 2982.89 2020.19) (40 . 
0.0) (41 . 0.0) (42 . 0.0) (10 2985.27 2021.21) (40 . 0.0) (41 . 0.0) (42 . 
0.0) (10 2987.8 2021.75) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2990.39 2021.67) 
(40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2993.05 2020.96) (40 . 0.0) (41 . 0.0) (42 
. 0.0) (10 2995.77 2019.62) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2998.26 
2017.83) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 3000.25 2015.75) (40 . 0.0) (41 . 
0.0) (42 . 0.0) (10 3001.74 2013.37) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 
3002.73 2010.71) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))2 1983.27) (40 . 0.0) (41 . 
0.0) (42 . 0.0) (10 2950.51 1984.94) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 
2955.71 1986.88) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2960.72 1989.08) (40 . 
0.0) (41 . 0.0) (42 . 0.0) (10 2962.59 1990.51) (40 . 0.0) (41 . 0.0) (42 . 
0.0) (10 2964.65 1992.96) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2966.9 1996.43) 
(40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2969.34 2000.93) (40 . 0.0) (41 . 0.0) (42 
. 0.0) (10 2971.74 2005.58) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2973.87 
2009.52) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2977.33 2015.23) (40 . 0.0) (41 . 
0.0) (42 . 0.0) (10 2978.92 2017.2) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 
2980.78 2018.86) (40 . 0.0) (41 . 0.0) (42 . 0.0)

能获取了

[236004]张牙舞爪 09:44:55

来了，

是什么原因呀，

[pzweng][pzweng]路人 09:45:19

能对多线段获取数据了

[236004]张牙舞爪 09:45:37

把代码发给我，

[pzweng][pzweng]路人 09:46:04

只能获取多线段

[XQL]强 09:46:52

二维多段线的灵活去

[pzweng][pzweng]路人 09:47:21

其它还不知道怎么去弄

[pzweng][pzweng]路人 09:50:53

命令: _pedit
输入选项 
[闭合(C)/合并(J)/宽度(W)/编辑顶点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)
/放弃(U)]: s
输入选项 
[闭合(C)/合并(J)/宽度(W)/编辑顶点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)
/放弃(U)]: d

先样条曲线然后非曲线化

再确定

这此多线段图元名有效了

[pzweng][pzweng]路人 09:52:57

试了没有

[236004]张牙舞爪 09:52:58

这样，

[pzweng][pzweng]路人 09:53:03

试试看咯

[236004]张牙舞爪 09:53:16

CAD 打不开了，

[236004]张牙舞爪 09:56:08

重装，

关键时刻断连了

[pzweng][pzweng]路人 09:57:47

其它文字我就不知道怎么弄了

应该有方法的

[236004]张牙舞爪 09:58:42

用 EDIT  S 就可以了，还可以出 CASS的属笥

(-3 ("SOUTH" (1000 . "201101"))))

[236004]张牙舞爪 09:59:33

文字，块怎么弄 ？

[pzweng][pzweng]路人 09:59:53

d是转回来

[236004]张牙舞爪 09:59:59

是的

[pzweng][pzweng]路人 10:00:04

文字你自己试试

[pzweng][pzweng]路人 10:00:55

你这个破图害我死机了

[236004]张牙舞爪 10:01:17

今天中午有 鸡 吃了，

[pzweng][pzweng]路人 10:01:25

我编辑块出现了
致命错误

[236004]张牙舞爪 10:01:45

立即杀了，煮着吃，

[236004]张牙舞爪 10:02:35

块 和 文字，研究下，

[pzweng][pzweng]路人 10:03:39

我怀疑是线型问题

[yaoguenw]长空 10:06:40

请问一下cad布局的网格怎么去掉呢
这是cad2014的

[pzweng][pzweng]路人 10:14:25

这图害人的

[236004]张牙舞爪 10:16:35

明经快报

[236004]张牙舞爪 10:26:37

路人，辛苦你再研究下，

[Angel1995][Angel1995]Angel 10:30:20

试了 ENTLAST 好像不会

[XQL]强 10:30:49

直线添加进选择集
ssadd

[Angel1995][Angel1995]Angel 10:31:08

不是很明白

我是用框选直线变成一条多段线的

[XQL]强 10:32:08

(entlast)

[Angel1995][Angel1995]Angel 10:32:30

这个不行

只能一次

[Angel1995][Angel1995]Angel 10:33:12

如果我再重新直线命令 再框选 他就会选到上一次命令的多段线

而不是刚生成的

[Angel1995][Angel1995]Angel 10:36:47

[pzweng][pzweng]路人 10:39:31

你那图害我死机两次了

[Angel1995][Angel1995]Angel 10:39:44

阿然大神  这个是啥

(ENTLAST)可以？

[阿然][阿然] 10:40:53

为什么不行？

[XQL]强 10:41:17

(command "pedit" "m" ss "" "j" "")

[236004]张牙舞爪 10:41:26

再辛苦你的电脑死下机啊，

[Angel1995][Angel1995]Angel 10:45:24

不是说怎么合并成多段线

而是 合并后 怎么获取

[pzweng][pzweng]路人 10:45:57

我试试

[Angel1995][Angel1995]Angel 10:46:47

在程序第三次命令的时候 选取的是上次已经生成的，而不是刚刚生成的

[pzweng][pzweng]路人 10:47:10

entlast获取最后生成的图元

你执行了pe命令后就产生了一个图元

我试过了

可以的

[Angel1995][Angel1995]Angel 10:47:41

画三组 相连的线

[阿然][阿然] 10:48:01

那就是你第三次没有连接成

那就是你第三次没有连接成

[pzweng][pzweng]路人 10:48:21

三组就有三个新图元

先entlast

然后entnext

[Angel1995][Angel1995]Angel 10:50:34

选取第一个成功

[XQL]强 10:50:43

发远程 给你看看

[Angel1995][Angel1995]Angel 10:51:02

说明这三个并非 纯多段线

有直线组合 多段线与直线组合 纯多段线

[Angel1995][Angel1995]Angel 10:51:58

在第三次执行命令的时候 还会选取弟二次命令生成的那个多段线

[Angel1995][Angel1995]Angel 10:52:44

公司电脑 不远程

[pzweng][pzweng]路人 10:54:39

你怎么操作的

[Angel1995][Angel1995]Angel 10:55:03

就移动啊

[pzweng][pzweng]路人 10:55:09

三组直线相连的线，框选三组？

[Angel1995][Angel1995]Angel 10:55:24

一组

[pzweng][pzweng]路人 10:55:26

生成三组多线段?

[Angel1995][Angel1995]Angel 10:55:34

形成一条多段线

用ENTLAST获取

在进行移动

完毕

[pzweng][pzweng]路人 10:55:51

获取后你要干嘛

[Angel1995][Angel1995]Angel 10:56:05

再执行框选一组 形成....

[pzweng][pzweng]路人 10:56:34

entlast得到的是图元名

[Angel1995][Angel1995]Angel 10:56:37

移动 合并后的多段线

[pzweng][pzweng]路人 10:56:58

移动到哪？

[Angel1995][Angel1995]Angel 10:57:15

移动只是一个例子

[pzweng][pzweng]路人 10:57:21

等会

[Angel1995][Angel1995]Angel 10:57:22

就随便移动

左边往左 右边的往右 中间的往上

[dalin1985][dalin1985]大林 11:01:13

？

[Angel1995][Angel1995]Angel 11:02:19

[dalin1985][dalin1985]大林 11:03:36

小明呢

[dalin1985][dalin1985]大林 11:06:05

[pzweng][pzweng]路人 11:12:58

@[Angel1995]Angel 试试是不是你要的效果

明经快报

[xxwc520]SUN 13:14:56

你看看你的颜色设置吧

可能是颜色设置导致的

明经快报

[328302216][328302216]小莫 14:13:27

应该与颜色无关吧！

已经重装CAD了

[xxwc520]SUN 14:14:18

反正上次我就遇到过把颜色改了模型中看不见鼠标了~~但是在布局中能看见

最后改完后能看见了

[【KAIXIN】] [【KAIXIN】]炫翔 14:15:38

[qqimg]201308/{4EA2DCA8-E2CA-25D1-8B64-8D0A5992BCD7}.gif[/qqimg]

[328302216][328302216]小莫 14:16:33

批量偏移？

[【KAIXIN】] [【KAIXIN】]炫翔 14:17:20

这个是介于 上午那个朋友的BUG弄的

说ENTLAST不行

[【KAIXIN】] [【KAIXIN】]炫翔 14:21:50

后面用了 EN之后的选择集

[pzweng][pzweng]路人 14:24:19

没听懂

[【KAIXIN】] [【KAIXIN】]炫翔 14:25:54

[【KAIXIN】] [【KAIXIN】]炫翔 14:26:48

EN之后的选择集 减去 SS选取的这个选择集

等于 新合并的这个选择集

再对选择集操作

这样能听懂？

[【KAIXIN】] [【KAIXIN】]炫翔 14:28:01

后面的还个人需要了，进行批量化处理[qqimg]201308/{63533FEF-8F33-FB53-7312-0EBE86E3A589}.gif[/qqimg]

明经快报

[AMKYUD][AMKYUD]??? 16:13:48

错误: ActiveX 服务器返回错误: 无效索引。

怎样修改？

[kenroy]何为 16:14:21

选择对象，错误 参数类型错误 lselsetp.nil

[AMKYUD][AMKYUD]??? 16:14:51

nt p4))
  (vla-addline mspace (vlax-3d-point p4) (vlax-3d-point p9))
  (vla-addline mspace (vlax-3d-point p9) (vlax-3d-point p8))
  (vla-addline mspace (vlax-3d-point p8) (vlax-3d-point p2))
  (vla-addline mspace (vlax-3d-point p2) (vlax-3d-point p1))
  (setq obj00 (vla-addline mspace (vlax-3d-point p3) (vlax-3d-point p8)))
  (setq obj000 (vla-addline mspace (vlax-3d-point p5) (vlax-3d-point p6)))
  (vla-addline mspace (vlax-3d-point p6) (vlax-3d-point p7))
  (setq obj0 (vla-addline mspace (vlax-3d-point p7) (vlax-3d-point p3)))
  
    
  (command "xline" "B" p3 p7 p4 "")
  (setq e1 (entlast))
  (setq obj1 (vlax-ename->vla-object e1))
  (command "xline" "B" p7 p4 p3 "")
  (setq e2 (entlast))
  (setq obj2 (vlax-ename->vla-object e2))
  (setq p10 (vlax-safearray->list (vlax-variant-value (vla-IntersectWith obj1 obj2 acExtendNone))))
  ;(setq obj3 (vla-addpoint mspace (vlax-3d-point p10)))
  (setq p11 (vlax-curve-getClosestPointTo obj0 p10 t));;;垂足

  (setq obj4 (vla-addline mspace (vlax-3d-point p10) (vlax-3d-point p11)))
  (setq p12 (vlax-safearray->list (vlax-variant-value (vla-IntersectWith obj4 obj00 acExtendNone))))  ;交点
  (setq p13 (vlax-safearray->list (vlax-variant-value (vla-IntersectWith obj4 obj000 acExtendNone)))) ;交点
  (setq r1 (distance p12 p10)
    r2 (distance p13 p10)
  )
  (setq objc1 (vla-addcircle (mspace (vlax-3d-point p12) r1))) ;画小圆
  (setq(defun c:gx ()
  (setvar "orthomode" 1)
  (vl-load-com)
  (setq acadobj (vlax-get-acad-object))
  (setq dwgobj (vla-get-ActiveDocument acadobj))
  (setq mspace (vla-get-ModelSpace dwgobj))
 
  (setq    p1 (getpoint " 请输入左下角点:")
    l2 (getdist p1 " 请输入拱形宽度: ")
    l3 (getdist p1 " 请输入拱形直线高度: ")
    l4 (getdist p1 " 请输入拱形整体高度: ")
    p2 (polar p1 0 l2)
    p3 (polar p1 (/ pi 2) l3)
    p4 (polar p1 (/ pi 2) l4)
    p8 (polar p3 0 l2)
    p9 (polar p4 0 l2)
    p5 (polar p1 0 (/ l2 2))
    p6 (polar p3 0 (/ l2 2))
    p7 (polar p4 0 (/ l2 2))    
  )

  (vla-addline mspace (vlax-3d-point p1) (vlax-3d-point p3))
  (vla-addline mspace (vlax-3d-point p3) (vlax-3d-poi objc2 (vla-addcircle (mspace (vlax-3d-point p13) r2))) ;画大圆
)

[AMKYUD][AMKYUD]??? 16:15:23

代码如上，麻烦高手们帮忙看看

[AMKYUD][AMKYUD]??? 16:16:33

[qqimg]201308/{D3EB46B1-7950-5802-D27B-376D081A7AA1}.jpg[/qqimg]

[AMKYUD][AMKYUD]??? 16:20:39

ActiveX 服务器返回错误？  ActiveX是需要网络才可以用的吗？

[tryhi]大海 16:23:23

[qqimg]201308/{66814C93-5AD8-37C1-E0CE-AF067735F0C4}.jpg[/qqimg]

ARCGIS我想统计面积，这个选项是灰色，请问哪位知道怎么解决

[xuchunyang]春花子 16:30:56

带基点复制上一选择集的代码：
(defun c:ZX ()(command "copybase" (getpoint " 指定基点") "previous" "")
(princ)
)

[vormittag]桔子 16:33:11

(redraw ename 3)

[AMKYUD][AMKYUD]??? 16:34:02

ActiveX 服务器返回错误 是什么意思？  
ActiveX是需要网络才可以用的吗？

[xuchunyang]春花子 16:35:26

谢了

[XQL]强 16:36:11

[AMKYUD][AMKYUD]??? 16:39:31

[AMKYUD]???(350059363)  16:32:58
ActiveX 服务器返回错误 是什么意思？  
ActiveX是需要网络才可以用的吗？

[【KAIXIN】] [【KAIXIN】]炫翔 16:40:23

[qqimg]201308/{5CFAA6F8-3FAF-F3ED-D1D1-D9E0C469FE84}.jpg[/qqimg]--爱因思考？

[AMKYUD][AMKYUD]??? 16:40:58

不是