2013-06-11 明经 AutoLISP 编程(102918348) 群聊记录：[image={DF31D09C-5EFD-20CC-15F6-82E754

明经快报

[lisp-study]jun 00:38:08

[qqimg]oldimg/{DF31D09C-5EFD-20CC-15F6-82E7544E5C0F}.jpg[/qqimg]

[qqimg]oldimg/{B77D4A8A-7102-843B-5E55-05929F3DFDA9}.jpg[/qqimg]

明经快报

[AMKYUD][AMKYUD]??? 01:05:16

这是幽默吧

明经快报

[236004]张牙舞爪 08:01:47

问个问题，

[qqimg]oldimg/{FAD0340C-8F00-1348-01A2-6DE2428B2910}.jpg[/qqimg]

上图，怎么返回红线二端的坐标册

[ZZXXQQ] 08:03:45

(list (cdr(assoc 10 (setq ent (entget(car(entsel)))))) (car(assoc 10 (reverse ent))))

[236004]张牙舞爪 08:04:59

要的不是这个，

[236004]张牙舞爪 08:05:38

是白线与红线的交点处，白线二端的坐标

明经快报

[VBALISPER]恐龙 08:56:07

不是两个交点坐标吗

明经快报

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

交点二端的的白线

[VBALISPER]恐龙 09:13:48

白线的起,止点?

[236004]张牙舞爪 09:14:11

是

明经快报

[OWEN7]ya雀无声 09:45:06

[qqimg]oldimg/{346D30FA-06D7-963B-3B5C-A7ED2DAED754}.jpg[/qqimg]怎么样把论坛上的这些代码复制下来

[阿然][阿然] 09:49:19

右上角有个复制代码

[OWEN7]ya雀无声 09:50:09

粘贴的时候 只有一行，而且很乱

[阿然][阿然] 09:50:25

用ie打开

[OWEN7]ya雀无声 09:51:05

不能粘贴到 Lsp里？

[阿然][阿然] 09:51:21

页面用ie打开复制，然后粘贴

[kwok][kwok]巭隼 09:52:01

普通浏览再复制

[OWEN7]ya雀无声 09:52:01

哦，不能用  360浏览器

哦

[阿然][阿然] 09:52:25

恩，以前可以，后来论坛down了一次就不能用360了

[kwok][kwok]巭隼 09:52:55

360好用不?有什么强大功能？

[OWEN7]ya雀无声 09:52:59

[qqimg]oldimg/{6E6070D7-3084-EFF0-90DF-6F61DB97B439}.jpg[/qqimg]

普通浏览也这样

只能 全部复制，

[qqimg]oldimg/{06C32F76-E492-301D-A8BD-1373586FB484}.jpg[/qqimg]

然后这样，

然后退出， 然后替换文字，把问号去掉，

我每次只能这样

[kwok][kwok]巭隼 09:54:56

先全选c+c别点自动复制

[OWEN7]ya雀无声 09:55:37

先全选c 粘贴的时候不是 ASC2 码

[kwok][kwok]巭隼 09:58:08

我用ie别的没试

[water_system][mingdi]shenshen 10:01:04

问一下 可不可以设置打印时红色不那么模糊

明经快报

LSP爱好者 11:23:21

QQ语音怎么保存起来啊

或者有什么好的录音软件啊 大家推荐下

明经快报

[ZZXXQQ] 13:08:46

使用打印样式表为monochrome.ctb即可。

[water_system][mingdi]shenshen 13:10:21

打印样式表在哪儿设置？

[ZZXXQQ] 13:10:54

打印的对话框中

[water_system][mingdi]shenshen 13:14:44

这个样式有什么特别吗？

他会忽略掉颜色吗？

[ZZXXQQ] 13:16:04

黑白

[water_system][mingdi]shenshen 13:18:52

哦  谢谢 我试试

[OWEN7]ya雀无声 13:21:39

……

[OWEN7]ya雀无声 13:23:10

(defun cut(p1 p2 / d d1 d2 p3 p4 p5 p6 p7 p8 p9)   
  (command "ucs" "z" p1 p2)
  (setq p1 (trans p1 0 1)
        p2 (trans p2 0 1) 
        d 100
        d1 (/ d 2.5)
        d2 d
  )
  (setq p3 (list (- (car p1) d2) (cadr p1)) 
        p4 (list (+ (car p2) d2) (cadr p2))
        p5 (list (+ (car p1) (/ (- (car p2) (car p1)) 2)) (cadr p1))
    p6 (list (+ (car p5) d1) (+ (cadr p5) d2))
    p7 (list (+ (car p6) d1) (cadr p5))
    p8 (list (- (car p5) d1) (- (cadr p5) d2))
    p9 (list (- (car p8) d1) (cadr p5)))
  (setvar "clayer" "HELP")    
  (command "pline" p3 p9 p8 p6 p7 p4 "")
  (command "ucs" "")
)

总是换这种 UCS有什么意义

[lisp-study]jun 13:31:09

不然点要乱跑

明经快报

[csc123456]顽强 13:51:42

鸦雀无声

祝大家端午节快乐

[198526]DZ 13:53:49

端午节快乐

[雨的节奏][雨的节奏] 13:53:51

[q530496591][q530496591]小菜鸟 13:54:51

一樣

明经快报

[429014673]djl 15:23:40

好像很啰嗦

[AMKYUD][AMKYUD]??? 15:24:06

端午节快乐