2013-06-27 QQ群：ALISP＆VLISP(143438137) 聊天记录：[face21.gif]

CCarch

长风（龙少）(8240891)于2013-06-27 14-10-08：
请问一下，prv是什么格式的文件，或以转为lsp吗

CCarch

゛简单(380942707)于2013-06-27 14-10-17：
针对多重快的

CCarch

゛简单(380942707)于2013-06-27 14-10-23：
块

richine001

.逸.(382112475)于2013-06-27 14-21-39：
[face76.gif]

cswswq2009

风中的承诺也许会随风飘去(181314507)于2013-06-27 15-22-04：
签到

rjtiantian

One Is All(12486872)于2013-06-27 15-39-31：
反应器:双击属性块能不能不要出来自带的增强属性编辑器呀？

CCarch

関吣(67512820)于2013-06-27 15-44-21：
;;;==========================================

;;;功能：可以框选的修剪

;;;日期：ZML84 于 2007-08-20

;;;==========================================

(defun C:TT (/ S1 S2 PT1 PT2 CMDECHO_OLD I XX)

    (princ "\n★★可以框选的修剪★★")

    (setq CMDECHO_OLD (getvar "CMDECHO"))

    (setvar "CMDECHO" 0)

    (princ

    (strcat

        "\n当前设置:投影="

        (nth (getvar "PROJMODE") '("不投影" "当前UCS" "当前视图"))

        "，边="

        (nth (getvar "EDGEMODE") '("不延伸" "延伸"))

    )

    )

    (princ "\n选择剪切边...")

    ;;若没有选取边界，就将全部对象作为边界

    (if    (setq S1 (ssget))

    ()

    (setq S1 (ssget "all"))

    )

    (while (progn (initget 4 "P E U")

          (setq    PT1

               (getpoint

                   "\n选择要修剪的对象，或 [投影(P)/边(E)/放弃(U)]:"

               )

          )

       )

    (cond

        ;;分支一：投影选项设置

        ((= PT1 "P")

         (progn

         (initget 4)

         (setq

             XX    (getint

                (strcat

                "\n输入投影选项 [无(0)/UCS(1)/视图(2)] :"

                )

            )

         )

         (if (or (= XX 0) (= XX 1) (= XX 2))

             (setvar "PROJMODE" XX)

         )

         )

        )

        ;;分支二：边延伸选项设置

        ((= PT1 "E")

         (progn

         (initget 4)

         (setq XX (getint

                  (strcat

                  "\n输入隐含边延伸模式 [不延伸(0)/延伸(1)] :"

                  )

              )

         )

         (if (or (= XX 0) (= XX 1))

             (setvar "EDGEMODE" XX)

         )

         )

        )

        ;;分支四：撤销上一步操作

        ((= PT1 "U")

         (command "_.undo" 1)

        )

        ;;分支五：对选中的对象进行修剪操作

        ((listp PT1)

         (

                 (setq I (1+ I))

                 )

                 (command "")

                 (command "_.undo" "e")

             )

             (princ "\n★未选择到对象。")

             )

         )

         )

        ) ;_结束 分支五

    ) ;_结束 cond 结束分支

    ) ;_结束 while

    (setvar "CMDECHO" CMDECHO_OLD)

    (princ "\n★正常结束。谢谢使用。")

    (princ)

) ;_结束 defun

;;;===========================================================

(alert (princ "\n★可以框选的修剪。\n键入命令\"TT\"执行。"))

(princ)

progn

         (if (setq S2 (ssget PT1))

             (progn

             (command "_.undo" "be")

             (command "_.trim" S1 "" S2 "")

             (command "_.undo" "e")

             )

             (if (and (setq PT2

                       (getcorner PT1

                          " >>>第二角点: "

                       )

                  )

                  (setq S2 (ssget "c" PT1 PT2))

             )

             (progn

                 (command "_.undo" "be")

                 (command "_.trim" S1 "")

                 (setq I 0)

                 (repeat (sslength S2)

                 (command

                     (list (ssname S2 I) PT1)

                 )

CCarch

関吣(67512820)于2013-06-27 15-44-33：
[qqimg]{EB8C60DC-BC00-DB58-A494-51A3B9BA6E78}.jpg[/qqimg]

CCarch

関吣(67512820)于2013-06-27 15-45-07：
这个CAD框打印的字，我要显示几条怎么写代码啊。

CCarch

関吣(67512820)于2013-06-27 15-45-32：
比如说，我要打上四行的"★可以框选的修剪。\n键入命令\"TT\"执行。"

CCarch

仲文玉(411952877)于2013-06-27 15-58-22：
\n

CCarch

関吣(67512820)于2013-06-27 16-09-26：
谢谢~

CCarch

Mr.L(175928022)于2013-06-27 16-21-37：
.

CCarch

Mr.L(175928022)于2013-06-27 16-21-45：
签到

CCarch

雾迷山(1047875050)于2013-06-27 19-28-07：
如何用lisp激活EXCEL中的一个指定的单元格