[求助]高手呀！！！这个的LSP能做吗???谢谢

 

由于工作需要，急需几个程序，烦请哪位高人有时间，帮忙看下能不能搞，小弟在谢过。

 

一、求每条多义线（多义线：每个多义线下边都有相应的编号）的总长度能在相应的多义线编号下边标示出来，最后能生成相应表格（表格含有相应的编号和长度）。这个给小第的工作时间增加了不少，希望行过路过的都过来看下，给小弟出下主意，最好可以批量选择，批量做出来。谢谢

 

二、帮忙看个程序，还是我用错了。

 

版权是：luoguoqianga

 

比如我选择原图元（0物体）复制一个1物体，距离100；那么我再输入300的时候，这个300是从1物体开始计算，而不是从0物体开始计算

（我发现在没有上面说的这个功能）

 

(defun c:copym(/ a b) ;主函数开始
(setq a(cadr(ssgetfirst)));判断当前图形是否有既被夹取又被选取的,如果有则把这个选择集赋予变量a。
 (if(= a nil) ;如果变量a为空时
  (progn
  (setq b(ssget));创建一选择集,并将选择集名字赋予变量B

    (if(= b nil);####IF开始
      (progn
       (princ);静默退出
      )
     (progn;####progn开始

  (command "copy" b "" "m" )
   )
   )
   );调用COPY命令,其中B为选择集
  (progn
  (command "copy" a "" "m" ));调用COPY命令,其中A为选择集名字
 );IF结束
(princ);静默退出
);主函数结束

等高人

Andyhon

For test only

3. (defun c:Kopy (/ ss str pt lst1 lst2)
4.     (setq ss (ssget)
5.          str "10"
6.     )
7.     (setvar "CMDECHO" 1)
8.     (setvar "HIGHLIGHT" 0)
9.     (setvar "OrthoMode" 1)
10.     (while (or
11.              (not (zerop (atof str)))
12.              (not (equal pt (GetVar "LastPoint")))
13.            )  
14.       (setq pt (dxg 10 (ssname ss 0)))
15.       (command "copy" ss "" pt pt)
16.       (command "move" ss "" pt)
17.       (command pause)
18.       (setq lst1 (getvar "LASTPROMPT")
19.              str (parse lst1 " ")
20.              str (last str)
21.       )
22.     )
23.     (setvar "CMDECHO" 0)
24.     (setvar "HIGHLIGHT" 1)
25.     ;; (setvar "OrthoMode" 0)
26. )

(defun c:Kopy (/ ss str pt lst1 lst2)     (setq ss (ssget)          str "10"     )     (setvar "CMDECHO" 1)     (setvar "HIGHLIGHT" 0)     (setvar "OrthoMode" 1)     (while (or              (not (zerop (atof str)))              (not (equal pt (GetVar "LastPoint")))            )         (setq pt (dxg 10 (ssname ss 0)))       (command "copy" ss "" pt pt)       (command "move" ss "" pt)       (command pause)       (setq lst1 (getvar "LASTPROMPT")              str (parse lst1 " ")              str (last str)       )     )     (setvar "CMDECHO" 0)     (setvar "HIGHLIGHT" 1)     ;; (setvar "OrthoMode" 0) )

parse
==>
http://bbs.mjtd.com/Archive_view.asp?boardID=3&ID=28168

; 错误: no function definition: DXG

 

不知是不是版本问题还是什么问题，，，不过还是非常感谢上面那位兄台。我用2004

Andyhon

Function Dxg

 

http://www.google.com/search?hl=zh-cn&as_qdr=all&q=%22Defun+dxg%22&btnG=%E6%90%9C%E5%B0%8B&lr=&aq=f&aqi=&aql=&oq=&gs_rfai=

429014673

希望有人帮下，，，谢谢

ZZXXQQ

(defun dxg (key en)  (cdr(assoc key (entget en))))

429014673

想要那个：复制基准为上一条线的程序，基准而不是第一条线  关注下

xyp1964

(defun c:tt (/ ss p1 p2 s0)
  (if (and (setq ss (ssget)) (setq p1 (getpoint "\n基点: ")))
    (while (setq p2 (getpoint p1 "\n基点: "))
      (setq s0 (entlast))
      (command "copy" ss "" p1 p2)
      (setq ss (xyp-SSelEntnext s0)
     p1 p2
      )
    )
  )
  (princ)
)

429014673

xyp1964发表于2010-7-11 9:55:00(defun c:tt (/ ss p1 p2 s0)  (if (and (setq ss (ssget)) (setq p1 (getpoint \"\n基点: \")))    (while (setq p2 (getpoint p1 \"\n基点: \"))   &nbs

复制代码

复制代码

1. 下载 文件大小:13.45 KB，下载次数:0

复制代码

不是这各效果，，而是“
比如我选择原图元（0物体）复制一个1物体，距离100；那么我再输入300的时候，这个300是从1物体开始计算，而不是从0物体开始计算
”