设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: gxqshi456

[源码] [LISP函数]:文件与斜线对齐LSP

[复制链接]
发表于 2009-10-11 14:16:35 | 显示全部楼层
最初由 gysjy 发布
[B]
点“拷贝到剪切板”,打开一个空白文档,粘贴剪切板的内容,存储为lsp文件即可。 [/B]


“拷贝到剪切板”在那个位置。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-10-12 22:33:17 | 显示全部楼层
最初由 lz689706 发布
[B]

“拷贝到剪切板”在那个位置。 [/B]

在程序代码上方有一排黄色字体“拷贝到剪贴板”。
你用普通的“复制”、“粘贴”也可。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-10-15 13:55:24 | 显示全部楼层
我想下那个文字递增的可是不知道为什么就是下不了呢.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-10-15 18:39:51 | 显示全部楼层
最初由 xjking007 发布
[B]我想下那个文字递增的可是不知道为什么就是下不了呢. [/B]

已发送email,请查收。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

点击这里给我发消息

已领礼包: 2个

财富等级: 恭喜发财

发表于 2009-10-16 08:29:33 | 显示全部楼层

凑个热闹

[php]
;;;========================================================
;;;      练习                                             
;;;功能:通用grread研究                                    
;;=================================================
;;  通用grread定义
(defun ZML-GRREAD (LST / TEST TMP MODE VAL TMP2)
    (setq TEST t)
    (while TEST
(setq TMP  (grread 2)
       MODE (car TMP)
       VAL  (cadr TMP)
)
(cond ((= MODE 2)
        (if (and (setq TMP2 (assoc MODE LST))
   (setq TMP2 (cdr TMP2))
   (setq TMP2 (assoc VAL TMP2))
     )
     (eval (cons 'progn (cdr TMP2)))
     ()
        )
       )
       ((setq TMP2 (assoc MODE LST))
        (eval (cons 'progn (cdr TMP2)))
       )
       (t (princ TMP))
)
    )
)
;;;========================================================
;;;文字随线(角度随线的)
(vl-load-com)
(defun C:TT (/ tt-01 tt-02 LST)
    ;;===============
    ;;功能:计算计算距给定点位最近的线上点 和 线上点的前进方位角
    ;;参数:EN_LINE -----线的图元名称
    ;;           PT -----给定点位
    ;;返回:距点最近的线上点 和 线上点的方位角
    (defun TT-01 (EN_LINE PT / OBJ PT1 LST ANG)
;;将图元名转换为 VLA对象
(setq OBJ (vlax-ename->vla-object EN_LINE))
;;距pt最近的曲线上的点pt1
(setq PT1 (vlax-curve-getclosestpointto OBJ PT))
;;pt1点的切线方向矢量
(setq LST (vlax-curve-getfirstderiv
        OBJ
        (vlax-curve-getparamatpoint
     OBJ
     PT1
        )
    )
)
;;计算切线方位角
(setq ANG (atan (/ (cadr LST) (car LST))))
;;返回
(list PT1 ANG)
    )
    ;;===============
    ;;功能:设置文字对象位置及角度
    (defun TT-02 (EN_TEXT PT ANG / ENT)
(setq ENT (entget EN_TEXT))
(setq ENT (subst (cons 10 PT) (assoc 10 ENT) ENT)
       ENT (subst (cons 11 PT) (assoc 11 ENT) ENT)
       ENT (subst (cons 50 ANG) (assoc 50 ENT) ENT)
)
(entmod ENT)

    )
    ;;===============
    (if (and
     ;;
     (setq SS (entsel "\n点取线: "))
     (setq EN_LINE (car SS))
     (setq ENT_LINE (entget EN_LINE))
     (wcmatch (cdr (assoc 0 ENT_LINE))
       "LINE,ARC,LWPOLYLINE,SPLINE"
     )
     ;;
     (setq SS (entsel "\n点取文字: "))
     (setq EN_TEXT (car SS))
     (setq ENT_TEXT (entget EN_TEXT))
     (wcmatch (cdr (assoc 0 ENT_TEXT)) "TEXT,MTEXT")

)
(progn
     (setq LST
       (list '(5
        ;;
        (setq
         TMP
         (TT-01 EN_LINE VAL)
         PT1
         (car TMP)
         ANG
         (cadr TMP)
        )
        ;;
        (TT-02 EN_TEXT VAL ANG)
         (vlax-get-property (vlax-ename->vla-object EN_text) 'InsertionPoint )
        ;;
        (redraw)
        (grdraw VAL PT1 1)
       )
      ;;左击
      '
       (3
        (redraw)
        (setq TEST NIL)
       )
      '(25
        (redraw)
        (setq TEST NIL)
       )
      '(11
        (redraw)
        (setq TEST NIL)
       )
       )
     )
     (ZML-GRREAD LST)
)
    )
    (princ)
)
[/php]
[B]着色显示版:[/B] [/COLOR]  http://zml84.blog.sohu.com/107484330.html
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-12-18 10:06:48 | 显示全部楼层
好东西要支持
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-12-20 12:26:21 | 显示全部楼层
都不错。以前也看过同类的,
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-12-22 12:42:28 | 显示全部楼层
没有爱心币啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2010-1-11 12:33:11 | 显示全部楼层
谢谢可以,反斜线有问题
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

点击这里给我发消息

已领礼包: 1757个

财富等级: 堆金积玉

发表于 2013-5-9 14:25:57 | 显示全部楼层
思路非常好
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-11-15 16:39:56 | 显示全部楼层
12第三方斯蒂芬斯蒂芬
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2015-2-7 13:21:41 | 显示全部楼层
very good ,thanks a lot
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2017-12-12 14:36:11 | 显示全部楼层
怎么没见到文件
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2020-7-29 14:15:37 | 显示全部楼层
谢谢版主分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 7 天前 | 显示全部楼层
正找这样的来写公路的桩号,下来试试,谢谢了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2020-8-7 12:03 , Processed in 0.126752 second(s), 56 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表