2013-07-08 明经 AutoLISP 编程(102918348) 群聊记录：有人么？

明经快报

[阿然][阿然] 10:06:28

有人么？

[金光]金光 10:07:47

这个可以有

[阿然][阿然] 10:09:48

有没有搞测绘的兄弟？帮忙找几篇建立数字地面模型的算法的文章，百度上找了几个都很粗浅

[tiyi8888]永远D痛 10:13:17

要做什么

你想

说清楚一点吧

[wosyuwu]容颜 10:19:33

那个要GIS做、

[阿然][阿然] 10:24:01

现有地形图，想建数模，很小范围的

已经有地形图带高程了

[wosyuwu]容颜 10:25:11

是啊 。。那个不太好做。。我也不太会。。只有专门做GIS内业的才弄的好。

[阿然][阿然] 10:25:35

gis是离散点建模，然后模拟出等高线吧？

[金光]金光 10:25:51

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

求纠正

[lisp-study]jun 10:26:30

GIS 4个G

[wosyuwu]容颜 10:26:46

恩

明经快报

[夏生生][x_s_s_1]生无可恋 11:01:11

用matlab模拟也可以吧

[阿然][阿然] 11:02:22

就是想在cad里弄，想自己写个lsp

[阿然][阿然] 11:05:14

主要想先了解下算法

[夏生生][x_s_s_1]生无可恋 11:05:51

仿似很难

要拓扑

[阿然][阿然] 11:06:23

恩

[yarp]潜水 11:07:19

我已经写了一个的。

[夏生生][x_s_s_1]生无可恋 11:07:21

简单一点和matlab混编

[阿然][阿然] 11:07:43

yarp兄能指点下不？

[yarp]潜水 11:08:00

就是离散点画等高线的那个吧？

[阿然][阿然] 11:08:09

不是

[夏生生][x_s_s_1]生无可恋 11:08:26

他要生成网格

[阿然][阿然] 11:08:33

比离散点画等高线会更复杂点

[yarp]潜水 11:08:45

那就是直接是三角网了，把地形用三角网表示出来？

[阿然][阿然] 11:09:25

是已经有等高线和高程点，然后根据等高线和高程点建立数模

[yarp]潜水 11:10:53

那就是建三角网嘛。

[阿然][阿然] 11:11:32

恩，也可以这么说，三角网的条件会更苛刻点

明经快报

[金光]金光 11:30:11

;删除多边形外选定图元
;思路选择所有图元-brline内部图元再执行删除命令
;希望高手帮我纠下错 
;offset 出来的多义线顶点不能获得
(defun c:cc ()
(vl-load-com)
(setq pts nil)
(setq ss1 (ssget "X" '((0 . "*line") (8 . "beam,edote"))))
(setq hl (ssget '((0 . "*line") (8 . "brline"))))
(setq s_en (ssname hl 0))
;(setq en
   mapcar '(lambda (x) (vl-catch-all-apply 'vla-offset (vlax-ename->vla-object (list s_en)) -100)
  )
;(setq en (vl-catch-all-apply '(vla-offset (vlax-ename->vla-object s_en) -100)))
  (setq en (vla-offset (vlax-ename->vla-object s_en) -100)))
(setq ent (entget(car en)))
(if (and
       (= (cdr(assoc 0 ent)) "LWPOLYLINE")
       (= (cdr(assoc 70 ent)) 1)
      ) (progn
  (foreach x ent (if (= (car x) 10)(setq pts (cons (cdr x) pts))))
  (reverse pts)
  (Princ pts)
  (setq pts (mapcar '(lambda (x) (trans x 0 1)) pts))
  (setq ss2 (ssget "WP" pts '((0 . "*line") (8 . "beam,edote"))))
))
(command "_.select" ss1 "remove" ss2 "")
(setq ss3 (ssget "p"))
(command "erase" ss3 "")
(command "erase" en "")
(princ)
)

明经快报

[金光]金光 11:41:24

删

得不到 EN的坐标点

[kwok][ww5w]行舟月下 11:43:42

直接取en顶点，pline-vertexs

[kwok][ww5w]行舟月下 11:45:08

你lsp里偏移出的那个都没选中吧

[金光]金光 11:45:50

是的

[kwok][ww5w]行舟月下 11:46:15

[金光]金光 11:47:02

[qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg]

[tiyi8888]永远D痛 11:47:29

把点变成三角网，网上有程序的

是一个外国人编写的

[金光]金光 11:48:41

其实 关键在于这里

vlax-ename->vla-object s_en) -100)))
  (setq en (vla-offset (vlax-ename->vla-object s_en) -100)))
(setq ent (entget(car en)))

没有得到生成图元 几种方式我都试过 不知道错在哪里

[夏生生][x_s_s_1]生无可恋 11:49:34

我前天不是告诉你了嘛

[vormittag]桔子 11:49:55

vla-offset 返回的不是图元名，是变体

[夏生生][x_s_s_1]生无可恋 11:52:07

[qqimg]201307/{254BFCAA-CCBF-D7B0-BE90-B4AC62A6E745}.jpg[/qqimg]

[金光]金光 11:52:32

只有一个图元生成 为什么要用LIST

[vormittag]桔子 11:53:51

entsel 只选一个图元，为什么要返回表？

[夏生生][x_s_s_1]生无可恋 11:55:05

得到你需要的就行了

[xiaomm250][lisp_](car (entsel)) 11:58:16

如何用lisp的ssget选择包含汉字的字符呢?

[金光]金光 11:58:54

还是没有达到目的啊

[夏生生][x_s_s_1]生无可恋 11:59:22

你不是要偏移后的图元吗？

你试了没有

[金光]金光 11:59:50

试了

[夏生生][x_s_s_1]生无可恋 12:00:08

(#)

[pzweng][pzweng]路人 12:00:12

你图文说明一下吧

[夏生生][x_s_s_1]生无可恋 12:00:19

这不是你要得吗？

[pzweng][pzweng]路人 12:00:27

搞不清他的目的

[金光]金光 12:00:45

http://bbs.mjtd.com/thread-102396-1-1.html 这里有图

[夏生生][x_s_s_1]生无可恋 12:00:53

别贴你那一大段

没用

[金光]金光 12:01:50

[qqimg]201307/{25D0F5E2-2BCD-4BB5-F96A-0B4E694D3091}.gif[/qqimg]

这个是偏移出来的线达到的效果

[vormittag]桔子 12:02:03

有了vlaobj 再  object->ename 呗。

[pzweng][pzweng]路人 12:02:24

你的论坛名不符

[夏生生][x_s_s_1]生无可恋 12:03:03

(setq
  obj (car
    (vlax-safearray->list
      (vlax-variant-value
        (vla-offset (vlax-ename->vla-object (car (entsel))) 1000)
      )
    )
      )
)
(vla-put-color obj 1)

[vormittag]桔子 12:03:27

原来是......

[pzweng][pzweng]路人 12:03:54

他是修剪

[夏生生][x_s_s_1]生无可恋 12:03:56

500w啊

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

好几个名称

记得以前是昆仑

现在是金光

之前还有

请用论坛用户名

[vormittag]桔子 12:05:05

我多嘴了，说这些干嘛。

[夏生生][x_s_s_1]生无可恋 12:05:37

[caoyin][caoyin] 12:05:40

vlax-invoke直接得到VLA-Object

[xiaomm250][lisp_](car (entsel)) 12:05:52

如何用lisp选择包含汉字的字符串呢?

[夏生生][x_s_s_1]生无可恋 12:05:52

曹版，和我那个有何区别

[pzweng][pzweng]路人 12:05:56

(setq b (vla-offset (vlax-ename->vla-object (car (entsel))) 100))

[xiaomm250][lisp_](car (entsel)) 12:06:04

如何用lisp选择包含汉字的文本呢?

[夏生生][x_s_s_1]生无可恋 12:06:12

那个可以用在多图元的情况是吧

[pzweng][pzweng]路人 12:06:14

只是用了个vlax-invoke

[vormittag]桔子 12:06:14

C版出来了

[caoyin][caoyin] 12:06:16

代码看起来简单一点

是

[夏生生][x_s_s_1]生无可恋 12:06:42

又学一招

[caoyin][caoyin] 12:06:48

offset产生新的对象有可能超过1个

[夏生生][x_s_s_1]生无可恋 12:07:13

也是，多义线

[xiaomm250][lisp_](car (entsel)) 12:07:15

如何用lisp选择包含汉字的文本呢?

[夏生生][x_s_s_1]生无可恋 12:07:36

ssget

[xiaomm250][lisp_](car (entsel)) 12:07:51

如何用lisp的ssget选择包含汉字的文本呢?

[夏生生][x_s_s_1]生无可恋 12:08:26

少了括号

[xiaomm250][lisp_](car (entsel)) 12:08:42

这个会把数字字母的也包含了

[金光]金光 12:08:48

还是那样

[夏生生][x_s_s_1]生无可恋 12:09:41

(ssget(list(0 . "*text")(1 . "~这里自己看帮助")))

结合-4 . and or

[caoyin][caoyin] 12:10:17

有办法过滤汉字的，忘了怎么写了

[夏生生][x_s_s_1]生无可恋 12:10:33

ascii码

[mitenickevin]kevin 12:12:04

你是要选择带汉字的，还是不带汉字的。

[xiaomm250][lisp_](car (entsel)) 12:13:07

带汉字的,但是可以有数字字母其他的

就是排除没有汉字的

[夏生生][x_s_s_1]生无可恋 12:16:04

[qqimg]201307/{5C3A8031-0C9C-8186-14B9-3434AAF53C06}.jpg[/qqimg]

[xiaomm250][lisp_](car (entsel)) 12:17:27

大家用什么来提取局部变量呀?

我用lisplink

[金光]金光 12:18:08

还是么出现 多种方法

算了 放弃

[500w008]500w008 12:23:57

[qqimg]201307/{99554392-D4ED-2A22-EEC1-57611E4EF94D}.gif[/qqimg]

[lisp-study]jun 12:26:53

lisplink
不错的

[500w008]500w008 12:29:32

[qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg] 我把98%的代码拿出来 你们不愿意帮我纠正2%的错误 

[lisp-study]jun 12:32:19

你的代码在哪儿？

明经快报

[phyld][phyld]叶末 13:43:22

问一下 各位高手有能做CAD命令记录并统计工作时间的插件吗？

[野狼谷]笨鸟 13:46:56

呵呵，能

[野狼谷]笨鸟 13:48:04

我回头遍一个函数，专门不停地绘图，随机命令循环8小时

明经快报

[phyld][phyld]叶末 14:00:36

呵呵，这么牛，这样插件害怕遇见你这样高手啊

明经快报

[阿然][阿然] 15:07:42

[qqimg]201307/{DF2F1125-F9AB-CDE4-7216-6839A7E7CEF3}.jpg[/qqimg]？

这里的obj可以是ename？

[vormittag]桔子 15:08:05

当然不行

得是vlaobject

[阿然][阿然] 15:08:41

[qqimg]201307/{638A95D6-9D04-1078-7472-074FD27CD369}.jpg[/qqimg]

c版的这个什么意思？

[阿然][阿然] 15:11:35

[qqimg]201307/{E17479E4-2F8D-8C20-9522-630A56AD427F}.jpg[/qqimg]明白了

[阿然][阿然] 15:13:36

[qqimg]201307/{780BC071-D7F2-D25D-14D6-3518937B25F3}.gif[/qqimg]

看下，为什么我offset一下，原来的线会不见了

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

距离不对吧

明经快报

[328302216][328302216]小莫 15:26:34

[qqimg]201307/{54449DE7-E712-1446-549B-258B45B9A0BB}.jpg[/qqimg]曹版 有空要多多给我们指导就不会忘了 

明经快报

[fsxm]飞诗 15:46:14

[qqimg]201307/{AA23E74A-F129-8BB4-55C5-ABC7AD40209B}.jpg[/qqimg]
广告

[阿然][阿然] 15:46:44

发广告的留下买路码

[flytoday]过^-^客 15:47:15

飞哥要广告个老婆…哪怕女朋友也好…

[fsxm]飞诗 15:50:51

[qqimg]201307/{9F8757B3-0C49-35B3-BDC7-4CFBA34B0A63}.gif[/qqimg]

[LC100]建筑设计 15:51:43

飞诗是程序员吧吧吧

[fsxm]飞诗 15:54:29

不是

[lisp-study]jun 15:59:23

飞诗又更新了？

[flytoday]过^-^客 16:07:52

明经快报

[VBALISPER]恐龙 16:38:56

[kwok][ww5w]行舟月下 16:46:25

[qqimg]201307/{FD5E4B7E-8DD4-8B22-AABA-435A3DC2A2A6}.jpg[/qqimg]

日本用的cad画图

有人用过没

[lisp-study]jun 16:47:19

[kwok][ww5w]行舟月下 16:49:32

[qqimg]201307/{A6BF3EBB-45B9-56C5-079F-EA40A6F3B6C4}.jpg[/qqimg]

[mitenickevin]kevin 16:50:05

这是什么软件啊？

[kwok][ww5w]行舟月下 16:50:32

[qqimg]201307/{EDF5B6BE-D7E5-24E2-57DE-7AC6C52219D0}.jpg[/qqimg]

[wosyuwu]容颜 16:51:02

[qqimg]201307/{347814B5-3CD8-793D-9F8C-7624C690F615}.jpg[/qqimg]？？？

[kwok][ww5w]行舟月下 16:51:33

是呀

[mitenickevin]kevin 16:53:23

等DB的吧。

[wosyuwu]容颜 16:53:25

[qqimg]201307/{1547C6A2-B11A-20DD-DAFC-4085C1D3F3CB}.jpg[/qqimg]

[kwok][ww5w]行舟月下 16:54:13

[qqimg]201307/{C6BE2229-BE23-B6AE-CE7E-8C066CEC9B8F}.jpg[/qqimg]正在下，来试试

[开1心]开心就好 16:59:18

找大大定制程序啦~有人接不

[开1心]开心就好 17:00:16

[qqimg]201307/{38691941-88C8-9421-030D-B43319C3F5B4}.gif[/qqimg]

[kwok][ww5w]行舟月下 17:02:26

论坛有个TTY好象符合你

"1、批量框剪命令：TTY；"
;"2、可选择剪贴边对应图层及待剪切图元"
;"   所在图层"

[开1心]开心就好 17:03:29

谢谢。我试试

[kwok][ww5w]行舟月下 17:05:10

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

刚搜了一下，你看看

[开1心]开心就好 17:06:22

这个我试过，不行哦

[kwok][ww5w]行舟月下 17:06:41

那就要找大定制了

[开1心]开心就好 17:06:57

嗯嗯。。我弄1个月了。没人弄出来。。把我郁闷的

[flytoday]过^-^客 17:07:00

你这个定制要安装鲁班软件进行测试

[开1心]开心就好 17:07:17

对的哦

[flytoday]过^-^客 17:07:33

没鲁班算量软件。环境下。测试都是不可行的

[开1心]开心就好 17:07:36

疯狂到我都想到外国论坛发帖子去了。

[kwok][ww5w]行舟月下 17:08:19

鲁班软件这么好？

[flytoday]过^-^客 17:08:38

没安装鲁班算量软件测试的话都是空的。。基本不行。。呵呵。。鲁班是自定义实体。非CAD实体

[flytoday]过^-^客 17:09:24

[开1心]开心就好 17:10:17

可以用学习版测试的啊