2013-04-28 明经 AutoLISP 编程(102918348) 群聊记录：明经论坛注册邀请码好不好弄到？

明经快报

[cie0588][cie0588] 16:56:15

(defun tt (a b lst)
  (reverse
    (member (nth (- (length lst) b)
         (reverse (member (nth (- a 1) lst) lst))
        )
        (reverse (member (nth (- a 1) lst) lst))
    )
  )
)

[野狼谷]笨鸟 16:57:54

[edifier1hao]edifier 17:00:21

请教高手一个问题：cad图直接粘贴到word中并调好大小以后，虚线打印出来非常模糊是怎么回事呀？

[cie0588][cie0588] 17:01:25

使用 BetterWMF 软件试试

[edifier1hao]edifier 17:02:02

试过了，虚线打印出来几乎看不见

[cie0588][cie0588] 17:02:35

将CAD底色调成白色。用QQ截图

[vormittag]桔子 17:02:57

[pzweng]路人 17:03:14

打印成PDF

然后提取出来为jpg

[edifier1hao]edifier 17:03:30

办法是可以，不过qq截图像素低了点儿

[cie0588][cie0588] 17:03:50

打印成jpg

[qqimg]oldimg/{6F3EA084-98C1-6AB1-F434-269AC12DFB4B}.jpg[/qqimg]

CAD有打印成jpg的打印机

[edifier1hao]edifier 17:04:43

试过，图片很模糊

[edifier1hao]edifier 17:05:13

打印成pdf倒是清楚些

[lrd1861]-笗天- 17:05:16

转成pdf

[edifier1hao]edifier 17:06:22

是用cad自带的pdf打印机吗

[cie0588][cie0588] 17:06:56

08版本有自带的pdf打印机。其他版本不清楚

[vormittag]桔子 17:06:58

文本插图用CAD图效果一点都不好。

[野狼谷]笨鸟 17:07:48

结果：(0 1 2 3)

[edifier1hao]edifier 17:08:31

用08的清楚些，我试试，07转为pdf后字体都变粗了

[cie0588][cie0588] 17:09:02

和打印样式有关系吧

[cie0588][cie0588] 17:09:40

用的那种细的字体。打印的时候会按照线的宽度

[edifier1hao]edifier 17:10:36

我用的宋体，那种字体比较细呀

[vormittag]桔子 17:11:05

to 野狼谷，你那个算法是有问题的。

[野狼谷]笨鸟 17:11:21

验证好像还行吧

[cie0588][cie0588] 17:12:07

[qqimg]oldimg/{53FFC6D0-9160-DAF4-6481-C39B3CFF9954}.jpg[/qqimg]

[vormittag]桔子 17:12:13

（1 2 3 3 2 1 1 2 3 3 2 1） 拿这个表试试。

[野狼谷]笨鸟 17:12:56

是有问题

估计问题出在member上

看来还得用while

[vormittag]桔子 17:13:46

是的，只有表中元素两两互不相同才行。

[野狼谷]笨鸟 17:14:07

谁有现成的函数？

[野狼谷]笨鸟 17:20:08

vl-position

明经快报

[cie0588][cie0588] 17:38:13

(defun lst_cult    (a b lst / lst2)
  (setq lst2 lst)
  (repeat (- a 1)
    (setq lst2 (cdr lst2))
  )
  (defun lst_cult2 (n lst)
    (if    (> n 0)
      (append (list (car lst))
          (lst_cult2 (- n 1) (cdr lst))
      )
    )
  )
  (lst_cult2 (1+ (- b a)) lst2)
)

明经快报

[ ](car (entsel)) 17:51:47

;在使用block命令定义块之前,先选择在哪个图层上定义
(defun c:hh2( / i oldName)
    (setq oldName (getvar "clayer"));得到当前图层
    ;定义错误函数
    (setq *error* upx_error)
    (defun my_error(val)
        (setvar "clayer" oldName)
        (setq *error* nil)
        (princ " **自定义错误函数被调用!**")
    )
    (setq i (getint " 请输入图层:_柱_梁_墙_轴线_文字_数据_其他"))
    (if (null i)(setq i 6))
    ;依据各种不同的条件而赋值
    (cond
        ((= i 1)(setq layerName "_1柱"))
        ((= i 2)(setq layerName "_2梁"))
        ((= i 3)(setq layerName "_3墙"))
        ((= i 4)(setq layerName "_4轴线"))
        ((= i 5)(setq layerName "_5文字"))
        ((= i 6)(setq layerName "_6数据"))
        (T      (setq layerName "_7其他"))
    );end of cond
    ;创建图层
    (command "layer" "m" layerName "")
    (initdia);启用对话框
    (command "block");定义块
    (setvar "clayer" oldName);恢复原先的图层
    (princ)
)

为什么我的这个实现不了预期的功能呢?

[ ](car (entsel)) 17:52:55

为什么块还是定义在旧的图层上呢?我是想把块定义在新的图层上面

[野狼谷]笨鸟 17:53:15

这回行了

是不是应该设置该层为当前？

[野狼谷]笨鸟 17:54:40

好像你之前没有  
    (command "layer" "m" layerName "")
  (setvar "clayer"

然后再绘制图元，生成图块

[ ](car (entsel)) 17:56:41

(command "layer" "m" layerName "")
这个本身就切换到了新图层

不用加(setvar "clayer"

[ ](car (entsel)) 17:58:06

我觉得是自定义错误函数的问题,如果把自定义错误函数删除了,就能定义到新的图层上了

[野狼谷]笨鸟 17:58:27

你看看你自定义函数里面有没有设置图层的语句

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

(command "layer" "m" layerName "") 这句好像并不切换到该新建层，你看看

只是新建立了一个层

[ ](car (entsel)) 18:03:53

;在使用block命令定义块之前,先选择在哪个图层上定义
(defun c:hh2( / i oldName)
    (setq oldName (getvar "clayer"));得到当前图层
    ;定义错误函数
    (setq *error* upx_error)
    (defun my_error(val)
        (setvar "clayer" oldName)
        (setq *error* nil)
        (princ " **自定义错误函数被调用!**")
    )
    (setq i (getint " 请输入图层:_柱_梁_墙_轴线_文字_数据_其他"))
    (if (null i)(setq i 6))
    ;依据各种不同的条件而赋值
    (cond
        ((= i 1)(setq layerName "_1柱"))
        ((= i 2)(setq layerName "_2梁"))
        ((= i 3)(setq layerName "_3墙"))
        ((= i 4)(setq layerName "_4轴线"))
        ((= i 5)(setq layerName "_5文字"))
        ((= i 6)(setq layerName "_6数据"))
        (T      (setq layerName "_7其他"))
    );end of cond
    ;创建图层
    (command "layer" "m" layerName "")
    (setvar "clayer" layerName);切换到新图层
    (initdia);启用对话框
    (command "block");定义块
    (setvar "clayer" oldName);恢复原先的图层
    (princ)
)

还是不行

明经快报

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

(command "block");定义块

这个好像不对吧，是不是得entget？

明经快报

[balance]沙隆巴斯 20:25:51

[qqimg]oldimg/{302877DC-FBDA-FCB4-F452-A1014AECD064}.jpg[/qqimg]

【7299969】人生 20:26:01

这干啥额

[ZZXXQQ] 20:26:28

与机器人对话

[VBALISPER]恐龙 20:26:49

人机对话

[weiqi]weiqi 20:28:48

。。。。。。

[weiqi]weiqi 20:29:48

不认识明总了。。

昨天还认识明总的。

明经快报

[zhuquanmao]关中 20:48:44

聊天记录里尽是垃圾信息了 哈哈

[lisp-study]jun 20:51:34

【7299969】人生 20:54:32

1

[仑通]仑通 20:57:25

[qqimg]oldimg/{153A9AFD-DDF9-B3EC-DF9E-000CBEBAE8B6}.gif[/qqimg]

[仑通]仑通 21:00:01

[VBALISPER]恐龙 21:00:24

明经快报

[zhuquanmao]关中 21:27:21

[qqimg]oldimg/{AEC972DE-4DA9-7132-7E44-52C5B4B5FDA1}.gif[/qqimg]

[仑通]仑通 21:35:02

[qqimg]oldimg/{153A9AFD-DDF9-B3EC-DF9E-000CBEBAE8B6}.gif[/qqimg]

[haoryh]烟海 21:35:16

江西人

身高158

古龙是我最喜欢的武侠小说家

[仑通]仑通 21:36:45

郑立楷 他是我老板，明经通道的老大，小心他吃掉你[qqimg]oldimg/{AD082EA1-4884-7EC0-D26D-A63411CF9624}.gif[/qqimg]

[haoryh]烟海 21:38:42

西门吹雪为啥要叫这名子？

[haoryh]烟海 21:39:17

为啥要加#号呢？

[haoryh]烟海 21:40:59

嘿嘿、、、

[haoryh]烟海 21:41:48

[VBALISPER]恐龙 21:42:30

皮砣子 有点牛

[caoyin][caoyin] 21:42:40

[haoryh]烟海 21:44:08

[haoryh]烟海 21:51:09

[qqimg]oldimg/{615393FB-C6E2-AAFE-0A90-8DE5D047DEAF}.gif[/qqimg]

[仑通]仑通 21:52:06

[qqimg]oldimg/{99940033-9576-D89B-FB66-81836DA8A58D}.gif[/qqimg]

不敢公开表态了吧

[仑通]仑通 21:53:15

[qqimg]oldimg/{BDC3A7EA-AC48-B5BB-7198-48097D0AC46C}.gif[/qqimg]

[仑通]仑通 21:57:59

[qqimg]oldimg/{47E4872D-9912-77C0-F58D-8D43A99B8216}.gif[/qqimg]

[haoryh]烟海 21:58:12

[仑通]仑通 22:02:20

[qqimg]oldimg/{99940033-9576-D89B-FB66-81836DA8A58D}.gif[/qqimg]

明经快报

[linshiyin2]大地 23:29:47

动态属性怎么搞？前一段时间看到过，忘记谁写的了，就是改变一个文字，另一个文字跟着变

[linshiyin2]大地 23:33:34

一处文字变化，另一处文字跟着变化，如何做到

[lisp-study]jun 23:34:16

反应器嘛

[linshiyin2]大地 23:34:44

反应器咋搞，还没有接触过

[linshiyin2]大地 23:35:22

给个例子，反应器能做到，一个文字变，另一个跟着变？

[lisp-study]jun 23:35:31

呵呵 我也没做过 感觉停耗资源的 就没弄

可以

[linshiyin2]大地 23:36:12

问题是，已经绘制好的两个文字，也能做到？

[linshiyin2]大地 23:36:42

就相当于动态链接一样

[lisp-study]jun 23:38:05

cad好像还有个标签可以

[linshiyin2]大地 23:38:49

标签？我知道属性，标签是啥

[lisp-study]jun 23:44:26

不对 是字段哈

[linshiyin2]大地 23:46:14

刚找到

插入字段

用lisp如何做到插入字段呢