请高手帮忙实现图中的功能

fjutcivil · 发表于 2013-8-28 09:52:17

lijiao 发表于 2013-8-28 09:50
顺便问个小问题，因多年不来论坛了，论坛变化太大了，看见各位都有签到，请问在什么地方签到。

我是一进来，要点消息，他就自动跳到签到那边了，你也是版主，帮我整个一般LISP的吧他那个我加载不了还要等过了新手期才能下载那个通用函数

lijiao · 发表于 2013-8-28 09:59:21

行，我帮你做一个wipeout的吧，不一定好用

lijiao · 发表于 2013-8-28 10:03:12

能截个图不，我点完“消息”也没见签到两字

Lisphk · 发表于 2013-8-28 10:38:01

lijiao 发表于 2013-8-28 10:03
能截个图不，我点完“消息”也没见签到两字

点淘专辑吧边上的应用，第一个就是每日签到。

Lisphk · 发表于 2013-8-28 10:41:48

fjutcivil 发表于 2013-8-28 09:52
我是一进来，要点消息，他就自动跳到签到那边了，你也是版主，帮我整个一般LISP的吧他那个我加载不了 ...

你把那个函数名XD::Doc:GetPickBoxHeight做关键字，一搜索就有了

链接：http://www.xdcad.net/forum/thread-668679-1-1.html

下载这个源码就行了。

fjutcivil · 发表于 2013-8-28 10:47:39

Lisphk 发表于 2013-8-28 10:41
你把那个函数名XDc:GetPickBoxHeight做关键字，一搜索就有了

链接：http://www.xdcad.net/forum/ ...

怎么整合进去啊这次这个你帮我整进去看看，我对比下下次就知道怎么弄了不剩感激哥们

Lisphk · 发表于 2013-8-28 10:49:20

fjutcivil 发表于 2013-8-28 10:47
怎么整合进去啊这次这个你帮我整进去看看，我对比下下次就知道怎么弄了不剩感激哥们

你把那个源码，和上面版主给你的程序放到一个文件里面，拷贝粘贴过去，保存个LSP文件就OK了。

st788796 · 发表于 2013-8-28 11:14:03

搜到一个不过要D豆
http://www.xdcad.net/forum/forum.php?mod=viewthread&tid=669344

fjutcivil · 发表于 2013-8-28 11:18:05

Lisphk 发表于 2013-8-28 10:49
你把那个源码，和上面版主给你的程序放到一个文件里面，拷贝粘贴过去，保存个LSP文件就OK了。

试了不行

fjutcivil · 发表于 2013-8-28 11:35:43

本帖最后由 fjutcivil 于 2013-8-28 11:43 编辑

newer 发表于 2013-8-28 07:41
既然用户要拉窗口，那肯定已经是要在屏幕内了。

版主有BUG啊，我选择一次，没选全，它切断了一部分，然后我重新选全了下，结果致命错误，CAD嗝屁了，求优化啊！！！

还有一个就是像附图那样，我全选了，红色那个不会切断左上角点不会切断

st788796 · 发表于 2013-8-28 11:52:43

xdrx_curve_getsplitcurve BUG 还没有修正，点或参数不在线上CAD就嗝屁

wowan1314 · 发表于 2013-8-28 12:10:49

本帖最后由 wowan1314 于 2013-8-28 12:18 编辑

尝试写了下。仅供参考

(defun c:t11 nil
(mapcar''((x)
(mapcar''((x)
(mapcar''((y)(vl-cmdf ".break" y "f" x "@"))
(cdr(reverse(mapcar 'cadr (ssnamex (ssget "_c" x x)))))
)
)
x
)
)
(mapcar''((x)(list (vlax-curve-getendpoint x)(vlax-curve-getstartpoint x)))
('((x)(if (= 1 (length x))x(cdr(reverse x))))
(mapcar 'cadr (ssnamex (ssget '((0 . "L*LINE")))))
)
)
)
)

lijiao · 发表于 2013-8-28 14:10:33

(defun my_wipeout (ent dis / CMDECHO DICT DIS OSMODE PT1 PT2 PT3 PT4 PTS SORTENTS
x
)
(vla-GetBoundingBox ent 'pt1 'pt2)
(setq pts (mapcar
'vlax-safearray->list
(list pt1 pt2)
)
)
(setq pt1 (car pts)
pt3 (cadr pts)
)
(setq pt1 (list (car pt1) (cadr pt1))
pt3 (list (car pt3) (cadr pt3))
)
(setq pt1 (mapcar
'(lambda (x)
(- x dis)
)
pt1
)
)
(setq pt3 (mapcar
'(lambda (x)
(+ x dis)
)
pt3
)
)
(setq pt2 (list (car pt3) (cadr pt1))
pt4 (list (car pt1) (cadr pt3))
)
(setq cmdecho (getvar "cmdecho")
osmode (getvar "osmode")
)
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(command "wipeout" "frame" "off")
(command "wipeout" pt1 pt2 pt3 pt4 "")
(setvar "osmode" osmode)
(setvar "cmdecho" cmdecho)
(if (vl-catch-all-error-p (setq Sortents (VL-CATCH-ALL-APPLY 'vla-item
(list
(setq dict
(vla-GetExtensionDictionary
(vla-ObjectIDtoObject
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
(vla-get-OwnerID ent)
)
)
)
"ACAD_SORTENTS"
)
)
)
)
(setq Sortents (VL-CATCH-ALL-APPLY 'vla-AddObject (list dict "ACAD_SORTENTS"
"AcDbSortentsTable"
)
)
)
)
(if Sortents
(vla-MovetoTop Sortents (vlax-make-variant (vlax-safearray-fill
(vlax-make-safearray vlax-vbObject
(cons 0 0)
)
(list ent)
)
)
)
)
(princ)
)

(defun my_wipeout (ent dis / CMDECHO DICT DIS OSMODE PT1 PT2 PT3 PT4 PTS SORTENTS 
                       x 
                  ) 
  (vla-GetBoundingBox ent 'pt1 'pt2) 
  (setq pts (mapcar 
              'vlax-safearray->list 
              (list pt1 pt2) 
            ) 
  ) 
  (setq pt1 (car pts) 
        pt3 (cadr pts) 
  ) 
  (setq pt1 (list (car pt1) (cadr pt1)) 
        pt3 (list (car pt3) (cadr pt3)) 
  ) 
  (setq pt1 (mapcar 
              '(lambda (x) 
                 (- x dis) 
               ) 
              pt1 
            ) 
  ) 
  (setq pt3 (mapcar 
              '(lambda (x) 
                 (+ x dis) 
               ) 
              pt3 
            ) 
  ) 
  (setq pt2 (list (car pt3) (cadr pt1)) 
        pt4 (list (car pt1) (cadr pt3)) 
  ) 
  (setq cmdecho (getvar "cmdecho") 
        osmode (getvar "osmode") 
  ) 
  (setvar "cmdecho" 0) 
  (setvar "osmode" 0) 
  (command "wipeout" "frame" "off") 
  (command "wipeout" pt1 pt2 pt3 pt4 "") 
  (setvar "osmode" osmode) 
  (setvar "cmdecho" cmdecho) 
  (if (vl-catch-all-error-p (setq Sortents (VL-CATCH-ALL-APPLY 'vla-item 
                                                               (list 
                                                                     (setq dict 
                                                                           (vla-GetExtensionDictionary 
                                                                                                       (vla-ObjectIDtoObject 
                                                                                                                             (vla-get-ActiveDocument 
                                                                                                                                                     (vlax-get-acad-object) 
                                                                                                                             ) 
                                                                                                                             (vla-get-OwnerID ent) 
                                                                                                       ) 
                                                                           ) 
                                                                     ) 
                                                                     "ACAD_SORTENTS" 
                                                               ) 
                                           ) 
                            ) 
      ) 
    (setq Sortents (VL-CATCH-ALL-APPLY 'vla-AddObject (list dict "ACAD_SORTENTS" 
                                                            "AcDbSortentsTable" 
                                                      ) 
                   ) 
    ) 
  ) 
  (if Sortents 
    (vla-MovetoTop Sortents (vlax-make-variant (vlax-safearray-fill 
                                                                    (vlax-make-safearray vlax-vbObject 
                                                                                         (cons 0 0) 
                                                                    ) 
                                                                    (list ent) 
                                               ) 
                            ) 
    ) 
  ) 
  (princ) 
)

fjutcivil · 发表于 2013-8-28 14:28:59

lijiao 发表于 2013-8-28 14:10

咋运行啊 defun c:mywipeout(/ent dis 我改成这样子都运行不了啊

Lisphk · 发表于 2013-8-28 16:17:48

fjutcivil 发表于 2013-8-28 14:28
咋运行啊 defun c:mywipeout(/ent dis 我改成这样子都运行不了啊

他提供的是一个函数，看参数应该是要遮罩的实体和间距

实体就是你墙层的PLINE线，你试试（my_wipeout (car (entsel)) 10) ,选下墙层的多段线，看看效果。

账号		自动登录	找回密码
密码			立即注册

[求助] 请高手帮忙实现图中的功能

点评

点评

点评

点评

点评

评分

点评

评分

点评

点评