2013-07-05 明经 AutoLISP 编程(102918348) 群聊记录：请问一下各位高手，那个AUTO lisp插件可以解密不

明经快报

[随风] 08:42:17

请问一下各位高手，那个AUTO lisp插件可以解密不

[野狼谷]笨鸟 08:51:40

[caoyin] 在吗？？

[csc123456]顽强 08:54:30

溺水不超过1个小时，东莞道滘镇村民民间救人方法：从河里救出两名溺水幼儿。孩子已没有呼吸， 村民就用当地特有的急救法，攥着孩子双脚，倒背着孩子跑步。几分钟后，小男孩吐出几口水来，哇地一声哭了。又跑了起码十分钟，小女孩也从死神的手中被拉扯了回来。请扩散，暑假快到了，不知多少孩子要下水游泳，赶紧转，说不定可以救很多人。医师强调,如果每个收到这份邮件的人,能够转发十份给其他人,肯定至少有一条生命将会被挽救回来，我已经做了我的部分了！ 希望你也做你的部分。请转寄转发！爱心传递

[tiyi8888]永远D痛 08:57:33

我亲戚就采取这种方法救过一个女孩子的

是真的

我相信

明经快报

[LC100]建筑设计 09:11:58

一小时内还能救活？？？

[tiyi8888]永远D痛 09:14:41

不知道是多长时间，后来那个小孩子人家就说她，气股子

大肚子的

反正是救活了

时间真不知道是多长的

如果不那样救，肯定死定了

现在那个小孩也结婚了吧

好多年没回老家了

[随风] 09:24:21

AUTO 插件VLX格式文件怎么查看代码啊？一打开全部乱码了

有高手知道吗

[soly2006]季鸟 09:25:00

已经打包了的，目的就是不让你看

[随风] 09:25:41

嗯，是的，呵呵，有没有办法可以看啊

[kwok][kwok]巭隼 09:26:02

找高手反编译

付钱

[随风] 09:26:37

群里有人会么

[yarp]潜水 09:27:08

会的都被踢出去了。

[soly2006]季鸟 09:27:10

干这些折寿的事，没人说会

[小伟jeny]小伟 09:27:12

这种事 容易遭人唾弃

[蔡__洛]不快乐 09:27:12

最近在严打 低调点兄弟

[随风] 09:27:23

嗯，知道了，呵呵

都是高手

[蔡__洛]不快乐 09:27:41

不劳而获是可耻的哦。。

[soly2006]季鸟 09:28:16

想要什么功能，最好搜源码，悄悄用就是

[随风] 09:28:33

嗯，自己动手，丰衣足食，谢谢各位朋友指点！

明经快报

[野狼谷]笨鸟 10:31:50

(setq Baspoint_List '((-613.92 293.291) (-459.556 293.291) (-459.556 224.674)))
(setq number 1)
(command "pline")
(command (nth 0 Baspoint_List))
(while (nth number Baspoint_List)
     (command (nth number Baspoint_List))
     (setq number (1+ number))
)
(command " ")

明经快报

[金光]金光小子 11:37:29

有没高手 帮我完善个LSP http://bbs.mjtd.com/forum.php?mo ... mp;page=1#pid595612

[328302216][328302216]小莫 11:39:22

换马甲了

[金光]金光小子 11:40:11

被你认出来了

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

[金光]金光小子 11:42:32

[qqimg]201307/{C5253EE0-7331-7ED3-A9B3-ABFD7D6163A2}.GIF[/qqimg]

明经快报

[野狼谷]笨鸟 12:25:50

(vla-put-Lineweight (entlast) 20)

明经快报

[xiaomm250][lisp](car (entsel)) 14:56:39

假设一个字符串中有多个左括号 ( ,那么如何找到最后一个 (在字符串中的位置呢?

[caoyin][caoyin] 15:01:05

(- (strlen STR)
(vl-position 40
 (reverse(vl-string->list STR))
))

[lisp-study]jun 15:01:06

把字符串反过来查找

[xiaomm250][lisp](car (entsel)) 15:01:40

不错!

[lisp-study]jun 15:03:01

[caoyin]请问ssget选不到屏幕为的有没有好的办法解决

[不死猫][nonsmall]不死猫 15:03:28

zoom pa pb
 ssget
zoom p

[lisp-study]jun 15:04:07

不用zoom可以不？

[caoyin][caoyin] 15:04:31

不在屏幕显示范围的ssget无能为力

[不死猫][nonsmall]不死猫 15:04:31

ssget x

[lisp-study]jun 15:05:12

x是全部了 我想用ptlist选择

vla能解决么

[caoyin][caoyin] 15:05:48

不行

除非遍历，那就慢了

[lisp-study]jun 15:06:19

哦 看来只能zoom了 主要是图形大了 zoom一下会卡

明经快报

[VBALISPER]恐龙 17:33:56

请问G版是不是写了一个CAD2EXCEL的程序啊.找了半天没找到.只找到一个Excel2CAD

明经快报

[caoyin][caoyin] 17:48:33

谁用天正软件，请帮转换一下格式

[VBALISPER]恐龙 17:48:57

前天提问最积极那位.呵呵

[caoyin][caoyin] 17:49:11

哪个？

[VBALISPER]恐龙 17:49:47

[LC100]建筑设计(215241411) 22:10:20

在的话,听到你的召唤,应该已经出现了.

[caoyin][caoyin] 17:50:25

不在线

[VBALISPER]恐龙 17:51:33

请问一下,两个命令同名了,都是TT,怎么改其中一个,都没有源码,都希望能加载.

[caoyin][caoyin] 17:54:39

方法有，要想一下

[VBALISPER]恐龙 17:55:00

哦.等你.谢谢.

[328302216][328302216]小莫 17:57:45

坐等曹版解答

[caoyin][caoyin] 17:59:24

呵呵，一下子想不出了

[VBALISPER]恐龙 17:59:35

[qqimg]201307/{B070C509-2B88-5C7B-A43E-98FB6BC370A0}.gif[/qqimg]

[野狼谷]笨鸟 18:00:53

(setq varintStr (vlax-variant-change-type ent1 9))
     
  (setq ent1 ( vlax-vla-object->ename ent1))  ;;成功  
     (vla-put-Lineweight  ent1 200)

     (setq VC (VLAX-ENAME->VLA-OBJECT (entlast)))
     (vla-put-Lineweight VC 200)
            (setq VC (VLAX-ENAME->VLA-OBJECT (entlast)))
    (vla-put-Lineweight (vlax-ename->vla-object vc) 200)

[VBALISPER]恐龙 18:01:10

曹版.我想是不是可以做一个LISP,命令名改为ww,用它来调用其中一个VLX中的TT命令.把这两个打包,重做成另一个VLX.但怎么调用这种命令呢.我不会

[野狼谷]笨鸟 18:01:13

[caoyin]  17:59:44
请你帮个忙

[野狼谷]笨鸟 18:01:57

你给我的pline调用点表绘制线的在哪能加入pline线宽？我上面语句试验了一下， 不太明白

[野狼谷]笨鸟 18:02:51

折磨了一天没调出来

[VBALISPER]恐龙 18:02:57

画完后,修改刚才画的线的宽度,可以吧.

[野狼谷]笨鸟 18:03:37

(setq ent1 ( vlax-vla-object->ename （entlast))  
     (vla-put-Lineweight  ent1 200)

我觉得行，实际不行

[caoyin][caoyin] 18:04:41

这个线宽不是多段线线宽

[野狼谷]笨鸟 18:05:06

好像没有找到设置多线宽的vl函数

[caoyin][caoyin] 18:06:26

SetWidth

vla-SetWidth

[VBALISPER]恐龙 18:07:04

vlax-vla-object->ename是对象转为图元名吧.vla-put-Lineweight后面跟图元名也行吗?

[野狼谷]笨鸟 18:07:08

哦？？后面实体格式还是lv模型？

[caoyin][caoyin] 18:08:48

全局宽度用vla-put-ConstantWidth

[野狼谷]笨鸟 18:09:08

我需要的是话的这个线

[caoyin][caoyin] 18:09:48

(vla-put-ConstantWidth
(vlax-ename->vla-object(car(entsel)))
10
)

[caoyin][caoyin] 18:11:16

局部宽度
(vla-SetWidth
(vlax-ename->vla-object(car(entsel)))
0
10
30
)

[caoyin][caoyin] 18:11:48

0是“段”的参数

[野狼谷]笨鸟 18:12:00

哦，

[野狼谷]笨鸟 18:12:38

10
30 是每段起点和终点吗？

[caoyin][caoyin] 18:12:39

10是起始宽度。30是结束点宽度

[野狼谷]笨鸟 18:12:49

[caoyin][caoyin] 18:13:07

是

明经快报

[caoyin][caoyin] 18:24:18

@[VBALISPER]恐龙 
两个程序在两个文件吧？

[xiaomm250][lisp](car (entsel)) 18:28:03

字符串长度的函数是哪个?

[caoyin][caoyin] 18:28:27

strlen

[xiaomm250][lisp](car (entsel)) 18:28:35

好的 谢谢

[caoyin][caoyin] 18:29:55

@[328302216]小莫 
@[VBALISPER]恐龙 
两种方法调用相同名称的lisp命令

1.高级方法

[caoyin][caoyin] 18:33:08

tt1和tt同时可用

且相互不影响

2.笨方法

[198526]DZ 18:34:01

这简单几句话咋就看不懂呢

[jicqj]大力水手 18:34:22

我也看不懂

[caoyin][caoyin] 18:34:45

(defun c:tt1 ()
(load "....文件1")
)
(defun c:tt2 ()
(load "....文件2")
)

看不懂动手测试下就知道了

[caoyin][caoyin] 18:35:56

[qqimg]201307/{075226F8-AD79-D6B1-78AE-4361D3B84425}.jpg[/qqimg]这两句代表加载了两个相同命令名的lisp

[caoyin][caoyin] 18:36:51

加载第一个后，执行第2、3、4行的代码实现重命名

然后加载第二个

这时候两个命令可以同时使用而相互不影响

命令名分别为tt1和tt

[caoyin][caoyin] 18:43:11

其实还有其他方法

[198526]DZ 18:43:27

如果是这样就不对了

[qqimg]201307/{55DA3F36-98B4-DC9E-45DB-17A7F1AA281E}.jpg[/qqimg]

[caoyin][caoyin] 18:44:04

怎么不对？

[caoyin][caoyin] 18:44:38

结果不是对的吗

[198526]DZ 18:44:40

两个TT命令 分别是显示 "A"和 "B"

[caoyin][caoyin] 18:44:50

你还没整明白

[198526]DZ 18:45:10

哦

[caoyin][caoyin] 18:45:12

两个函数当然不能一起加载

[198526]DZ 18:46:09

一起加载就覆盖了？

[caoyin][caoyin] 18:46:14

是的

[caoyin][caoyin] 18:47:26

[qqimg]201307/{5B6EC5ED-6468-78D2-DDA2-D68EB2EC0584}.jpg[/qqimg]这两个地方假定是编译好的vlx、fas

是

[198526]DZ 18:48:17

现在原理我是懂了

[198526]DZ 18:48:57

总感觉还是有点别扭 其实你就是把第一个TT命令转为CAD内部命令 然后用TT1来调用

[198526]DZ 18:51:10

谢谢 C版

[caoyin][caoyin] 18:51:58

[fsxm]飞诗 19:00:39

老曹亲自出马

明经快报

[VBALISPER]恐龙 19:33:36

谢谢C版帮我解决了问题