2013-06-27 明经 AutoLISP 编程(102918348) 群聊记录：cs命令呢

明经快报

[loveguo]筠筠 14:40:27

(89 12 6 6 5 4 3)
要这样？

gtj116600笑对人生 14:47:54

针对LSP爱好者(676793615) 10:17:17 
有没有把数字从小到大的排列啊

gtj116600笑对人生 14:48:25

可这样实现

[qqimg]oldimg/{28D9DA13-ED2C-20B3-03FE-B62154F5E559}.jpg[/qqimg]

gtj116600笑对人生 14:51:41

呵呵，这个法，可以得到去掉多段线DXF码的顶点坐标

((1081.02 -1139.01) (2232.08 -480.794) (3086.48 -1554.1) 
(3828.14 -267.318))

[野狼谷]笨鸟 14:53:55

[328302216][328302216]小莫 14:57:11

[qqimg]oldimg/{9A85391B-E84B-9B96-0F9F-DF65B9D67209}.jpg[/qqimg]这种常遇到的问题论坛必须有吧！

[阿然][阿然] 14:57:43

[qqimg]oldimg/{B66DCA1B-99EA-9A97-DF59-DB518B7D20DA}.jpg[/qqimg]

[阿然][阿然] 15:00:06

[qqimg]oldimg/{197FE0E0-21BA-DF67-BA4A-766010323435}.jpg[/qqimg]小莫你这个问题解决了没？

[野狼谷]笨鸟 15:00:13

这样居然成功了！

[阿然][阿然] 15:01:19

(while (not (setq ent (car (entsel "  提请选择你的范围线:")))))
放在里面如果选择到直线你就只能得到一个点

[328302216][328302216]小莫 15:01:35

我用笨办法弄的

[阿然][阿然] 15:01:56

[qqimg]oldimg/{D2164122-DCCA-28C2-526C-A176DC113F01}.gif[/qqimg]这个能不能满足要求？

[野狼谷]笨鸟 15:02:00

哦。

[328302216][328302216]小莫 15:02:54

  就是想要这种的了

我用的笨办法还有挺多漏洞的呢

[阿然][阿然] 15:03:28

漏洞都有，看着补吧

给你个代码

[onandoff] 15:04:04

[328302216][328302216]小莫 15:04:13

多谢 阿然兄

[328302216][328302216]小莫 15:11:59

好的  我慢慢研究一下

明经快报

[mmh1][mmh1]漫步地球 15:23:12

我试了下，有问题！

[qqimg]oldimg/{A38C4AA1-A946-DBA1-8B69-9AE77274485C}.jpg[/qqimg]

全没了

[328302216][328302216]小莫 15:24:51

嗯 如果是用直线画 好像是全没了，多段线的可以

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

我刚刚试的是用画矩形的命令弄的对象...多段线的好像也不行

我刚刚试的是两个矩形弄到一起的！

[mmh1][mmh1]漫步地球 15:27:03

恩，两个矩形只要reg，然后union就可以

[328302216][328302216]小莫 15:28:36

晕了  今天早上我就用这两命令试了N多次什么反映都没有，现在又可以了 

弄得折腾了半天...

[阿然][阿然] 15:29:23

我这边测试没有问题，两个矩形挨着

[mmh1][mmh1]漫步地球 15:30:04

哦，我是直接线画的

[328302216][328302216]小莫 15:30:14

嗯  如果是两个矩形挨着的 可以实现，如果是用多段线或直线画的就会全部消失了

[阿然][阿然] 15:30:15

直线画的挨着也没有问题

[mmh1][mmh1]漫步地球 15:30:38

我先画矩形，然后画三边

用pline和line都不行

[阿然][阿然] 15:31:46

[qqimg]oldimg/{C3FA2A7C-93F5-0D86-C5E1-A87A32373C46}.gif[/qqimg]

[328302216][328302216]小莫 15:31:53

我用的是CAD2012

[mmh1][mmh1]漫步地球 15:32:04

我2008

[阿然][阿然] 15:32:12

哦，不能三边

每个矩形都要闭合

[mmh1][mmh1]漫步地球 15:33:12

用bo可以合并，就不知道怎么确定两个矩形的内点

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

OK的  我刚刚画的是矩形重叠部分没画所以就会全部消失了

[mmh1][mmh1]漫步地球 15:34:31

o

[Little-E]落 15:35:54

0 0

[Little-E]落 15:38:32

求最简单方法实现在字符串中指定位置插入感叹号，例："天真热！"变成 "天真！热！"

[Little-E]落 15:41:30

nice

[冷面修罗] 15:41:36

把真替换成真！

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

[冷面修罗] 15:41:47

这个应该是最简单了么

[阿然][阿然] 15:41:53

说的没错！

[328302216][328302216]小莫 15:42:06

[Little-E]落 15:42:18

= =！好吧，加上限制条件..代码实现

[野狼谷]笨鸟 15:42:29

先将字符串转成表，然后vl-posizion查询表内容，然后在将新表串一起成新字符串

[阿然][阿然] 15:43:19

[qqimg]oldimg/{1F1311BB-E97B-1D7E-66E3-145C8C0EDADB}.jpg[/qqimg]

[Little-E]落 15:43:27

这个可以有

[Little-E]落 15:45:01

但如果在一个字符串内多个位置插入空格的话..就扫嫌麻烦了吧

[vormittag]桔子 15:46:47

(strcat (substr str 1 n) "!" (substr str (1+ n)))

[Little-E]落 15:48:03

[qqimg]oldimg/{461C369B-15F9-1CFD-0CB3-23F80143F4B2}.gif[/qqimg]这个方法好，谢谢橘子哥..

[阿然][阿然] 15:48:39

要叫柚子哥！比桔子大很多

[328302216][328302216]小莫 15:49:05

[Little-E]落 15:49:14

[qqimg]oldimg/{32C10185-6D30-CB8C-131C-CFEC054CA187}.jpg[/qqimg]

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

[qqimg]oldimg/{704D2E27-67E2-52A8-5E8E-A85E83A89AEC}.gif[/qqimg]

[vormittag]桔子 15:52:53

有汉字可不行。

[Lwcdgl]coming 15:53:23

包围框的函数是那个?

[阿然][阿然] 15:53:36

估计就是要不删除重复的vl-sort

[Little-E]落 15:53:59

有汉字也行，偶数的没啥

[vormittag]桔子 15:55:15

对，就是这个问题，关键是字符的实际位置。

[vormittag]桔子 15:56:14

"天a气b真c热"。这可不是就一个偶数能搞定的。

[Little-E]落 15:56:32

动态调整

[Little-E]落 15:57:52

对于要插入的点 事先把坐标定位 如"天气真热" 对应（3 5 7），当插入一个后，坐标后移一位（4 6 8）依次类推 可以完成

三次后完成 天a气b真c热

应该可以把

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

[阿然](346853401)  15:48:35
要叫柚子哥！比桔子大很多

[mitenickevin]kevin 15:59:10

[Little-E]落 15:59:35

[qqimg]oldimg/{E492B265-39D7-4DC9-7BFD-E73B871A881F}.jpg[/qqimg]以后就叫柚子哥了，我看行

[328302216][328302216]小莫 16:03:24

命令: (setq str"撒旦法135分lj速度")
"撒旦法135分lj速度"
命令: (setq n 1)
1
命令: (strcat (substr str 1 n) "!" (substr str (1+ n)))
"?龅┓?35分lj速度"
用这种方法还可以弄乱码

[Little-E]落 16:03:54

汉子被拆了

汉字

[328302216][328302216]小莫 16:04:38

拆成乱码了

明经快报

[天财]天财 16:14:58

[qqimg]oldimg/{893C7476-4CA1-39F6-C35E-81FBBA331218}.gif[/qqimg]

[mmh1][mmh1]漫步地球 16:18:13

宋体的怎么拆？

明经快报

[小伟jeny]小伟 16:28:59

问个问题

[小伟jeny]小伟 16:29:43

entmake lwpolyline 把节点坐标都放在最后可以么？

gtj116600笑对人生 16:30:30

没有问题

[小伟jeny]小伟 16:31:33

entmake lwpoline都得有啥？

明经快报

[小伟jeny]小伟 16:45:09

谢谢

组码360是什么意思？

[冷面修罗] 16:49:22

[qqimg]oldimg/{903CF6A0-0A2C-B079-C146-A1CAB2CC551B}.jpg[/qqimg]

明经快报

[328302216][328302216]小莫 17:08:10

(defun c:tofas( / lspname)
  (setq lspname (getfiled "选择文件" "" "lsp" 8))
  (vlisp-compile 'st lspname)
  (prin1)
)
我用这个程序把lsp文件编译成fas文件后用不成是怎么回事？

明经快报

[dcl1214]昌立 17:18:17

谁知道lisp如何调用DwgThumbnail.ocx来预览图块啊？

gtj116600笑对人生 17:18:50

太高深，新手，不会

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

我也想知道

[328302216][328302216]小莫 17:19:19

源程序我试过， 没问题，而且用lisp编辑器里面编辑可以运行，可以是这CAD出问题了

[328302216][328302216]小莫 17:20:14

错了怎么还能生成fas文件？  我也是哪天在猫的群里学的

[小伟jeny]小伟 17:21:03

请教 怎么把两个表合并起来阿

[vormittag]桔子 17:21:21

append

[小伟jeny]小伟 17:24:09

谢谢

entmake怎么不出来图元呢 也没报错

可能是什么原因呢

[pzweng][pzweng]路人 17:25:47

缺少条件吧

[vormittag]桔子 17:25:51

坐标是OCS坐标，不是UCS坐标

放大看看，是不是跑偏了。

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

ocs全称是什么

[vormittag]桔子 17:27:02

如果返回值不是nil，那就应该作出曲线了。

对象坐标系。

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

entmake做出来的块坐标原点都不知道在哪里

[vormittag]桔子 17:28:19

块插入点也是对象坐标系。

[小伟jeny]小伟 17:34:19

还是不出来呢

[vormittag]桔子 17:34:41

代码看看。

明经快报

[328302216][328302216]小莫 17:51:10

把lsp文件编译成fas是选择   文件——生成应用程序（这里选的哪个？）

[kwok][kwok]巭隼 17:52:06

专家也行，普通模式也行

[328302216][328302216]小莫 17:52:49

我记得好像有一种是只生成FAS不生成vlx的哦

[kwok][kwok]巭隼 17:53:42

同时生的俩个

明经快报

雾迷山 19:22:50

如何用lisp激活EXCEL中的一个指定的单元格

明经快报

[VBALISPER]恐龙 19:36:01

激活了想干嘛

[冷面修罗] 19:36:36

查找  替换

雾迷山 19:37:53

如何读取任意cell的值

[VBALISPER]恐龙 19:39:27

[论坛用户名]哪去了

雾迷山 19:45:28

如何用lisp读取EXCEL中任意cell的值

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

取出A1单元格的内容

[野狼谷]笨鸟 19:54:11

[VBALISPER]恐龙 19:54:24

你这个这么简单，不要其它函数支持？

[野狼谷]笨鸟 19:54:31

table1 table2

[236004]张牙舞爪 19:55:07

不要

VLAX 就是简单

你试下

[VBALISPER]恐龙 19:56:14

哦。VLAX和VLX的区别是什么？

[236004]张牙舞爪 19:56:21

[qqimg]oldimg/{A10E1D3D-0E44-3C3F-DCEF-665175A71125}.jpg[/qqimg]

[ZZXXQQ] 19:56:23

前提是EXCEL表格已经打开

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

[qqimg]oldimg/{394E937F-9047-7EB0-545A-890ACC41CD41}.jpg[/qqimg]

可以弄后台的

雾迷山 19:59:57

谢谢！

这个问题困了好多天了

一直没解决得了

现在明白了

関吣 20:00:44

你们解决了，我问个哦，初学者请教。。如何每次输入一个命令，比如xx，就跳出来一段字
比如
;;;;;;;;;;;;;;调用命令框
(defun c:xx()
setq xx



(alert (princ " ★  图层显示：以【fr】启动命令。 ")
(princ)


中间这段要怎么写啊。

[alwtyp][alwtyp] 20:02:19

调个命令还出来个消息框，不是存心找骂嘛

関吣 20:02:40

额。。

我怕忘记快捷键啊。。

我自己用的哈

[仲文玉][仲文玉]wygjx 20:03:08

[alwtyp][alwtyp] 20:03:16

你都执行命令了，还怕忘记？

[野狼谷]笨鸟 20:03:39

实数向上取整方法：
(setq a 7.55)
(setq a(fix (+ a 0.5)))

関吣 20:03:43

我要打一串命令的啦，我只是写了一条哦。

[ZZXXQQ] 20:03:45

不知道到底想干啥

[仲文玉][仲文玉]wygjx 20:03:51

脱裤

関吣 20:04:07

関吣 20:05:17

[qqimg]oldimg/{CFA44AEF-5922-56B5-9DD9-3D0AE756DB80}.jpg[/qqimg]

跟这个意思一样的啊，输入ACX就跳出来命令提示啊

[alwtyp][alwtyp] 20:06:41

还不如做个TXT文件，把命令都记在上面

[VBALISPER]恐龙 20:07:13

做个菜单，不好？

関吣 20:07:16

TXT的写了啊。。我只是想直接在CAD上查询

菜单不会做

[alwtyp][alwtyp] 20:07:38

那就像恐龙说的，做个菜单

[ZZXXQQ] 20:07:39

做个帮助文件

[q530496591][q530496591]小菜鸟 20:07:57

真有才

[pzweng][pzweng]路人 20:07:58

群昵称修改为“[论坛用户名]网名”格式，如果你未加入明经CAD社区，请先到http://bbs.mjtd.com注册用户。

関吣 20:08:21

[q530496591][q530496591]小菜鸟 20:08:36

字符串一下不就好了

関吣 20:08:53

怎么弄啊，

[q530496591][q530496591]小菜鸟 20:09:22

(alert "[命令查询]  111  222")

[VBALISPER]恐龙 20:09:30

查看别人的菜单文件.mnu怎么做的

马上修改马甲 20:09:56

额。alert这个我修改完了，一串的命令都弄上去了

就是不知道怎么调用啊

mnu我再学学哈

[q530496591][q530496591]小菜鸟 20:10:19

(defun c:xx ()

[q530496591][q530496591]小菜鸟 20:10:49

(defun c:xx ()
  (alert "[命令查询]  111  222")
)

马上修改马甲 20:10:50

;;;;;;;;;;;;;;调用命令框
(defun c:xx()
setq xx



(alert (princ " ★  图层显示：以【fr】启动命令。 ")
(princ)

额。这么简单啊。。。

[q530496591][q530496591]小菜鸟 20:11:26

[qqimg]oldimg/{B259445B-CC35-9BBD-8EBC-549C35F10D0B}.jpg[/qqimg]

[286168051]勤龙 20:11:31

正确吗

开1心 20:11:50

不跳出来哦

[286168051]勤龙 20:12:27

(alert (princ

本身就是一个错误

[q530496591][q530496591]小菜鸟 20:12:33

输入XX不就跳出来了？

[286168051]勤龙 20:12:39

(alert str.....)

[alwtyp][alwtyp] 20:12:42

在这里加这句 SETQ XX做什么，又没用

开1心 20:13:22

(defun c:xx ()
  (alert "[命令查询]  111  222")
)

这个可以啊，我刚才少了个括弧了

谢谢哦~

[q530496591][q530496591]小菜鸟 20:14:00

我菜鸟！

开1心 20:14:06

我比你菜。。。

[pzweng][pzweng]路人 20:14:34

改名片

开1心 20:15:30

我网站的名字叫   开1心   啊

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

看群规

开1心 20:15:59

额。。

[开1心]开心就好 20:17:13

好像对了。