各位大神看一下，我这里有个12位置跳转的程序，如何修改图纸能记住这个位置，同时

664571221

各位大神看一下，我这里有个12位置跳转的程序，如何修改图纸能记住这个位置，同时能提供一下删除这记录的功能，   如有好的想法，也可以实现类似跳转的功能也可以，望各位大神出手。

飞雪神光

664571221 发表于 2023-8-13 12:13
兄弟你这个头像的最后登录时间是不是太诡异了

我也不知道怎么回事 可能是浏览器的问题

1. (defun set-dxf (ename code val / ent)
   
2.         (setq ent (entget ename))
   
3.         (if (and (listp code) (listp val))
   
4.                 (mapcar '(lambda (x y) (set-dxf ename x y)) code val)
   
5.                 (progn
   
6.                         (if (assoc code ent)
   
7.                                 (setq ent (subst (cons code val) (assoc code ent) ent))
   
8.                                 (setq ent (append ent (list (cons code val))))
   
9.                         )
   
10.                         (entmod ent)
    
11.                         (entupd ename)
    
12.                 )
    
13.         )
    
14.         ename
    
15. )
    
16. (defun c:1 ()
    
17.         (setvar "cmdecho" 0)
    
18.         (if (null pt1-2)
    
19.                 (progn
    
20.                         (setq
    
21.                                 pt1-1 (getpoint "\n点取第一个点：")
    
22.                                 pt1-2 (getcorner pt1-1 "\n点取第二个点：")
    
23.                         )
    
24.                         (command "rectang" pt1-1 pt1-2)
    
25.                         (set-dxf (entlast) '(8 43 62) '("比对" 5 4))
    
26.                 )
    
27.         )
    
28.         (command "zoom" "w" pt1-1 pt1-2)
    
29.         (princ)  
    
30. )
    
31. (defun c:2 ()
    
32.         (setvar "cmdecho" 0)
    
33.         (if (null pt2-2)
    
34.                 (progn
    
35.                         (setq
    
36.                                 pt2-1 (getpoint "\n点取第一个点：")
    
37.                                 pt2-2 (getcorner pt2-1 "\n点取第二个点：")
    
38.                         )
    
39.                         (command "rectang" pt2-1 pt2-2)
    
40.                         (set-dxf (entlast) '(8 43 62) '("比对" 5 4))
    
41.                 )
    
42.         )
    
43.         (command "zoom" "w" pt2-1 pt2-2)
    
44.         (princ)  
    
45. )
    
46. 
    
47. (defun c:10(/ ss)
    
48.         (setq
    
49.                 pt1-1 nil
    
50.                 pt1-2 nil
    
51.                 pt2-1 nil
    
52.                 pt2-2 nil
    
53.         )
    
54.         (setq ss(ssget "a" '((0 . "LWPOLYLINE")(8 . "比对"))))
    
55.         (if ss
    
56.                 (command "erase" ss "")
    
57.         )
    
58.         (princ)  
    
59. )

(defun set-dxf (ename code val / ent)<br />         (setq ent (entget ename))<br />         (if (and (listp code) (listp val))<br />                 (mapcar '(lambda (x y) (set-dxf ename x y)) code val)<br />                 (progn<br />                         (if (assoc code ent)<br />                                 (setq ent (subst (cons code val) (assoc code ent) ent))<br />                                 (setq ent (append ent (list (cons code val))))<br />                         )<br />                         (entmod ent)<br />                         (entupd ename)<br />                 )<br />         )<br />         ename<br /> )<br /> (defun c:1 () <br />         (setvar "cmdecho" 0)<br />         (if (null pt1-2)<br />                 (progn<br />                         (setq <br />                                 pt1-1 (getpoint "\n点取第一个点：")<br />                                 pt1-2 (getcorner pt1-1 "\n点取第二个点：")<br />                         )<br />                         (command "rectang" pt1-1 pt1-2)<br />                         (set-dxf (entlast) '(8 43 62) '("比对" 5 4))<br />                 )<br />         )<br />         (command "zoom" "w" pt1-1 pt1-2)<br />         (princ)  <br /> )<br /> (defun c:2 () <br />         (setvar "cmdecho" 0)<br />         (if (null pt2-2)<br />                 (progn<br />                         (setq <br />                                 pt2-1 (getpoint "\n点取第一个点：")<br />                                 pt2-2 (getcorner pt2-1 "\n点取第二个点：")<br />                         )<br />                         (command "rectang" pt2-1 pt2-2)<br />                         (set-dxf (entlast) '(8 43 62) '("比对" 5 4))<br />                 )<br />         )<br />         (command "zoom" "w" pt2-1 pt2-2)<br />         (princ)  <br /> )<br /> <br /> (defun c:10(/ ss)<br />         (setq <br />                 pt1-1 nil<br />                 pt1-2 nil<br />                 pt2-1 nil<br />                 pt2-2 nil<br />         )<br />         (setq ss(ssget "a" '((0 . "LWPOLYLINE")(8 . "比对"))))<br />         (if ss<br />                 (command "erase" ss "")<br />         )<br />         (princ)  <br /> )

panliang9

http://bbs.mjtd.com/thread-89136-1-1.html

这是在图中自动建立若干个view的程序，可以通过明细表上点击序号链接到图中的序号位置上去。可以直接输入wv直接跳转指定位置
图中还有很多链接，可以在成套图中不断跳转。最终目的是做到“图纸网页化”

下面这是例图。清理了很多东西。

如果链接无法用，需要先运行一遍hyperlink命令，

飞雪神光

664571221 发表于 2023-8-13 15:38
兄弟你这个好像也不能随图纸保存，下次打开图纸输入命令好像也要重新弄

你也没说随图纸保存啊 你要这么弄 需要做文件名记录或者矩形扩展属性的序号添加 做进外部文件内 这可就复杂了

664571221

最好能在12这两个位置画一个矩形框，这样好找一点，矩形款线宽加粗，删除的时候可以吧这个矩形框删除，这个其实可以不限于12，修改一下包括56789都可以

xyp1964

总共8个变量，哪来的12位置？不识数……

664571221

xyp1964 发表于 2023-8-11 21:42
总共8个变量，哪来的12位置？不识数……

确定两个位置后，重新输入1和2 就会在命令1和命令2两个位置切换了

飞雪神光

想法不错 我用着挺好用的

664571221

飞雪神光 发表于 2023-8-13 11:59
想法不错 我用着挺好用的

兄弟你是做啥的，可以加我这个qq吗

664571221

飞雪神光 发表于 2023-8-13 11:59
想法不错 我用着挺好用的

兄弟你这个头像的最后登录时间是不是太诡异了

LYC688

664571221 发表于 2023-8-13 12:13
兄弟你这个头像的最后登录时间是不是太诡异了

你和他都不同在一个空间。可能人家跨越空间来的

664571221

LYC688 发表于 2023-8-13 12:45
你和他都不同在一个空间。可能人家跨越空间来的

兄弟你的头像也很神奇啊