2013-09-29 明经 AutoLISP 编程(102918348) 群聊记录：请问cad字体，shx格式要用什么软件才打开，

明经快报

[死者不舞] 12:21:49

请问cad字体，shx格式要用什么软件才打开，

明经快报

[flytoday]过^-^客 13:49:14

网蜂老大今天在不

[flytoday]过^-^客 13:54:53

编号     X坐标值        Y坐标值
1     2890508.520     454219.228     
51     2890544.190     454188.331 
用网蜂老大的安装手机测量
显示长度为47.1908
方位角为319.101214度

谁能画个示意图说明下这个方位角指的是哪个角
谢谢

[flytoday]过^-^客 13:56:05

网蜂老大出来说明下谢谢

[flytoday]过^-^客 13:59:33

哪位测量高手给解下谢谢

[cie0588][cie0588] 14:03:08

[qqimg]201309/{4FC71071-A2FE-F56A-214D-B98544AA4704}.jpg[/qqimg]

[flytoday]过^-^客 14:05:46

哥你太牛B

搞明白了谢谢

[ahwx0814]雨中漫 14:06:02

[qqimg]201309/{B36128BE-1FB0-5556-A0C8-F177D399AD02}.jpg[/qqimg]

[flytoday]过^-^客 14:06:51

谢谢兄弟们

[cie0588][cie0588] 14:08:37

工程坐标和数学坐标是反的。。

X向上，Y向右

[flytoday]过^-^客 14:09:57

[qqimg]201309/{671A6FF9-A521-CD10-2454-4E2D1B144B86}.jpg[/qqimg]但是CAD界面是这样的是为什么这个

[cie0588][cie0588] 14:10:39

CAD是数学坐标。

[ahwx0814]雨中漫 14:10:40

测量坐标和CAD的坐标系不太一样

其实也就旋转90°的问题

[cie0588][cie0588] 14:11:23

图纸一般都是北朝上的咯。。。

[flytoday]过^-^客 14:13:21

谢谢了你是网蜂老大吗

[pzweng][pzweng]路人 14:14:36

也是一位高手

[cie0588][cie0588] 14:15:02

不是。工作与测量有点关系

[flytoday]过^-^客 14:17:02

高手，，谢谢了。。。

今天接个了新工地

明经快报

[丽丽星空] 15:05:12

获取了图块的插入点，然后用程序再重新插入，插入点会偏离一小段距离，这是什么原因？

[野狼谷]笨鸟 15:08:46

应该不会吧

记得把对象捕捉关闭

[丽丽星空] 15:10:32

原来是捕捉搞鬼

[野狼谷]笨鸟 15:10:57

[丽丽星空] 15:11:08

为什么捕捉会有影响？奇怪

[野狼谷]笨鸟 15:11:35

插入点旁边有实体

[丽丽星空] 15:12:32

捕捉有类似吸磁作用？

明经快报

[野狼谷]笨鸟 15:30:53

有高手在吗？
请教一个问题，如果把自己电脑软件给局域网进行共享链接？就是说运行同事用自己二次开发的cad工具，而不用提供软件安装

[taohuaxiao]非主流 15:31:10

怎样用vlisp设置真彩色，有知道的么？(vla-put-Color Object Value)设置不了啊。

[阿然][阿然] 15:36:00

(vl-load-com)
(defun c:Example_TrueColor()
    ;; This example draws a line and returns the RGB values
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    (setq color (vlax-create-object "AutoCAD.AcCmColor.19"))
    (vla-SetRGB color 80 100 244)
    
    (setq startPoint (vlax-3d-point 1 1 0)
          endPoint (vlax-3d-point 5 5 0))

    (setq modelSpace (vla-get-ModelSpace doc))
    (setq lineObj (vla-AddLine modelSpace startPoint endPoint))
    (vla-ZoomAll acadObj)
    
    (vla-put-TrueColor lineObj color)
    (setq retcolor (vla-get-TrueColor lineObj))
    
    (alert (strcat "Red = " (itoa (vla-get-Red retcolor))
                   " Green = " (itoa (vla-get-Green retcolor))
                   " Blue = " (itoa (vla-get-Blue retcolor))))
)

[pzweng][pzweng]路人 15:36:03

这样不行

[pzweng][pzweng]路人 15:37:25

(vlax-create-object "AutoCAD.AcCmColor.19")
这个才是关键

[no13bus]13公交车 15:37:44

ssget "_WP" 四边形list表

这样为啥有时候选择不到多边形里面的图元你e

路人知道吗

[野狼谷]笨鸟 15:38:27

[pzweng]路人(20787433)  15:35:50
这样不行
这样是哪样？有没有别的招？

[pzweng][pzweng]路人 15:38:30

表的值看看

[no13bus]13公交车 15:38:33

类似这样的多边形

[qqimg]201309/{0675BF85-251B-371D-D242-3960CD8FD8AA}.jpg[/qqimg]

[stoyer][stoyer] 15:38:45

里面的图元和多边形相交。

[pzweng][pzweng]路人 15:38:55

你先用一个矩形试试

不要搞那么多点

[no13bus]13公交车 15:39:18

((87476.6 548.433) (93515.6 17991.3) (96460.6 16971.7) (96549.1 17227.4) 
(102482.0 27620.9) (89647.8 34992.3) (85477.8 36436.0) (85543.3 36625.0) 
(58895.2 45851.0) (56821.3 46569.0) (35413.6 46568.9) (35413.6 54668.9) 
(18313.6 54668.8) (18313.6 38468.8) (913.631 38468.8) (913.732 14168.8) 
(39763.7 14168.9) (52545.2 9822.84) (52828.0 10639.5) (59767.1 8237.05) 
(60650.5 10788.5) (72840.2 6568.19) (72153.2 4583.75) (80941.4 1541.17) 
(81334.3 2674.99) (87478.4 551.851))

矩形啥的都没问题

[pzweng][pzweng]路人 15:39:28

你先试试简单的表

[no13bus]13公交车 15:39:30

就是这个有问题

灰常诡异

能帮忙看看吗

我东西传到共享了

[pzweng][pzweng]路人 15:40:31

我下不了

[no13bus]13公交车 15:40:55

再看看

有没有

测试.dwg 多边形选择

四边形 五边形啥的都没问题

这个灰常诡异

[taohuaxiao]非主流 15:41:35

(vlax-create-object "AutoCAD.AcCmColor.19")
然后呢？怎么改为真彩色？

[no13bus]13公交车 15:41:36

憋了好几天了 没解决

[pzweng][pzweng]路人 15:42:11

阿然不是有例子吗

你怎么不看

[no13bus]13公交车 15:42:38

不是跟我说的吧

[野狼谷]笨鸟 15:43:03

有高手在吗？
请教一个问题，如果把自己电脑软件给局域网进行共享链接？就是说运行同事用自己二次开发的cad工具，而不用提供软件安装

[taohuaxiao]非主流 15:43:17

语句太多了。。有直接点的么？

[仰望空]星空 15:43:35

可以

[taohuaxiao]非主流 15:43:36

(vla-put-Color Object 76 76 76)不行么？

[仰望空]星空 15:44:11

设置成网络映射器

[野狼谷]笨鸟 15:44:24

比如cad呢

就是给别人访问使用我的cad的权限

不是简单文件共享

目的也就是源代码保密作用

明经快报

[pzweng][pzweng]路人 15:57:41

(setq color (vlax-create-object "AutoCAD.AcCmColor.19"))
    (vla-SetRGB color 80 100 244)
(vla-put-TrueColor lineObj color)

就这三句就可以设置真彩色

[野狼谷]笨鸟 15:58:59

路人，看来是高手，我的问题顺便给回答了呗

[pzweng][pzweng]路人 15:59:24

你看错了

[lisp-study]jun 15:59:45

他就是高手 你没看错

[野狼谷]笨鸟 16:01:53

[野狼谷]笨鸟 16:03:28

大家来讨论一下呗，如何保护二次开发知识产权

[xiaomm09]江湖 16:03:47

去申请专利

[野狼谷]笨鸟 16:03:55

网络服务器模式应该是最合适的

[Chpmould]Bluebird 16:03:57

[mccad][MCCAD] 16:04:05

要保护，用ARX

[野狼谷]笨鸟 16:04:38

就是给对方一个链接，只能访问这个软件，不能查看和拷贝相关安装文件夹

[mccad][MCCAD] 16:04:40

不然就远程计算，本地给结果

[野狼谷]笨鸟 16:04:54

[MCCAD](3886683)  16:04:27
不然就远程计算，本地给结果

有点这个意思

[Chpmould]Bluebird 16:05:00

太复杂了

[野狼谷]笨鸟 16:05:08

但是CAD如何远程计算ne ?

又不是网页，输入一个数据

[野狼谷]笨鸟 16:06:17

我想是别人用我电脑的CAD工具，然后成果通过邮件设置直接发到他邮箱

[仰望空]星空 16:07:03

讲该文件共享

[野狼谷]笨鸟 16:08:04

不知道从哪个方向去研究

[taohuaxiao]非主流 16:11:03

(setq a (car(entsel)))
(setq lineobj (vlax-ename->vla-object a))
(setq color (vlax-create-object "AutoCAD.AcCmColor.19"))
    (vla-SetRGB color 80 100 244)
(vla-put-TrueColor lineobj color)
 不好使啊
。

[Chpmould]Bluebird 16:12:40

那就直接调用颜色对话框

[taohuaxiao]非主流 16:13:18

用change

[pzweng][pzweng]路人 16:15:22

非主流

非主流你用什么版本

[wosyuwu]容颜 16:16:10

请问一下我要给条多段线赋标高怎样弄呢？
貌似setvar这个不行啊。。求大神

[taohuaxiao]非主流 16:16:19

2006

[pzweng][pzweng]路人 16:18:15

(setq a (car (entsel)))
(setq lineobj (vlax-ename->vla-object a))
(setq color (vlax-create-object "AutoCAD.AcCmColor.16"))
(vla-SetRGB color 80 100 244)
(vla-put-TrueColor lineobj color)

[taohuaxiao]非主流 16:20:53

好用了。

[wosyuwu]容颜 16:22:03

[Chpmould]Bluebird 16:22:31

[qqimg]201309/{BAA5A47B-B61A-3DD0-D50E-8C172D89D28C}.gif[/qqimg]

[yxp]小蜜蜂 16:32:04

acad_colordlg 函数不行吗？还要编个程序测试

[Chpmould]Bluebird 16:35:08

这是很早之前写的，今天看到有人在问，所以就贴出来了,以便问的人去参考

[Chpmould]Bluebird 16:38:57

设置GBR[qqimg]201309/{62447E88-F9A5-ECE3-AE40-D2BE421530E6}.jpg[/qqimg]

[pzweng][pzweng]路人 16:40:44

这要lisp

明经快报

[no13bus]13公交车 16:53:52

http://bbs.mjtd.com/thread-107823-1-1.html

谁能解决呀

[mccad][MCCAD] 16:53:59

Acad_TrueColorDlg

[no13bus]13公交车 16:53:59

高手们

灰常诡异的问题

[no13bus]13公交车 16:56:23

晕 咋穿不上附件呢

[no13bus]13公交车 16:58:00

晕

到底怎么了 附件上传不了

[@3886683,@[MCCAD]]

明经快报

[mccad][MCCAD] 17:15:50

你混这么多年，还不知道附件怎么上传？

[yxp]小蜜蜂 17:16:30

哈

[yxp]小蜜蜂 17:17:01

怪事总是可以有的

[no13bus]13公交车 17:17:25

知道

但是现在穿不上去

server error

[mccad][MCCAD] 17:19:47

[qqimg]201309/{E7B2F429-B291-9B49-85D6-176F55FBFD88}.jpg[/qqimg]

[yxp]小蜜蜂 17:20:02

服务器下班了

[no13bus]13公交车 17:21:05

哦

我这里不行

可能运气不好

传了2次

还是不行

[yxp]小蜜蜂 17:21:37

压缩呗

[kwok][ww5w]行舟月下 17:21:42

换个浏览器

[no13bus]13公交车 17:21:45

36k

还有压缩呀

chrome 360全部失败

[kwok][ww5w]行舟月下 17:22:28

ie试过不

注意文件格式，有些不支持的

[mccad][MCCAD] 17:22:47

我刚才是用chrome传的

[no13bus]13公交车 17:23:13

dwg不支持？

[mccad][MCCAD] 17:23:22

直接

支持

[kwok][ww5w]行舟月下 17:25:00

我一般也用chrome,比什么都好用

[no13bus]13公交车 17:25:40

可以了

360又换内核了

明经快报

[no13bus]13公交车 17:36:27

http://bbs.mjtd.com/forum.php?mo ... mp;page=1#pid612290

谁能帮忙看看呀

ssget选择不上

多边形里面的图元

诡异

明经快报

[浮世小半生]X 18:02:00

[qqimg]201309/{6E9E482B-D28F-CE4A-FEDE-0A9C9F4F7D02}.jpg[/qqimg]箭头为什么这么大

明经快报

[q3_2006]q2 18:12:51

重建一个边界就行了。。[@364416072,@[no13bus]13公交车]

[浮世小半生]X 18:13:17

q2

[qqimg]201309/{257CA2CB-C510-F873-2912-5173EF670444}.jpg[/qqimg]箭头是什么情况 
为什么变得这么大

大小同样是1

[pzweng][pzweng]路人 18:14:26

看属性

看样式

[浮世小半生]X 18:15:15

[qqimg]201309/{C0977BFA-DABF-4DBE-A1B2-55493A779D20}.jpg[/qqimg]

还有哪里要看的

[qqimg]201309/{2E140D73-4BA4-4A3C-A54B-18498AFB7D12}.jpg[/qqimg]

同一张图 变化这么大?

why?

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

属性

[浮世小半生]X 18:20:12

((-1 . ) (0 . "DIMENSION") (330 . ) (5 . "1F9E7") 
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "DIM") (100 . 
"AcDbDimension") (280 . 0) (2 . "*D789") (10 14651.7 -11883.7 0.0) (11 14539.2 
-11433.7 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) 
(42 . 900.0) (73 . 0) (74 . 0) (75 . 0) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 
0.0) (210 0.0 0.0 1.0) (3 . "sz-50") (100 . "AcDbAlignedDimension") (13 14132.1 
-10983.7 0.0) (14 14132.1 -11883.7 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 
0.0) (50 . 1.5708) (100 . "AcDbRotatedDimension"))

((-1 . ) (0 . "DIMENSION") (330 . ) (5 . "1F9FD") 
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "DIM") (100 . 
"AcDbDimension") (280 . 0) (2 . "*D790") (10 734.0 -12147.0 0.0) (11 2528.25 
-11997.0 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) 
(42 . 3588.5) (73 . 0) (74 . 0) (75 . 0) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 
0.0) (210 0.0 0.0 1.0) (3 . "DIMN50") (100 . "AcDbAlignedDimension") (13 4322.5 
-14794.0 0.0) (14 734.0 -13228.5 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 
0.0) (50 . 0.0) (100 . "AcDbRotatedDimension"))

没有区别啊

[q3_2006]q2 18:22:25

[qqimg]201309/{A0039E38-0994-69CA-3BAB-BA501A967E34}.jpg[/qqimg][qqimg]201309/{32715FB5-2B46-3A21-1212-4FD4D55733FC}.jpg[/qqimg]

可以下班了。。

[浮世小半生]X 18:22:58

标注名称不一样那没有关系啊

[浮世小半生]X 18:23:32

[qqimg]201309/{6AE8C575-94DE-AAB1-839B-D8D2E7BE0B57}.jpg[/qqimg]同样是1

为什么那个那么大

[q3_2006]q2 18:24:00

图在你手上。。只有你知道！

[浮世小半生]X 18:24:17

我发给你试试 如何

[pzweng][pzweng]路人 18:24:39

你发给我看看

2004

[浮世小半生]X 18:24:42

那也就是说这个问题不常见

[q3_2006]q2 18:24:42

自己试，刷一下。。

[浮世小半生]X 18:24:52

ok

[浮世小半生]X 18:26:29

刷是可以  我就是想知道原因

为什么会这样

[pzweng][pzweng]路人 18:27:43

你的小箭头怎么不放进去

[浮世小半生]X 18:28:39

==

好了

重新打给你