2013-05-06 明经 AutoLISP 编程(102918348) 群聊记录：[image={19D73B62-AF38-61EC-B666-093DC6

明经快报

[阿然][阿然] 15:00:39

[qqimg]oldimg/{9F9C96ED-F37F-70F3-CBD8-32FE2586D630}.jpg[/qqimg]用acdb

[阿然][阿然] 15:05:48

;;;只要画圆就会自动连接圆心形成pline

[雨的节奏][雨的节奏] 15:07:11

不懂

[loveguo]筠筠 15:11:56

。。。

[zhuquanmao]关中 15:12:47

出错了

[cie0588][cie0588] 15:15:02

这个好。道路定线可以用这个程序

明经快报

[pzweng]路人 15:36:52

这个可以不用反应器

[pzweng]路人 15:37:59

(defun C:test ()
  (defun getpt (/ pt)
    (setq pt (getpoint))
    (vla-addCIRCLE
      (vla-get-modelspace
        (vla-get-activedocument (vlax-get-acad-object))
      )
      (vlax-3d-point pt)
      10
    )
    pt
  )
  (setq do t)
  (command ".pline")
  (while (> (getvar "CMDACTIVE") 0)
    (command (getpt))
  )
 )

[pzweng]路人 15:38:30

(defun C:test ()
  (defun getpt (/ pt)
    (setq pt (getpoint))
    (vla-addCIRCLE
      (vla-get-modelspace
        (vla-get-activedocument (vlax-get-acad-object))
      )
      (vlax-3d-point pt)
      10
    )
    pt
  )
  (command ".pline")
  (while (> (getvar "CMDACTIVE") 0)
    (command (getpt))
  )
 )

[zhuquanmao]关中 15:39:32

excellink谁用过啊 最高版本只支持到2008  有没有高些的pj版本？

明经快报

[HNFSF](看海) 16:11:39

[qqimg]oldimg/{18257E9F-28F5-17B7-D77F-513E9133F6E5}.jpg[/qqimg]

[sqbao] 16:17:39

。。

真差不多

现在真的叫老师老板了

明经快报

[雨的节奏][雨的节奏] 16:56:13

(defun c:test ()
  (setvar "cmdecho" 0)
  (entmake (list '(0 . "TEXT")
                             (cons 1 "text")
                             (cons 40 100)
                             (cons 10 (setq tpt (cadr (grread 20))))
                         )
                   )
   (setq en (entlast))
   (while (= (car (grread 1)) 5) 
          (setq txp (cons 10 (cadr (grread 1))))
          (setq endata (entget en))
          (setq endata (subst txp (assoc 10 endata) endata))
          (entmod endata) 
   )
)

明经快报

[雨的节奏][雨的节奏] 17:08:04

哦、、

[zhuquanmao]关中 17:10:07

见过编辑完属性块自动变色的命令么？[qqimg]oldimg/{AEC972DE-4DA9-7132-7E44-52C5B4B5FDA1}.gif[/qqimg]

明经快报

[雨的节奏][雨的节奏] 17:59:11

暂停一秒的命令是什么

明经快报

[328302216]小莫 18:13:23

delay

[pzweng]路人 18:19:17

delay 1000

[328302216]小莫 18:19:57

(command "delay" 1000)  

[328302216]小莫 18:20:27

[qqimg]oldimg/{D3683510-7D39-98F3-5F87-FE12D95F963A}.gif[/qqimg]

[mitenickevin]kevin 18:27:37

[ZZXXQQ] 18:30:52

(QQ for ad支持个性表情发送: http://im.qq.com/pad)

明经快报

[yxp]小蜜蜂 18:47:04

小明吃饭去了？

明经快报

[Bagu]Cyb 18:58:34

问一下 谁有 桩位编号 这个小程序呀

[【KAIXIN】] [【KAIXIN】]炫翔 19:00:33

去下载吧

[Bagu]Cyb 19:00:58

我试试 刚下载了一些 不太好用

[qqimg]oldimg/{1D52A98D-D895-8E64-A79E-14F47454613C}.jpg[/qqimg]

[yxp]小蜜蜂 19:03:33

没有容差排序的结果

不超过桩径的坐标可以认为是一行

[Bagu]Cyb 19:04:38

[qqimg]oldimg/{BC1A4020-58BA-3309-ABF7-5E73950BCC3C}.jpg[/qqimg]院长的倒是挺好用，但集成的插件太多了

明经快报

[328302216]小莫 19:26:18

[qqimg]oldimg/{4C0A2E2B-3DE1-7F19-A2E6-A83225024EFF}.jpg[/qqimg]这个牛逼