2013-06-09 明经 AutoLISP 编程(102918348) 群聊记录：早啊

明经快报

[流动的清泉][权心权意] 18:13:11

问大家一个问题，在DCL中间image框内设置自定义图像，该选取什么格式，和怎样导入图像啊！

ya雀无声 18:13:30

~建议看书

[流动的清泉][权心权意] 18:15:22

！书上面不一定有这个知识点！

[流动的清泉][权心权意] 18:17:23

我把acad的DCl文件复制，想在标注样式里面找点如何编辑的， acad里面好像没有打印这个DCl的文件！

明经快报

[aeromodelling]纸飞 19:08:42

多谢多谢

[68203587]ωǒ小舜 19:08:45

明经快报

[236004]张牙舞爪 19:28:12

那里求 二条PL线交点的函数？

[雨的节奏][雨的节奏] 19:33:47

怎样把"55 65 76"转换成(list 55 65 76)

[雨的节奏][雨的节奏] 19:34:26

就是把由对话框里面输入的一堆数转换成表

ya雀无声 19:34:27

CONS

[qqimg]oldimg/{84F59554-ACD3-5592-DA83-EB290C0FE0E6}.jpg[/qqimg]

大功告成

[tiyi8888]永远痛 19:35:30

什么大功告成啦

说讲呢

[雨的节奏][雨的节奏] 19:35:36

[tiyi8888]永远痛 19:35:42

ya雀无声 19:37:08

剩下 量取 怎么实现呢

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

这个就简单了啊

量取完之后得到量取的值再返回到主命令啊

ya雀无声 19:38:54

(action_tile "量取""(主函数)")?

[雨的节奏][雨的节奏] 19:39:24

(action_tile "量取" “取值" "(主函数)")

就是gettitle

ya雀无声 19:39:52

取值 那个可以用 SETQ

[雨的节奏][雨的节奏] 19:40:21

[雨的节奏][雨的节奏] 19:45:13

、、找到方法了、、、

(read (strcar "(" str ")"))

这就能把"65 66 67“转换成(list 65 66 67）了

ya雀无声 19:46:16

哦。学习了

明经快报

ya雀无声 19:59:32

量取 怎么写

getdish？

ya雀无声 20:00:53

getdist?

ya雀无声 20:02:17

7299958z275cb0cf8bb673c89e245f3d7af998af

明经快报

[OWEN7]ya雀无声 20:22:08

怎么样DI 量取一段距离，给一个变量

[ZZXXQQ] 20:22:52

(setq di (getdist))

[OWEN7]ya雀无声 20:23:36

哦，我以为getdist 需要pt

[OWEN7]ya雀无声 20:26:10

[qqimg]oldimg/{C8A127C7-57FC-2776-2C03-0E9FAF6B73E8}.jpg[/qqimg]

(action_tile "kkw1""(setq kw1(getdist)))")

这段怎么实现量取吧

b1

[ZZXXQQ] 20:26:43

大错特错

[OWEN7]ya雀无声 20:26:48

[OWEN7]ya雀无声 20:27:31

怎么样写呢，求指导

[ZZXXQQ] 20:27:44

论坛上有

[OWEN7]ya雀无声 20:29:46

我搜索过了，找不到类似的，郁闷

[雨的节奏][雨的节奏] 20:32:19

（list 1 2 3 4 5)

怎样得到相加的表

先是1 再是3 再是6 再是10 再是15

就是逐个加

[ZZXXQQ] 20:33:05

)

[雨的节奏][雨的节奏] 20:33:23

我是想得到一个表啊

(list 1 2 3) -> (list 1 3 6)

[雨的节奏][雨的节奏] 20:35:15

求快速的方法啊、、

[雨的节奏][雨的节奏] 20:42:00

对吗？

好像对哎、、、

哈哈

[xiabin68]测绘 20:42:51

[OWEN7]ya雀无声 20:43:57

(action_tile "getzhula" "(setq screenpt(done_dialog 7))");;;柱图层提取按钮
          (action_tile "bzla" "(setq la3 $value)");;;标注图层编辑框值
      (vl-registry-write "HKEY_CURRENT_USERsoftwarelayer" "a3" la3)
      (action_tile "getbzla" "(setq screenpt(done_dialog 8))");;;标注图层提取按钮
          (action_tile "wzla" "(setq la4 $value)");;;文字图层编辑框值

[雨的节奏][雨的节奏] 20:44:25

真是学习了、、好牛啊

[雨的节奏][雨的节奏] 20:47:05

[qqimg]oldimg/{64D618DD-ABC9-1F34-69ED-25BDC461FC1B}.gif[/qqimg]

搞半天就是想写这个东西

[vormittag]桔子 20:47:38

(setq sum 0 rlst nil)
(reverse (foreach x lst (setq rlst (cons (setq sum (+ sum x)) rlst))))

好像也可以。

[OWEN7]ya雀无声 20:48:00

高级

[qqimg]oldimg/{DE8E7515-355B-2EA2-5475-37E866AD8DA2}.jpg[/qqimg]

类似于这个，

有源码了，参考一下，好像挺 复杂的

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

[qqimg]oldimg/{4E84C0B1-AC46-F2C9-C410-BDC013BF8B69}.gif[/qqimg]

[ZZXXQQ] 20:54:02

ya雀无声(403872256)看这里：
http://bbs.mjtd.com/forum.php?mo ... mp;page=1#pid420333

[雨的节奏][雨的节奏] 20:54:34

多谢版主

这个问题好像也是当时看了这个帖子我才会的

[OWEN7]ya雀无声 20:55:32

ZZXXQQ 见过您在北京吃火锅，太感谢了。

[vormittag]桔子 20:55:55

[vormittag]桔子 20:56:28

看到人家吃火锅有什么可谢的。

[雨的节奏][雨的节奏] 20:56:33

[qqimg]oldimg/{1C2EC9EC-0266-7761-CC71-B1D9C667CBEB}.gif[/qqimg]

[OWEN7]ya雀无声 20:56:55

历史上的一刻

[ZZXXQQ] 20:57:36

论坛是个万宝囊，不会用说明太笨

[雨的节奏][雨的节奏] 20:57:56

[qqimg]oldimg/{DE068692-2930-8E27-622F-E342C6D583E1}.gif[/qqimg]

[ZZXXQQ] 20:58:43

怎么觉得象是敲蛋糕

[雨的节奏][雨的节奏] 20:58:58

明明是木鱼，哈哈

[OWEN7]ya雀无声 20:59:07

主要是不会搜索 关键词

明经快报

[OWEN7]ya雀无声 21:12:51

(if (> (setq dcl_id(load_dialog "two")) 0) (progn
  (setq re 2)
  (while (> re 1)
   (if (new_dialog "two" dcl_id) (progn
    (action_tile "getpoint" "(done_dialog 2)")
    (action_tile "accept" "(ok_1st)(done_dialog 1)")
    (action_tile "cancel" "(done_dialog 0)")
    (setq re (start_dialog))
   )
    (alert "Unable to display dialog box!\n无法显示对话框！")
   )
   (if (= re 2) (progn
    ……
   ))
  ) ;end while
  (unload_dialog dcl_id)
 )
  (alert "Unable to load dialog box!\n无法装载对话框！")
 )
 (if (= re 1) (progn
  ……
 ))
……

明经快报

atanna 22:28:35

[qqimg]oldimg/{8F992989-2C3C-1139-702C-BDB3B564EB7E}.jpg[/qqimg]
大家好，新手请教一个问题，CAD倒直角在不修剪的情况下，只是画了一条斜线；多段线外形还是不变（如左图），如果我想倒C角后，达到右图的效果，请问应该如何处理？各位大哥能不能提供一个思路

[andyding]叶孤城 22:29:41

no trim模式

atanna 22:30:16

不修剪模式只是得到左图，我想要右图的效果

[andyding]叶孤城 22:31:40

原地复制再倒角

atanna 22:33:30

那岂不是两个封闭复线了？可我要的不是这个

[ZZXXQQ] 22:34:46

可你提供的图就是这样的

不然出不来那样的夹点

atanna 22:36:05

[qqimg]oldimg/{EB7FFD01-0575-579C-7C87-E6E0FAC14925}.jpg[/qqimg]

atanna 22:37:11

我想要这个，倒角后C角线和原来的复线成为一个整体，被修剪的部份不要删除

[ZZXXQQ] 22:38:18

那就倒角后画红线再成组

[andyding]叶孤城 22:38:38

倒角之后，再把红线画出来

atanna 22:39:01

是的，我卡在怎么把红线画出来了

[ZZXXQQ] 22:39:45

论坛不是解决了吗

atanna 22:40:36

请问搜索关键字是什么，可以告知吗？我搜索好久了，可能搜索的关键字不对，找不到我要的资料

[ZZXXQQ] 22:40:58

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

[OWEN7]ya雀无声 22:48:05

(setq fn (open (setq lsdcl (VL-FILENAME-MKTEMP "tmp" "" ".dcl")) "w"))
        (write-line "py:dialog{" fn)
    (write-line "   label="图层设置";" fn)
    (write-line "   :row{" fn)
    (write-line "        :edit_box{label="轴线图层";key="zxla";}" fn)
        (write-line "width=44;" fn)
    (write-line "        :button{label="图层提取";key="getzxla";}" fn)

这样也可以写 DCL么

[lisp-study]jun 22:48:52

可以

[ZZXXQQ] 22:48:55

行

[alwtyp][alwtyp] 22:50:30

集成到LSP里面一般都这么写

[OWEN7]ya雀无声 22:54:04

就加多 (write-line " …… fn）

[野狼谷]笨鸟 22:54:33

推荐电影：你丫闭嘴

[ZZXXQQ] 22:54:45

也可以用循环写

[alwtyp][alwtyp] 22:55:12

好老的电影

[OWEN7]ya雀无声 22:55:13

好像可以用lambda

[OWEN7]ya雀无声 23:04:40

(VL-FILE-DELETE lsdcl)这个是 删除DCL？

明经快报

[OWEN7]ya雀无声 23:45:49

怎么把数字写在 注册表中

(setq zkw1 "600")
  (vl-registry-write "HKEY_CURRENT_USER\software\layer" "zw1" zkw1)
  )