2013-06-02 明经 AutoLISP 编程(102918348) 群聊记录：[image={DA34EC3F-ACD1-915A-CF73-64EE62

明经快报

【7299969】人生 08:16:11

[qqimg]oldimg/{DA34EC3F-ACD1-915A-CF73-64EE624F4387}.jpg[/qqimg]

zhez zh这种函数怎么用啊

[ZZXXQQ] 08:16:53

(mj:mylayer)

【7299969】人生 08:18:09

[qqimg]oldimg/{34E2A677-ECF6-4507-758F-8405BC2F6000}.jpg[/qqimg]

[mccad][MCCAD] 08:18:26

这么早就有人来学习，儿童节真的没白过

[mccad][MCCAD] 08:19:11

不以C:开头的，并非命令，而是LISP的自定义函数

【7299969】人生 08:19:44

哦，那我改成C开头的就可以用了吗

[mccad][MCCAD] 08:20:01

当然

[ZZXXQQ] 08:20:28

但最好别在command中用

想用时就用

【7299969】人生 08:21:46

这是我下载的一个常用函数lisp，很多功能，但是不知道怎么用

【7299969】人生 08:22:58

那我在命令行里输MJ:Mylayer，未知

[ZZXXQQ] 08:23:25

不是早告诉你怎么用了吗

[ZZXXQQ](1468225785)  8:18:06
(mj:mylayer)

【7299969】人生 08:23:55

哦，我忘输（）了

【7299969】人生 08:25:00

好用，谢谢

【7299969】人生 08:32:33

多谢大神指导

明经快报

[kkppp123]小唐 09:16:31

请问打开了vlisp编辑器,用程序怎么关闭它呢

【7299969】人生 09:23:49

那这个MJ开头的东西啥时候用

明经快报

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

问的好，顶下

明经快报

[VBALISPER]恐龙 10:31:28

请问一下,动态显示插入的图形怎么做?我用几条线画了一个符号.插入的时候,提示指定插入点.我希望在鼠标处出现我做的那个符号,随着鼠标移动动态显示,

[lisp-study]jun 10:32:29

我也想知道

[VBALISPER]恐龙 10:34:11

我觉得可能要用到grread吧,但具体怎么做,不知道,查了一些资料,没找到类似的.

[雨的节奏][雨的节奏] 10:34:40

[雨的节奏][雨的节奏] 10:35:16

这是生成文字随鼠标移动的一个小lisp

希望帮到你

[VBALISPER]恐龙 10:37:07

谢谢.正在学习你的资料

[VBALISPER]恐龙 10:37:52

嗯.完全类似.

[雨的节奏][雨的节奏] 10:38:08

[qqimg]oldimg/{65784DBF-4B30-C2CD-981C-342CE821DCC2}.gif[/qqimg]

[雨的节奏][雨的节奏] 10:39:04

这是我第一次用grread自己瞎写着好玩的、

[VBALISPER]恐龙 10:40:09

昨天晚上才开始学习这个grread,没完全搞懂这个grread

[夏生生][x_s_s_1]生无可恋 10:40:17

查聊天记录，我昨天发了一个和你的很类似的，恐龙

[q530496591][q530496591]小菜鸟 10:40:25

要动态的吧!

[VBALISPER]恐龙 10:40:32

哦.

[q530496591][q530496591]小菜鸟 10:40:41

呵呵..这个函数动态才要用到吧?

[VBALISPER]恐龙 10:41:03

就是要动态的效果

[q530496591][q530496591]小菜鸟 10:41:08

小菜我想请教一个小问题!还望大师们指点一下

[夏生生][x_s_s_1]生无可恋 10:41:11

[qqimg]oldimg/{380E9755-5BB1-D9C6-BA14-2C3406BE2DAE}.gif[/qqimg]

[q530496591][q530496591]小菜鸟 10:41:12

(defun c:tt ()
  (prompt " 请直接量取距离或者输入一个值:")
  (if (setq apt1 (getpoint " 请指定点:"))
    (progn
      (setq apt2 (getpoint " 请指定第二个点:"))
      (setq list1 (distance apt1 (list (car apt2) (cadr apt1))));返回量取的X轴的值
    ) ;想要实现类似于getdist功能.但是getdist函数(由于不能捕捉垂直点所以返回的值有所误差)!
    (setq list1 (getreal " 请输入一个值:"));或者直接输入
  )
)

[夏生生][x_s_s_1]生无可恋 10:41:57

主要是更新图元显示，其他都好写

[q530496591][q530496591]小菜鸟 10:41:59

我在晓东上看到过

[夏生生][x_s_s_1]生无可恋 10:43:21

小菜那个是什么问题？

[VBALISPER]恐龙 10:43:23

嗯.和你这个效果一样.你们的代码原理基本相同吧.只是[雨的节奏]代码短一些,好学一点.

[夏生生][x_s_s_1]生无可恋 10:43:25

没看懂

[lisp-study]jun 10:43:29

像cad的矩形框怎么那种 或者多边形那种 可以预览的 怎么整？

[夏生生][x_s_s_1]生无可恋 10:43:42

我的长大部分是entmake的内容

直接pass不看就是

[VBALISPER]恐龙 10:44:18

嗯.好的.谢谢了

【7299969】人生 10:44:44

昨天那个文字刷能不能用啊

[q530496591][q530496591]小菜鸟 10:45:13

(defun c:tt ()
  (prompt " 请直接量取距离或者输入一个值:")
  (while (setq apt1 (getpoint " 请指定点:"))
      (setq apt2 (getpoint " 请指定第二个点:"))
      (setq list1 (distance apt1 (list (car apt2) (cadr apt1))));返回量取的X轴的值
  )   ;想要实现类似于getdist功能.但是getdist函数(由于不能捕捉垂直点所以返回的值有所误差)!
  (setq list1 (getreal " 请输入一个值:"));或者直接输入
  )
)

想要实现类似于getdist功能.但是getdist函数(由于不能捕捉垂直点所以返回的值有所误差)!

[q530496591][q530496591]小菜鸟 10:46:14

[qqimg]oldimg/{9BA5EE31-15AE-F3B1-ADD0-87416B17DEB1}.jpg[/qqimg]

[雨的节奏][雨的节奏] 10:46:59

这个可以写麻烦一点啊

[夏生生][x_s_s_1]生无可恋 10:47:16

可以捕捉啊

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

[雨的节奏][雨的节奏] 10:47:23

取得两点，看你是要X轴方向的距离还是Y轴方向的国、距离了

[夏生生][x_s_s_1]生无可恋 10:47:27

直接getdist就是

[lisp-study]jun 10:47:30

获取点的时候直接吧捕捉打开不就行了啊

[q530496591][q530496591]小菜鸟 10:47:42

不是.直接捕捉会死机的

[夏生生][x_s_s_1]生无可恋 10:47:46

先setvar

不可能

[q530496591][q530496591]小菜鸟 10:48:21

不是单纯CAD的图.是由AI软件转过来的图.

然后再去捕捉垂直点就会死机

[夏生生][x_s_s_1]生无可恋 10:48:55

[qqimg]oldimg/{D9BE7FF1-480E-DE14-89F1-AC3BD3223B37}.gif[/qqimg]

[雨的节奏][雨的节奏] 10:48:57

那要不你取得两点、、

然后选择你要X轴的距离还是要Y轴的距离呗

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

但是如果输入呢?

[夏生生][x_s_s_1]生无可恋 10:49:30

我就是直接用的getdist函数

[雨的节奏][雨的节奏] 10:49:46

一般都是直接用getdist

自己捕捉好就是了

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

我画图的时候捕捉垂直点就会死机

[lisp-study]jun 10:50:20

那是你cad的问题

[q530496591][q530496591]小菜鸟 10:50:27

这个问题伤脑好久了

04版的我用..不知是不是太低的原因

[kwok][kwok]巭隼 10:53:37

點太多,我试过，关捕捉就没事

[q530496591][q530496591]小菜鸟 10:54:11

单单只捕捉垂直点不会死机么?

我现在要我朋友发个图档过来试一下

[kwok][kwok]巭隼 10:54:31

现在用2014这问题解决，

不会死机，只是停一下

[q530496591][q530496591]小菜鸟 10:55:14

我试试

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

你要先改变鼠标形状？

[夏生生][x_s_s_1]生无可恋 11:02:14

这个程序写的对啊

[VBALISPER]恐龙 11:03:40

不用改变鼠标形状.

提示文字"指定标注的位置"一直停在在CAD命令行,必须按个回车,后面才正学运行

后面就可以动态显示了.

[kwok][kwok]巭隼 11:06:43

那在加个＂＂

回车

[VBALISPER]恐龙 11:09:48

不行哦.还是一样的.提示文字"指定标注的位置"一直停在在CAD命令行.加了一行,还是不行.(DEFUN C:tt();平面图钻孔符号
(setq zkwz (getpoint " 指定标注钻孔的位置"))
(command "")

[夏生生][x_s_s_1]生无可恋 11:15:32

是不是这样的效果？

试试

[linshiyin2]大地 11:15:57

[qqimg]oldimg/{34C70482-3221-9616-436E-47CE0D975B5A}.jpg[/qqimg]

[夏生生][x_s_s_1]生无可恋 11:16:18

你要保留圆就删除(entdel (entlast))

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

grread的缺点是不能捕捉，你到坛子里找一个可捕捉的函数替代即可

[VBALISPER]恐龙 11:19:16

哦.效果是这样了.命令行的提示文字仍在,但鼠标处已显示图形了.只是整个程序还是有问题,鼠标一点,就出错了.

[夏生生][x_s_s_1]生无可恋 11:19:54

我这里没问题啊

什么出错了？

命令行文字不是您需要的吗？

[VBALISPER]恐龙 11:20:18

圆没画出来,提示nil

需要.

我重启一下CAD看看

[夏生生][x_s_s_1]生无可恋 11:20:39

圆被我删除了啊

不是cad的问题

不是说了[qqimg]oldimg/{A1A6A4D1-B82C-3FDC-D4DF-AAFF838B785B}.jpg[/qqimg]

[VBALISPER]恐龙 11:21:15

哦.不删,是标注的东西

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

你删了这句再试试

[VBALISPER]恐龙 11:22:05

对了.就是这个效果

谢谢

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

出现nil提示是对的，程序执行的最后一句是(setq loop nil)

不客气

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

把坐标里的x、y+上同一个数会弄了  加不同的数又不知道怎么弄了

[328302216][328302216]小莫 11:27:00

这烂书上面的都是错的

[q530496591][q530496591]小菜鸟 11:31:14

11 22 33

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

这烂书上写的就是11 12 33  而且返回的是错误提示

[夏生生][x_s_s_1]生无可恋 11:32:54

没加‘

1是函数吗？

后面的也要加’

[328302216][328302216]小莫 11:33:38

哦

[夏生生][x_s_s_1]生无可恋 11:33:47

不习惯加’就list函数

[328302216][328302216]小莫 11:33:55

ok了

被这烂书误导得地方好多...

[q530496591][q530496591]小菜鸟 11:34:33

实体书还是电子书啊?电子书有误差多一点吧

[328302216][328302216]小莫 11:35:11

实体书

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

刚我用了捕捉垂直点.死机了

[VBALISPER]恐龙 11:35:22

盗版!

[q530496591][q530496591]小菜鸟 11:35:59

可能是重线太多了!

[328302216][328302216]小莫 11:36:05

不知道是不是 盗版，反正不是在那些小摊买的，到书店买的

[q530496591][q530496591]小菜鸟 11:36:38

用VLISP能实现么?还请前辈们继续出手

[q530496591][q530496591]小菜鸟 11:37:09

慢慢来.我到当当网去买了书也是不大行.

知道函数的用法就行了我一般都是这样!

[q530496591][q530496591]小菜鸟 11:44:08

[qqimg]oldimg/{9BA5EE31-15AE-F3B1-ADD0-87416B17DEB1}.jpg[/qqimg]

[VBALISPER]恐龙 11:49:21

(setq zkwz (getpoint " 指定标注的位置"))我才发现,我刚才做的动态显示的.这一句根本没用到.变量没用到.

[VBALISPER]恐龙 11:49:58

(princ " 指定标注的位置")
(princ)就这样就好了.

[VBALISPER]恐龙 11:50:42

吃饭了.下午见.

[328302216][328302216]小莫 11:53:42

谁帮我看看我的那个是怎么回事？

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

现在在学lambda  apply mapcar 这几个函数

[328302216][328302216]小莫 11:56:28

可恋兄在吗？

[q530496591][q530496591]小菜鸟 12:00:35

(setq aa (list 1 2 3))

[328302216][328302216]小莫 12:01:05

？？

[雨的节奏][雨的节奏] 12:03:22

(mapcar ‘+ aa bb)

[328302216][328302216]小莫 12:04:50

应该是可以了  谢谢

[q530496591][q530496591]小菜鸟 12:05:34

我也是刚学会不久.你可以到明经上多找找.

[328302216][328302216]小莫 12:12:56

[zk2140]Kevin 12:14:03

求指导，这种如何通过输入数据来实现
[qqimg]oldimg/{DE1261BF-319A-D75D-D547-51022AE5067A}.jpg[/qqimg]

[雨的节奏][雨的节奏] 12:14:43

你提供什么条件、想得到什么结果

[雨的节奏][雨的节奏] 12:17:01

[qqimg]oldimg/{F6EB4040-2A34-DA7F-D185-F5CBFB55A402}.gif[/qqimg]

[328302216][328302216]小莫 12:17:39

[qqimg]oldimg/{3B6260FF-C1D5-0AB0-C22C-421843E091B8}.gif[/qqimg]

[caoyin][caoyin] 12:26:35

[雨的节奏][雨的节奏] 12:28:11

[qqimg]oldimg/{65784DBF-4B30-C2CD-981C-342CE821DCC2}.gif[/qqimg]

妙

[caoyin][caoyin] 12:29:11

呵呵，总感觉还有更好方法

[雨的节奏][雨的节奏] 12:29:27

这应该是最好的了吧

[236004]张牙舞爪 12:29:36

这是什么意思？

[雨的节奏][雨的节奏] 12:29:55

就是把一个点的X加22 Y加33

[236004]张牙舞爪 12:30:26

Z 怎么没有加呢？

[VBALISPER]恐龙 12:30:26

哦.这种啊.以前见过

[kwok][kwok]巭隼 12:40:12

突然发现之前弄的一个百叶可以用这个求点位加数

[linshiyin2]大地 12:42:40

cad

[zk2140]Kevin 12:42:56

[qqimg]oldimg/{DE1261BF-319A-D75D-D547-51022AE5067A}.jpg[/qqimg]
输入横向间隔距离、沿60度方向的距离。。自动生成这个

[linshiyin2]大地 12:42:58

2012版和2010版哪个更流畅

[kwok][kwok]巭隼 12:43:13

2014

[雨的节奏][雨的节奏] 12:43:29

行

[zk2140]Kevin(66978075)

[linshiyin2]大地 12:43:45

试过office2010后，再也不用2003了，office2007是垃圾，但是2010是极品

[雨的节奏][雨的节奏] 12:43:45

要生成的数量呢

还有从哪里开始绘图

[zk2140]Kevin 12:44:56

周边的伸出长度为固定值，中间的间隔距离为自己输入

[linshiyin2]大地 12:44:58

cad2010和cad2012哪个是极品呢，2014不稳定吧，哪个跟office2010一样是极品呢

[zk2140]Kevin 12:45:21

放置位置为自己点取

[雨的节奏][雨的节奏] 12:46:19

贱人工具箱不是有个这样的工嘛、、、

稍微改一下就是了啊

[雨的节奏][雨的节奏] 12:47:18

输入行数，列数、行高、列宽、、不是可以吗

[zk2140]Kevin 12:48:55

就是二维的轴测图

[雨的节奏][雨的节奏] 12:50:33

你是不是想要这样
输入行数，列数、行高、列宽、周边超出长度、角度、然后绘图出来

[雨的节奏][雨的节奏] 12:51:12

做个简单的对话框比较好

[zk2140]Kevin 12:53:54

不是，这个可以用矩阵就行了。。
我是想输入行距（中间逗号分开）列距（中间逗号分开），自动生成这种

[雨的节奏][雨的节奏] 12:54:28

是只生成一块还是？

[zk2140]Kevin 12:54:30

列距是沿60度方向的

[雨的节奏][雨的节奏] 12:55:15

没太明白你的意思 、、、

[zk2140]Kevin 13:00:56

[qqimg]oldimg/{70E6A9BE-BF31-ABEC-8C8A-0E0E4EA98934}.jpg[/qqimg]
输入列距（1000，1500，3000）输入行距（2500，6000，800），自动生成这个

[雨的节奏][雨的节奏] 13:01:55

这个简单

[zk2140]Kevin 13:02:19

求指教

明经快报

[夏生生][x_s_s_1]生无可恋 13:14:49

组一个表，foreach搞定

明经快报

[清风明月名字] 13:33:23

请问，下面代码在第四句，它怎么说参数太少啊？我是设的三个参数啊
(DEFUN C:批量匹配替换单多行文字()
(setvar "cmdecho" 0)
(setq 单多行TEXT选择集  (SSGET":s" '((0 . "*TEXT"))) )
(QFMY-匹配替换 单多行TEXT选择集 "1" "A1")
(QFMY-匹配替换 单多行TEXT选择集 "2" "A2")
(QFMY-匹配替换 单多行TEXT选择集 "3" "A3")
(QFMY-匹配替换 单多行TEXT选择集 "4" "A4")
(QFMY-匹配替换 单多行TEXT选择集 "5" "A5")
 (PRINC)
)


;批量替换字符
; CHGTEXT command - rudi(单多行TEXT选择集 
(defun QFMY-匹配替换 ( 单多行TEXT选择集 替换用旧字符串 替换用新字符串/ anniuzongxinxi as chajianmincen chf chm cont e l minlingmincen n nsl osl  si sl st wenjianmin wenjianmincen  文本内容)
   (if 单多行TEXT选择集 (progn                      ; If any objects selected
      (setq cont t)
      (while cont
         ;;(setq osl (strlen (setq 替换用旧字符串 (getstring "\n原字符串: " t))))
         (setq osl (strlen 替换用旧字符串))
         (if (= osl 0)
            (princ "Null input invalid")
            (setq cont nil)
         )
      )
      ;;(setq nsl (strlen (setq 替换用新字符串 (getstring "\n新字符串: " t))))
      (setq nsl (strlen  替换用新字符串 ))
      (setq l 0 n (sslength 单多行TEXT选择集))
      (while (< l n)                 ; For each selected object...
         
            (progn
               (setq chf nil si 1)
               (setq 文本内容 (cdr (setq as (assoc 1 e))))
              ;;完全匹配的条件
              (IF (= 文本内容 替换用旧字符串 )
              (while (= osl (setq sl (strlen
                             (setq st (substr 文本内容 si osl)))))
                  (if (= st 替换用旧字符串)
                      (progn
                        (setq 文本内容 (strcat (substr 文本内容 1 (1- si)) 替换用新字符串
                                        (substr 文本内容 (+ si osl))))
                        (setq chf t)    ; Found old string
                        (setq si (+ si nsl))
                      )
                      (setq si (1+ si))
                  )
               )
               )
               (if chf (progn        ; Substitute new string for old
                  (setq e (subst (cons 1 文本内容) as e))
                  (entmod e)         ; Modify the TEXT entity
                  (setq chm (1+ chm))
               ))
            )
         
         (setq l (1+ l))
      )
   ))
   (princ "修改了 ")                ; rint total lines changed
   (princ chm)
   (princ " 行文字.")
   (terpri)
)

明经快报

[ygp820601]风声 13:48:10

地震了

[soly2006]季鸟 13:48:46

哪里？

明经快报

[VBALISPER]恐龙 14:44:38

看来不是你我这里.

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

乱放 风声

[雨的节奏][雨的节奏] 14:45:51

台湾啊

我感觉到了

[qqimg]oldimg/{9323C3B7-02E0-1069-58A0-C77DA00F9C22}.jpg[/qqimg]

[mitenickevin]kevin 14:46:03

本来就地震了。

在福建的都能感应到。

[VBALISPER]恐龙 14:46:42

浅啊.

[mitenickevin]kevin 14:47:01

我在办公室里就感觉到了。只是没有跑出去。呵呵

[328302216][328302216]小莫 14:47:41

...

我把腾讯的这个屏蔽了，每次都弹出来烦人

[mitenickevin]kevin 14:48:32

呵呵，我这里是离台湾最近的地方。

特别是金门。

明经快报

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

哪里震不会？

[flytoday]过^-^客 15:31:29

呵呵现在房子七级抗震..中高层管桩能抗6.5级地震吗

[flytoday]过^-^客 15:32:46

为节约成本赶工期现在很多采用管桩.管桩接头就一圈那么小的焊点真怀疑能抗几级地震

[328302216][328302216]小莫 15:32:57

说的是七级抗风吧

[flytoday]过^-^客 15:33:21

抗震

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

说是抗事实只能抗7级的风，八级风怕是都要到了，豆腐渣工程太多了！

[flytoday]过^-^客 15:36:03

呵呵现在很我房地产..3天搞一层两天搞一层的...NND还没干上一级又开始浇捣了.楼面100%都是裂的

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

我们那有一座商城，那楼梯走得咔咔响，贴的瓷砖一拿开下面一个个洞

[tiyi8888]永远痛 15:36:39

所以买别墅吧

自己买别墅

别墅不存在这种情况的吧

[flytoday]过^-^客 15:36:58

一幢起价3000万

[328302216][328302216]小莫 15:37:20

我们那小区，楼上有只狗走动的声音都能听得很清楚

[tiyi8888]永远痛 15:37:29

200万

乡下

可以搞搞的

[VBALISPER]恐龙 15:37:33

地下裂个1000平方的大坑,全掉下去.

[tiyi8888]永远痛 15:37:38

我现在200万也没有

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

我现在2W都没有

[flytoday]过^-^客 15:38:40

尼马..现在我们这城市均价一平1.6万以上,,尼马天天得给共党打工

明经快报

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

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

求助：（“12345”）如何去掉括号？

[雨的节奏][雨的节奏] 15:59:41

用空格替换掉？

还是用正则表达式

[soly2006]季鸟 16:00:17

（car （“12345”）)

[小伟jeny]小伟 16:00:18

var吧

carr

car

[雨的节奏][雨的节奏] 16:00:50

他可能是要把“”这个去掉

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

不是，表读写，

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

转成real？

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

用ssget好像也没办法...

[雨的节奏][雨的节奏] 16:04:03

同求解、、

貌似是生成了两个对象

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

是啊  引线和文字是分开的

[soly2006]季鸟 16:06:00

entnext编组

[328302216][328302216]小莫 16:07:56

这种不知道引线的对象名称啊！！

[soly2006]季鸟 16:14:15

entlast都有了，还怕没名称

[soly2006]季鸟 16:21:53

命令之前

[328302216][328302216]小莫 16:23:11

能帮我写一下吗？没用过entnext这个函数，不太懂怎么用

[夏生生][x_s_s_1]生无可恋 16:26:33

你entmakex不就得了

直接得到文件名

[328302216][328302216]小莫 16:28:18

[夏生生][x_s_s_1]生无可恋 16:28:54

先entmakex leader再文字

[雨的节奏][雨的节奏] 16:29:38

不是entnext吗

[夏生生][x_s_s_1]生无可恋 16:29:54

不用command

[328302216][328302216]小莫 16:31:43

我得查一下entmakex这个函数