2013-08-08 明经 AutoLISP 编程(102918348) 群聊记录：(defun wr_ctpl ( slt / );wr_ctpl (en

明经快报

[500w008]宝林 08:19:23

(defun wr_ctpl ( slt / );wr_ctpl
  (entmake (append (list 
                       '(0 . "LWPOLYLINE")
                       '(8 . "ct_pl") 
                       '(100 . "AcDbEntity") 
                       '(100 . "AcDbPolyline") 
                        (cons 90 4)
                   )
      (mapcar '(lambda (y) (cons 10 y)) slt))
  )
(princ)
)
 这个承台边线 错了

明经快报

[mmh1][mmh1]漫步地球 08:59:33

cad的查找替换功能，能不能在找到的文字后面加上字符？

用通配符找的

明经快报

[小伟jeny]小伟 09:46:50

lisp能不能entmake一个光栅图像？

[【KAIXIN】] [【KAIXIN】]炫翔 09:50:58

描绘点

[小伟jeny]小伟 09:54:29

？

[AMKYUD][AMKYUD]??? 09:57:59

vlisp没有延伸方法啊？

[tryhi]大海 09:59:20

(command "text" (list 0 0) 1.5 0 "测试" "" "")
这样创建出来的图元要怎么获取它？

[cie0588][cie0588] 09:59:41

(entlast)

[牛图腾] 09:59:47

ENLAST

[Angel1995][Angel1995]Angel 10:01:17

把表的第一项放到最后
(append (cdr lst) (list (car lst)))

大家还有更好的办法没有

[tryhi]大海 10:01:28

多谢

ENLAST好像没有这个函数啊

[Angel1995][Angel1995]Angel 10:02:09

ENTLAST

[牛图腾] 10:02:32

ENTLAST

[tryhi]大海 10:03:05

感谢

[AMKYUD][AMKYUD]??? 10:05:28

vlisp有没有延伸方法啊？

明经快报

[xiaomm250][lisp_](car (entsel)) 10:19:53

如何在不知道vlx文件里面的命令的情况下,查看得到vlx中的命令?

[pzweng][pzweng]路人 10:26:49

输入arx

[pzweng][pzweng]路人 10:27:25

C:DBF, C:DBF
    C:DDEMODES, C:DDEMODES
    C:DDGRIPS, C:DDGRIPS
    C:DDQ, C:DDQ
    C:DDRMODES, C:DDRMODES
    C:DDSELECT, C:DDSELECT
    C:DM, C:DM
    C:DQ, C:DQ
    C:DQQ, C:DQQ
    C:DRF, C:DRF
    C:DSH, C:DSH
    C:DTM, C:DTM
    C:DXF, C:DXF
    C:DZD, C:DZD
    C:DZS, C:DZS
    C:EDGE, C:EDGE
    C:EE, C:EE

这些都是命令

[duotu007]查理 10:29:56

(atoms-family 1)

[AMKYUD][AMKYUD]??? 10:30:13

vlx arx是一样的吗

[AMKYUD][AMKYUD]??? 10:30:50

vlisp有没有 延伸 方法 啊？

[pzweng][pzweng]路人 10:39:17

输入arx回车就能查出CAD有哪些命令

[pzweng][pzweng]路人 10:43:55

这个没用

[AMKYUD][AMKYUD]??? 10:50:17

vlisp有没有 延伸 方法 啊？[@20787433,@[pzweng]路人]

[pzweng][pzweng]路人 10:50:32

你查一下呗

[AMKYUD][AMKYUD]??? 10:51:10

函数参考，方法里面没有extend

[AMKYUD][AMKYUD]??? 10:52:53

那用vlisp要怎样延伸呢

[pzweng][pzweng]路人 10:53:07

没有的

可能要自己写一个函数

[AMKYUD][AMKYUD]??? 10:59:24

[pzweng][pzweng]路人 11:01:01

用command吧

[pzweng][pzweng]路人 11:02:11

你的目的是什么

我感觉没必要吧

你如果想延伸改图元的组码就是

[pzweng][pzweng]路人 11:03:15

[qqimg]201308/{1C4395CE-2ECA-AA3C-7815-1E6CCA06EE63}.gif[/qqimg]

[AMKYUD][AMKYUD]??? 11:08:48

vlisp也没有修剪方法啊？

[pzweng][pzweng]路人 11:09:24

改图元数据

[AMKYUD][AMKYUD]??? 11:11:54

好的，谢谢

[xiao]筱 11:16:08

勾呵

呵间

[pzweng][pzweng]路人 11:16:24

什么意思

[xiao]筱 11:16:27

呵呵

明经快报

[OWEN7][qqou7]clever 14:36:54

[qqimg]201308/{AEAAA657-E588-76ED-924F-C1CAC0E0AFF7}.jpg[/qqimg]

这个怎么把图层分组的

ET图层管理器，不会用啊

明经快报

[OWEN7][qqou7]clever 14:47:56

[qqimg]201308/{AC12BAA8-C8D4-951B-CFAB-CBD4A86B7740}.jpg[/qqimg]这个人是不是非洲的

用15寸凸屏

[tiyi8888]永远D痛 14:48:33

人家 是二十年前的相片

很牛的

当时你有吗

[LC100]建筑设计 14:48:58

08年发的。铁。20年前有了

[OWEN7][qqou7]clever 14:49:30

这个人是不是很牛

[pzweng][pzweng]路人 14:51:12

不牛吧

人家在明经混了好长时间

[OWEN7][qqou7]clever 14:52:05

路人，你知道ET的图层管理器怎么用么

[pzweng][pzweng]路人 14:52:20

我还从没用过ET

[LC100]建筑设计 14:52:51

就是改名替换什么之类的吧。

[OWEN7][qqou7]clever 14:53:04

不是，结合布局用，

比如同一个模板图，可以表达不同的配筋图

把图层分为一组，可以快速隐藏或者显示

[chenjian2159]且听 14:54:02

这个怎么实现的？
类似BO那样

[qqimg]201308/{5CAEF85E-8B88-2BE3-F3E0-0A6CB961D994}.gif[/qqimg]

明经快报

[pzweng][pzweng]路人 15:26:21

找最近端点连线

[500w008]宝林 15:34:40

谁有ENTMAKE 标注创建 代码

选择对象: ((-1 . ) (0 . "INSERT") (330 . ) 
(5 . "23E2C") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "hatch") (100 
. "AcDbBlockReference") (2 . "A$C0CCD5722") (10 -205493.0 108820.0 0.0) (41 . 
1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) 
(210 0.0 0.0 1.0))

明经快报

[500w008]宝林 15:48:07

8、半径标注
  (entmake (list '(0 . "DIMENSION") 
                 '(100 . "AcDbEntity") 
                 '(100 . "AcDbDimension")
                  (cons 10 pt) 
                 '(70 . 36) 
                 '(100 . "AcDbRadialDimension")  
                  (cons 15 pt1) 
            )
   )
  
9、直径标注
  (entmake (list '(0 . "DIMENSION") 
                 '(100 . "AcDbEntity")
                 '(100 . "AcDbDimension")
                  (cons 10 pt1) 
                  (cons 11 pt2) 
                 '(70 . 163)
                 '(100 . "AcDbDiametricDimension") 
                  (cons 15 pt3)
           )
  )
  
10、水平标注
  (entmake (list '(0 . "DIMENSION") 
                 '(100 . "AcDbEntity")
                 '(100 . "AcDbDimension") 
                  (cons 10 pt) 
                 '(70 . 32) 
                 '(1 . "") 
                 '(100 . "AcDbAlignedDimension")
                  (cons 13 pt1) 
                  (cons 14 pt2) 
                 '(100 . "AcDbRotatedDimension")
          )
  )
  
11、垂直标注
  (entmake (list '(0 . "DIMENSION") 
                 '(100 . "AcDbEntity")
                 '(100 . "AcDbDimension")
                  (cons 10 pt) 
                 '(70 . 32) 
                 '(1 . "") 
                 '(100 . "AcDbAlignedDimension")
                  (cons 13 pt1) 
                  (cons 14 pt2) 
                 '(50 . 1.5708)
                 '(100 . "AcDbRotatedDimension")
           )
  )


12、倾斜标注  
(entmake (list '(0 . "DIMENSION") 
               '(100 . "AcDbEntity") 
               '(100 . "AcDbDimension") 
                (cons 10 pt1) 
               '(70 . 33) 
               '(1 . "") 
               '(100 . "AcDbAlignedDimension")
                (cons 13 pt2) 
                (cons 14 pt3)
          )
  )

明经快报

[piecewave]阿波菲 16:05:16

ssget怎么排除几个指定图层？

[野狼谷]笨鸟 16:06:25

反向选择？？

我只会选择包含的图层

明经快报

[LC100]建筑设计 16:18:25

只有定死的几个不要是吗？

其实我也不会。

[LC100]建筑设计 16:19:23

全选后，在删除部分集。应该可以吧。不过我不会。

[biaoren]令海 16:20:19

请问多行文字上下标LISP怎么实现？

[dcl1214]昌立 16:21:36

谁有2011版的cad