2013-06-17 明经 AutoLISP 编程(102918348) 群聊记录：cmdecho blipmode这两个词是什么意思

明经快报

[夏生生][x_s_s_1]生无可恋 13:06:32

方程

明经快报

[aeromodelling]纸飞 13:21:42

请问lisp如何操控夹点

[qqimg]oldimg/{989E3470-BB04-674A-A45A-2EFA179C33C3}.jpg[/qqimg]

明经快报

[青豆豆1991]夏叶 13:35:54

哥哥姐姐们，有人在吗 能麻烦你们帮我看一下这个程序吗 我运行的时候老提示多余一个闭括号 谢谢你们了 可是我怎么数也是对的（defun c:wall()
   (setq B (getpoint "  指定围墙起点：" ))     
   (setq E (getpoint "  指定围墙终点：" ))
  （setq W (getreal"  输入围墙实地宽度（m）=：")）
  （setq S (getreal"  输入绘图比例尺：")）
  （setq A（angle B E））
  （setq D（distance B E））
   (setq A1(- A(/ I 2))）
   (if（＜A1 0）(setq A1(+(*PI 2))))
   (setq B1(polar B A1 W) E1(polar E A1 W))
   (command "line " B E"") 
   (command "line " B1 E1"")
   (command "line " B B1"")
 (command "line " E E1"")
 (setq DM 0)
 (while (＜DM D)
 (setq M (polar B A DM)PM1(polar M A1 W))
 (command"line" M M1" ")
 (setq DM (+DM(* 10 S)))
 )
 (princ)
)

[lisp-study]jun 13:35:59

这个是啥子软件

[青豆豆1991]夏叶 13:36:14

错了 不是这个程序

（defun C：DGX（/ f x y z strtem crvnum i pntnum j pnt2d pnt3d)
(setq f (open"c:x.txt""r"))
(setq strtem(read line f))
(setq crvnum(read strtem))
(setq i 0)
(while(＜ i crvnum)
(setq strtem (read line f))
(setq pntnum (read strtem))
(setq strtem (read line f))
(setq z (read strtem))
(command"spline")
(while (＜j pntnum)
(setq strtem(read line f))
(setq pnt2d(read strtem))
(setq pnt3d(append pnt2d(list z)))
(command pnt3d)
(setq j (+ 1 j))
)
(command"c""")
(setq i (+ 1 i))
)
(closef)
)

是这个程序

[woky57]WOKY 13:37:09

（setq W (getreal"  输入围墙实地宽度（m）=：")）
  （setq S (getreal"  输入绘图比例尺：")）
  （setq A（angle B E））
  （setq D（distance B E））

这几个括号不对

[青豆豆1991]夏叶 13:37:27

不是这个 是下面那个

[woky57]WOKY 13:37:28

不是英文状态下的

[青豆豆1991]夏叶 13:37:33

绘制等高线的

围墙的这个是对的

恩？什么？括号不是英文状态下的？

[woky57]WOKY 13:38:20

一样的问题

[青豆豆1991]夏叶 13:39:08

也就是说应该在英文状态下输括号？

[woky57]WOKY 13:39:14

嗯

[青豆豆1991]夏叶 13:39:22

我试试啊

谢谢了

[woky57]WOKY 13:39:37

很多这样的问题，你放到lisp编辑器里看就知道了

[青豆豆1991]夏叶 13:40:00

可是上边围墙的那个是对的呀

[aeromodelling]纸飞 13:40:07

竟然能显示多一个括号？用的什么编辑器

[青豆豆1991]夏叶 13:40:17

记事本

[aeromodelling]纸飞 13:40:31

记事本提示多一个括号？

[青豆豆1991]夏叶 13:40:47

不是 加载的时候提示的

CAD里

[aeromodelling]纸飞 13:40:56

哦

[青豆豆1991]夏叶 13:41:18

别的语句有错误没？

[woky57]WOKY 13:41:23

不是多少的问题，是太多大小写问题

刚学的，照书上抄的吧

[aeromodelling]纸飞 13:41:42

能加载就不错了，括号都是中文的，冒号也是中文的

[青豆豆1991]夏叶 13:42:22

我也是着急的 以前弄得程序今天答辩的时候有个人跟我撞上了

没办法 只能再弄了

[aeromodelling]纸飞 13:43:17

在编辑器里就没这些事了

[青豆豆1991]夏叶 13:43:53

你是说在编辑器里边编辑？

[aeromodelling]纸飞 13:44:01

昂

cad自带着

[青豆豆1991]夏叶 13:44:22

程序的其他部分是对的？

[woky57]WOKY 13:44:53

(defun C:DGX ( / f x y z strtem crvnum i pntnum j pnt2d pnt3d)
(setq f (open"c: x.txt""r"))
(setq strtem (read line f))
(setq crvnum (read strtem))
(setq i 0)
(while(< i crvnum)
(setq strtem (read line f))
(setq pntnum (read strtem))
(setq strtem (read line f))
(setq z (read strtem))
(command"spline")
(while (< j pntnum)
(setq strtem(read line f))
(setq pnt2d(read strtem))
(setq pnt3d(append pnt2d(list z)))
(command pnt3d)
(setq j (+ 1 j))
)
(command"c""")
(setq i (+ 1 i))
)
(closef)
)

[青豆豆1991]夏叶 13:45:27

这是您给改过来的？

[青豆豆1991]夏叶 13:46:25

还是不行的 提示说参数太多

[青豆豆1991]夏叶 13:48:15

大神们 求求你们了 再帮我看看吧

[青豆豆1991]夏叶 13:48:52

我也是实在没办法了 着急的

[青豆豆1991]夏叶 13:50:01

哪怕我花钱也行 求求你们了 拜托了

[woky57]WOKY 13:51:47

我闲着，帮你看看

[青豆豆1991]夏叶 13:52:11

太感谢了 非常感谢

[woky57]WOKY 13:52:19

私聊

[青豆豆1991]夏叶 13:52:30

哦

你找我吧

[kwok][kwok]巭隼 13:59:07

Open "c: x.txt"这看起来格式就不对吧

C:

[青豆豆1991]夏叶 13:59:50

麻烦问一下 我急需要一个绘制等高线的程序 能发帖子找人帮忙吗？

[青豆豆1991]夏叶 14:01:08

拜托了 有人在吗

[青豆豆1991]夏叶 14:04:13

恩？

明经快报

[pzweng]路人 14:19:21

跟手动建块是一模一样

明经快报

[kwok][kwok]巭隼 15:03:51

？lisp七个儿子

[青豆豆1991]夏叶 15:04:38

？Autolisp自动绘制等高线程序

[青豆豆1991]夏叶 15:06:29

有没有人会自动绘制等高线程序的？

明经快报

[kwok][kwok]巭隼 15:18:05

论坛搜

明经快报

[1993063][1993063] 15:29:07

lisp 等高线

[青豆豆1991]夏叶 15:29:31

哦

明经快报

[bmy07]白欣 15:49:39

[qqimg]oldimg/{1DE48F1F-D9A7-B8E9-2DA2-E5B93A5783C4}.jpg[/qqimg]

[236004]张牙舞爪 15:50:58

[qqimg]oldimg/{BA6B3FED-EA0B-283C-798C-662CB6C1DDC4}.jpg[/qqimg]

[gzxl] 15:56:18

自动绘制等高线 论坛多的吶

[青豆豆1991]夏叶 15:56:40

找到了一个 可是运行不了

[青豆豆1991]夏叶 15:58:05

有人会弄吗

改了半天还是不行

[gzxl] 15:58:56

[qqimg]oldimg/{6E9A7E3A-4807-20B7-8186-6E573085CA6A}.jpg[/qqimg]

[青豆豆1991]夏叶 15:59:24

要用Autolisp程序的

[青豆豆1991]夏叶 16:01:49

(defun C:DGX (/ f x y z strtem crvnum i pntnum j pnt2d pnt3d)
  (setq f (open "c: x.txt" "r"))
  (setq strtem (read-line f))
  (setq crvnum (read strtem))
  (setq i 0)
  (while (< i crvnum)
    (setq strtem (read-line f))
    (setq pntnum (read strtem))
    (setq strtem (read-line f))
    (setq z (read strtem))
    (command "spline")
    (while (< j pntnum)
      (setq strtem (read-line f))
      (setq pnt2d (read strtem))
      (setq pnt3d (append
                    pnt2d
                    (list z)
                  )
      )
      (command pnt3d)
      (setq j (+ 1 j))
    )
    (command "c" "")
    (setq i (+ 1 i))
  )
  (closef)
)

帮帮忙吧

[青豆豆1991]夏叶 16:02:53

看看这个程序到底哪不对呢

[gzxl] 16:03:07

c: x.txt 格式是什么，怎么办

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

我刚刚看了一下，你错误太多了，你叫谁会的帮你重新编一个可能还快点！

[gzxl] 16:07:15

j 值没赋值

(closef) 这个也错了

还有。。。。

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

(command "spline")
(command pnt3d)
这些也搞不懂是什么

[328302216][328302216]小莫 16:09:52

改这种程序，还不如自己吧思路搞明白了自己动手编一个来得快

明经快报

[野狼谷]笨鸟 16:21:03

[青豆豆1991]夏叶(545769407)  15:06:16
有没有人会自动绘制等高线程序的？
什么叫自动绘制？我有读取三维坐标生成3D曲线的程序

[野狼谷]笨鸟 16:22:29

spline 看是不是能用3Dspline 循环读取每一条等高线的所有数据，形成等高线图

[野狼谷]笨鸟 16:23:02

(defun c:tt (/ oldcmd oldblip oldsnap fle fn pt)
     (setq oldcmd (getvar "cmdecho"))
     (setvar "cmdecho" 0)
     (setq oldblip (getvar "blipmode"))
     (setvar "blipmode" 0)
     (setq oldsnap (getvar "osmode"))
     (setvar "osmode" 0)
     (setq fle (findfile "txt1.txt"))
     (if (not fle)
      (setq fle (getfiled "请选择数据文件" "txt1" "txt;dat;*" 8))
     )
     (if fle
      (progn
           (setq fn (open fle "r"))
           (read-line fn)
           (read-line fn)
           (command "3dpoly")
           (while (setq pt (read-line fn))
           ; (command (read (strcat "(" pt ")")))
            (command pt)
           )
           (command "")
           (close fn)
      )

      (princ " 未选择数据文件，退出")
     )
     (setvar "cmdecho" oldcmd)
     (setvar "blipmode" oldblip)
     (setvar "osmode" oldsnap)
     (princ)
)

;;;txt1.txt文件格式:
;;;点坐标
;;;X    Y   Z
;;;123,244,133
;;;242,242,111
;;;454,123,134
;;;452,111,543
;;;233,421,234

明经快报

[236004]张牙舞爪 17:08:35

问下，这个vla-sendcommand函数，为什么要把DCL关闭之后，才执行呢？

[mccad][MCCAD] 17:09:39

因为它是操作命令行

[236004]张牙舞爪 17:10:06

怎么在DCL里，调用COMMAND？

[198526]DZ 17:10:22

要退出来才行吧

[236004]张牙舞爪 17:10:32

不退

[198526]DZ 17:11:23

DCL里把一个动作 里加
1.记录当前DCL里的参数值
2.关闭对话框执行想要的COMMA

打错了

[198526]DZ 17:12:15

DCL里把一个动作 里加
1.记录当前DCL里的参数值
2.关闭对话框
3.执行想要的COMMAND
4.再次调用对话框
5.恢复之前记录的参数

[aeromodelling]纸飞 17:17:18

[qqimg]oldimg/{66D615C1-D79C-0B14-AF7C-E5FB9F5A0F1D}.jpg[/qqimg]求教，单元格数据链接是哪个特性