2013-08-19 明经 AutoLISP 编程②(177027547) 群聊记录：矢量有何用途

明经快报

[958620832]仁者 10:54:28

矢量有何用途

明经快报

lzq2k-God Lisper 11:38:38

要组建一个网上无报酬非盈利开发团队，有没有什么互联网平台（比如为小买家提供服务的淘宝）可提供比较好的服务。
    该开发团队纯粹因为兴趣利用业余时间进行合作，成果共享，但不可直接使用共同成果进行盈利。

(420552)浪子 11:42:05

明经快报

[958620832]仁者 12:03:33

(defun c:gc ()
  (setq ss (ssget '((0 . "DIMENSION"))) len (sslength) index 0)
  (repeat len
    (setq ent (entget (ssname ss index))
          size_old (cdr (assoc 42 ent)) size_new (/ size_old 2)) 
    (setq ent_new (subst (cons 42 size_new) (assoc 42 ent) ent))
    (entmod ent_new)
    (setq index (+ index 1)))
(princ))

明经快报

[vormittag]桔子 12:14:06

强烈鄙视提供这种修改尺寸标注方式的软件。

[958620832]仁者 12:14:18

不是的，我只是将1:50的图改成1:100的尺寸，尺寸需要缩小一倍，这样应该可以接受吧

[vormittag]桔子 12:15:18

改尺寸标注样式，找出对应的尺寸标注样式，改dimlfac 对应的组码。

明经快报

[958620832]仁者 16:56:58

(defun c:br ()
 (setq ent (car (entsel " 请选择被打断线段:"))
       p (getpoint " 请选择断点:"))
 (setq ent (redraw ent 3))
 (command "_.break" ent p p)
(princ))

问题何在？

[vormittag]桔子 16:57:56

ent-> nil

redraw 的返回值总是nil

[958620832]仁者 17:00:04

怎么讲redraw加进去呢？

[958620832]仁者 17:01:13

怎么实现线段被打断之前是高亮度显示呢？

[958620832]仁者 17:03:44

(defun c:br ()
 (setq ent (car (entsel " 请选择被打断线段:")))
 (redraw ent 3)
 (setq p (getpoint " 请选择断点:"))
 (command "_.break" ent p p)
(princ))

这样就可以了

明经快报

[梦起岚山]纯一 17:45:40

[qqimg]201308/{45C83479-11BD-4956-6B8E-70A34C613D05}.jpg[/qqimg]

大量的桩基承台要标注

标注定位尺寸

[vormittag]桔子 17:46:17

做成块，在块里标注。

[梦起岚山]纯一 17:46:41

师兄你说怎么在块里标注啊

我对块不熟悉

基本没用过

明经快报

宋文少 20:49:19

br

b

块指令，，进去就知道啊