2013-06-28 明经 AutoLISP 编程②(177027547) 群聊记录

明经快报

漫步苍穹 09:33:30

图片笑话一则(略)

明经快报

创雅设计 09:56:54

不是吧

李KEQ老婆叫CENHON？

明经快报

和光同尘 10:21:40

哈哈

哈哈

真的是有材

明经快报

[toproc]大鹏追日 10:58:18

有谁在用autocad 2014？
      (command "insert"
           "JDZBZ"
           yszb
           xbl
           ybl
           (/ (* jd 180) pi)
           x1
           y1
      )
2014执行这类插入属性块的语句时，弹出窗口要求输入属性值。

在2010下没问题

[pzweng][pzweng]天蝎 10:59:39

用entmake就不要

你那个块要求

[toproc]大鹏追日 11:00:13

我的块是属性块，带两个属性。

在2004～2010下都所有的插入块的程序执行都没问题

到2014下就有问题了

[pzweng][pzweng]天蝎 11:00:49

建块的时候在预置这项打勾

2007都没用过

[toproc]大鹏追日 11:01:50

建块的时候在预置这项打勾？ 2014改变好大

[pzweng][pzweng]天蝎 11:02:36

感觉桌子公司再升级也没什么用了

[【KAIXIN】][【KAIXIN】]炫翔 11:03:33

一直在升级3维

还是有用的

[wszxf]郑晓锋 11:06:49

用CAD的

基本二维占大部分

(420552)浪子 11:07:13

CAD的三维能用多大用

(420552)浪子 11:09:33

proe和UG才专业

[pzweng][pzweng]天蝎 11:09:51

inventor就是三维的

AUTOCAD升级三维干嘛

CAD2004的三维够用了

做曲面肯定不行

但是机械行业足够用了

[toproc]大鹏追日 11:17:03

我的属性块是已经定义好的dwg文件，只是在另外一个图纸中进行insert而已

[pzweng][pzweng]天蝎 11:18:51

你输入insert

[toproc]大鹏追日 11:20:01

我是一个图形中要插入很多这样的属性块，所以编写了个lisp程序，程序里面用的command函数。
      (command "insert"
           "YBMB"
           jsbmzb
           (/ bl 2000.0)
           (/ bl 2000.0)
           (/ (* 180 (angle jsbmzb p_hz)) pi)
           lcbz
           jsgl
      )

明经快报

--@----- 13:06:47

可以刷块内文字不  以及天正的引出标准文字

天正引出文字

明经快报

[toproc]大鹏追日 17:22:14

谁调用过 KozMos VLXLS roject中的合并excel单元格函数，
(vlxls-cell-merge *xlapp* "C12:C14")，总是会出现 错误: 参数类型错误: safearrayp nil

[pzweng][pzweng]天蝎 17:23:00

safearrayp nil

[toproc]大鹏追日 17:23:11

？

(Defun vlxls-cell-merge    (XLApp id / vllist-explode Val Rtn)
  (Defun vllist-explode    (lst)
    (cond
      ((not lst) nil)
      ((atom lst) (list lst))
      ((append (vllist-explode (car lst))
           (vllist-explode (cdr lst))
       )
      )
    )
  )
  (setq val (vllist-explode (vlxls-cell-get-value XLApp id)))
  (while (vl-position "" val)
    (setq val (vl-remove "" val))
  )
  (setq    val (car val)
    Rtn (msxl-get-range XLApp id)
  )
  (msxl-clear Rtn)
  (msxl-merge Rtn nil)
  (msxl-put-value2 Rtn Val)
  (msxl-put-HorizontalAlignment Rtn -4108)
  Rtn
)

这是他的函数，我研究了半天，也不知道哪里出错了

笑对人生 17:25:22

那不提示数组是空的么

[pzweng][pzweng]天蝎 17:25:44

你监视变量值

[gtj116600]轶凡 17:28:04

呵呵，这个网名也改了

明经快报

[434939575]模型 19:12:13

我想提取多个矩形的。按一定距离。按高度从高到低并重新排列。请高手指点指点。谢谢。

明经快报

[woshilxh]爱摄影 21:52:47

？