2013-07-06 明经 AutoLISP 编程(102918348) 群聊记录：[image={91AE7D65-5E97-C37F-47D1-1C543E

明经快报

[vormittag]桔子 16:18:35

干嘛谢我？

[lisp-study]jun 16:19:08

那不谢了

[linshiyin2]大地 16:21:52

萝卜的程序被破解了？
(QQ for ad支持个性表情发送: http://im.qq.com/pad)

[linshiyin2]大地 16:23:34

fas不安全了？

[阿然][阿然] 16:25:03

[死者不舞] 16:26:27

有让一根多段线 或者样条曲线 的其中一部分变成虚线的程序没有？？谢谢！！！

[linshiyin2]大地 16:27:01

不可能实现

[vormittag]桔子 16:28:20

打断，改线型

[linshiyin2]大地 16:29:36

只能重新绘制

[死者不舞] 16:31:53

意思是把一根绘制好的多段线  找两个点变成虚线

[阿然][阿然] 16:34:07

打断，改线型

[死者不舞] 16:34:36

打断点嘛

[linshiyin2]大地 16:34:43

打断，改线 不就是手动了？

明经快报

[mmh1][mmh1]漫步地球 16:49:27

[qqimg]201307/{EBE1AFAE-430E-8245-0EEC-FF0F2083573D}.jpg[/qqimg]
类似把这些放入框中的算法有吗？

最优算法

[VBALISPER]恐龙 16:50:10

放入框中

[mmh1][mmh1]漫步地球 16:50:22

矩形框

[VBALISPER]恐龙 16:50:23

是不是最小包围框啊

[mmh1][mmh1]漫步地球 16:50:38

不是，可以插入中间的

[mmh1][mmh1]漫步地球 16:52:04

有可能是锯齿状的，然后可以排在一起

[qqimg]201307/{A5083F05-6C43-8565-A097-E44A5B4D9EBA}.jpg[/qqimg]

有算法可以实现吗？

[VBALISPER]恐龙 16:53:03

偶不懂.等高手来给你解答

明经快报

[清风明月名字] 17:04:19

请问，用LISP如何能取得任意线的Z坐标（三维多义线除外）?

明经快报

[【KAIXIN】] [【KAIXIN】]炫翔 17:17:38

[qqimg]201307/{EB70F864-E50E-7B6E-0A88-96BB0388345D}.jpg[/qqimg]画线 偏移修剪

明经快报

[不死猫][nonsmall]不死猫 17:57:07

今晚20:00猫老师Lisp线上交流活动 
YY频道 83001199
交流Lisp核心语法和学习方法等.欢迎各位交流学习.

[lisp-study]jun 17:59:56

没发邮件可以来么 猫老师

[不死猫][nonsmall]不死猫 18:02:47

来呀

[lisp-study]jun 18:04:26

好 谢谢

明经快报

[野狼谷]笨鸟 23:34:46

;;自定义函数，根据坐标点列表汇总一条多段线
                  ;(setq Baspoint_List '((0 500 0) (500 0 0) (500 500 0) (300 300 0)))

(defun Draw_Pline (Baspoint_List ipe_Weight / number)

     ;;[caoyin]  19:55:42
     (if (= (length (car Baspoint_List)) 3)
      ;;如果是三维坐标，则转为二维坐标
      (setq    Baspoint_List
            (mapcar '(lambda (PT) (mapcar '+ T '(0 0)))
                Baspoint_List
            )
      )
     )

     (setq Baspoint_List (apply 'append Baspoint_List))
     (setq ent1
           (vla-AddLightweightPolyline
            (vlax-get (vla-get-ActiveDocument (vlax-get-acad-object))
                  (if (> (getvar 'CVPORT) 1)
                   ;;选择空间类型
                   '
                    ModelSpace
                   'PaperSpace
                  )
            )
            (vlax-make-variant
             (vlax-safearray-fill
                  (vlax-make-safearray
                   5
                   (cons 0 (1- (length Baspoint_List)))
                  )
                  Baspoint_List
             )
            )
           )
     )


     ;;以下语句用来给多段线宽度赋值
     (setq number 0)
     (repeat (1- (length Baspoint_List))
      (progn (vla-SetWidth
              ent1
              ;LINE的VL实体名
              number
              ;;每一段编号，利用循环给每一段都变宽
              ipe_Weight
              ;;起点宽度
              ipe_Weight
              ;;终端宽度
;;;             (atoi ipe_Weight)
;;;              (atoi ipe_Weight)

         )
         (setq number (1+ number))
      )
     )

)

明经快报

[lisp-study]jun 23:45:25

先建立线然后再改变线宽是么？

[野狼谷]笨鸟 23:45:32

对

[lisp-study]jun 23:45:50

我这有个entmake的

[野狼谷]笨鸟 23:47:00

好像我cad2006不行

[lisp-study]jun 23:48:43

[qqimg]201307/{5946DC6B-CD0E-9188-2979-AC4CB11F8AB3}.jpg[/qqimg]试试我这个呢

[野狼谷]笨鸟 23:52:19

谢谢！我那个entmake可以了，

[lisp-study]jun 23:52:32

[野狼谷]笨鸟 23:53:03

你现在成高手了？

[lisp-study]jun 23:53:14

没 菜鸟

[野狼谷]笨鸟 23:53:23

这个都会？？？

还lambda呢？

[金光]金光 23:53:36

[qqimg]201307/{E5054EA3-98F9-D3AF-96C6-DC86782BB5B3}.gif[/qqimg]

[lisp-study]jun 23:53:43

比较喜欢lambda和mapcar

[野狼谷]笨鸟 23:54:24

[lisp-study]jun 23:55:09

我试过 当数量多起来了 mapcar比repeat快的比较多

[野狼谷]笨鸟 23:56:57

哦