社区 › AutoLISP/Visual LISP 编程技术 › 各位大神看一下，我这里有个12位置跳转的程序，如何修改图纸能记住这个位置，同时

664571221 发表于 2023-8-11 21:28:29

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

本帖最后由 664571221 于 2023-8-11 21:42 编辑

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

飞雪神光 发表于 2023-8-13 12:43:04

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

我也不知道怎么回事 可能是浏览器的问题
(defun set-dxf (ename code val / ent)
        (setq ent (entget ename))
        (if (and (listp code) (listp val))
                (mapcar '(lambda (x y) (set-dxf ename x y)) code val)
                (progn
                        (if (assoc code ent)
                                (setq ent (subst (cons code val) (assoc code ent) ent))
                                (setq ent (append ent (list (cons code val))))
                        )
                        (entmod ent)
                        (entupd ename)
                )
        )
        ename
)
(defun c:1 ()
        (setvar "cmdecho" 0)
        (if (null pt1-2)
                (progn
                        (setq
                                pt1-1 (getpoint "\n点取第一个点：")
                                pt1-2 (getcorner pt1-1 "\n点取第二个点：")
                        )
                        (command "rectang" pt1-1 pt1-2)
                        (set-dxf (entlast) '(8 43 62) '("比对" 5 4))
                )
        )
        (command "zoom" "w" pt1-1 pt1-2)
        (princ)
)
(defun c:2 ()
        (setvar "cmdecho" 0)
        (if (null pt2-2)
                (progn
                        (setq
                                pt2-1 (getpoint "\n点取第一个点：")
                                pt2-2 (getcorner pt2-1 "\n点取第二个点：")
                        )
                        (command "rectang" pt2-1 pt2-2)
                        (set-dxf (entlast) '(8 43 62) '("比对" 5 4))
                )
        )
        (command "zoom" "w" pt2-1 pt2-2)
        (princ)
)

(defun c:10(/ ss)
        (setq
                pt1-1 nil
                pt1-2 nil
                pt2-1 nil
                pt2-2 nil
        )
        (setq ss(ssget "a" '((0 . "LWPOLYLINE")(8 . "比对"))))
        (if ss
                (command "erase" ss "")
        )
        (princ)
)

panliang9 发表于 2023-8-14 09:57:01

本帖最后由 panliang9 于 2023-8-14 10:10 编辑

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

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

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

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

飞雪神光 发表于 2023-8-13 16:30:49

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

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

664571221 发表于 2023-8-11 21:40:27

本帖最后由 664571221 于 2023-8-11 22:24 编辑

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

xyp1964 发表于 2023-8-11 21:42:42

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

664571221 发表于 2023-8-11 21:47:06

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

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

飞雪神光 发表于 2023-8-13 11:59:46

想法不错 我用着挺好用的

664571221 发表于 2023-8-13 12:04:55

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

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

664571221 发表于 2023-8-13 12:13:46

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

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

LYC688 发表于 2023-8-13 12:45:13

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

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

664571221 发表于 2023-8-13 15:33:53

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

兄弟你的头像也很神奇啊

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