设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 将文字自动居中
1234
返回列表 发新帖
楼主: eachy

[每日一码] 将文字自动居中

 火 [复制链接]
ymfqjwl
发表于 2016-4-7 00:34:19 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
不结的程序！！！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

tzfcn

已领礼包: 5295个

财富等级: 富甲天下
发表于 2016-4-7 07:33:22 | 显示全部楼层
学习一下看看是如何写的代码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

tmwall

已领礼包: 28个

财富等级: 恭喜发财
发表于 2016-7-13 00:40:38 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
感谢分享。。。。。。。。。。。。。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

landaiyi

已领礼包: 1个

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

使用道具 举报

树櫴希德
发表于 2016-8-10 15:29:37 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. (defun vxs (e / i v lst)
  4.   (setq i 0)
  5.   (while
  6.     (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))
  7.      (setq lst (cons v lst))
  8.   )
  9.   (reverse lst))
  10. ;;;;;;;;;;;;;;;;;;;;;;;;
  11. (defun zxd (pts /  len pt )
  12. ;(setq pts (plinexy ent))
  13.   (setq len (length pts))
  14. (setq pt (mapcar
  15.   '(lambda(x)
  16.     (/ x len)
  17.   )
  18.   (apply
  19.     'mapcar
  20.     (cons '+ pts)
  21.   )
  22.   )
  23.       )
  24.   pt
  25.   )

  27. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  28. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  29. (defun insertgc ( e / e)
  30.   (cdr(assoc 10(entget e)))
  31.   )


  34. ;;;;;;;;;;;;;;;;;;
  35.   ;选择集与对象名表互转
  36. (defun cx-ss2en
  37.   (ss / enlst)
  38.   (cond
  39.     ((= (type ss) 'PICKSET)
  40.       (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
  41.     )
  42.     ((= (type ss) 'LIST)
  43.       (setq enlst (ssadd))
  44.       (last (mapcar '(lambda (x) (ssadd x enlst)) ss))
  45.     )
  46.     ((='ename(type ss))
  47.       (ssadd ss)
  48.     )
  49.   )
  50. )
  51.   ;;;;;;;;;;;;;;;;;;

  53. (defun plinexy( e / e)
  54.   (mapcar'cdr(vl-remove-if'(lambda(x)(/=(car x)10))(entget e)))
  55.   )



  59. (defun poinpl(p pt);;:点是否在指定点表内
  60.   (equal(abs(apply'+(mapcar'(lambda(x y)(rem(-(angle x p)(angle y p))pi))pt(cons(last pt)pt))))pi 1e-8))

  62. ;;;;;;;;;;;;;;;;;;
  63. (defun zjd (p pts / )
  64.        (cdr(assoc(apply'min(mapcar'car(setq l(mapcar'(lambda(x)(cons(distance x p)x))pts))))l))

  66.       )
  67. ;;;;
  68. (defun poinpla(p pt / PZX PZX1);;:点是否在指定点表内
  69.   
  70.   (SETQ PZX (abs(apply'+(mapcar'(lambda(x y)(rem(-(angle x p)(angle y p))pi))pt(cons(last pt)pt)))) )
  71. (IF (OR (= PZX PI) (= PZX 0) ) (SETQ PZX1 T) (SETQ PZX1 NIL))
  72.   PZX1
  73.   )
  74. ;;;;;;;
  75. (defun c:gczx (  / pzxaa ii no ssa ssb en ptb ptb1  )
  76. (setq ssa (ssget '((0 . "lwPOLYLINE") ))
  77.   ssb (ssget  "X"'((0 . "insert") (8 . "**"))))

  79.                      
  80.     (setq ii   0  no  0  pzxaa '()  )              

  82. (repeat (sslength ssa)
  83.   

  85.                        (setq en (ssname ssa ii)
  86.                             ptb (plinexy en)
  87.                                         )
  88. ;;;;;;;;;;;;;
  89.   (foreach  x (cx-ss2en ssb)
  90.          (setq ptb1 (insertgc x)
  91.                                        )
  92.     (if (= (poinpl ptb1 ptb) T     ) (progn   (setq pzxaa (append (LIST 10) (list(CAR (ZXD ptb))) (list(CADR (ZXD ptb))) (list(CADDR ptb1) )  )  ) (setq no  (1+ no) )
  93.   
  94.       (entmod (subst pzxaa  (assoc 10 (entget x))  (entget x)  ))
  95.               )
  96.       )
  97.        )
  98.      ;;;;;;;;;;;;;;;;;;
  99.   ;(setq xindian (list (*(+ (car(car pzxaa)) (car(cadr pzxaa)) ) 0.5)  (*(+ (cadr(car pzxaa)) (cadr(cadr pzxaa)) ) 0.5) (abs(- (caddr(car pzxaa)) (caddr(cadr pzxaa)) ) ) ))
  100. ;(gxl-cs:** xindian (caddr xindian) scale)
  101. ;(entmod  (append (subst (cons 38 (caddr xindian)) (assoc 38 (entget en)) (entget en)) (list(cons 62 3)))  )
  102.   (setq ii  (1+ ii) )
  103.   ;(setq pzxaa '())
  104.   ;(setq xindian nil)
  105.                   )


  108. ;;;;;;;;;;;;(assoc 62 (subst (cons 38 (caddr xindian)) (assoc 38 (entget en)) (entget en)))
  109. )


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

使用道具 举报

树櫴希德
发表于 2016-8-10 15:34:02 | 显示全部楼层
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. (defun vxs (e / i v lst)
  4.   (setq i 0)
  5.   (while
  6.     (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))
  7.      (setq lst (cons v lst))
  8.   )
  9.   (reverse lst))
  10. ;;;;;;;;;;;;;;;;;;;;;;;;
  11. (defun zxd (pts /  len pt )
  12. ;(setq pts (plinexy ent))
  13.   (setq len (length pts))
  14. (setq pt (mapcar
  15.   '(lambda(x)
  16.     (/ x len)
  17.   )
  18.   (apply
  19.     'mapcar
  20.     (cons '+ pts)
  21.   )
  22.   )
  23.       )
  24.   pt
  25.   )

  27. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  28. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  29. (defun insertgc ( e / e)
  30.   (cdr(assoc 10(entget e)))
  31.   )


  34. ;;;;;;;;;;;;;;;;;;
  35.   ;选择集与对象名表互转
  36. (defun cx-ss2en
  37.   (ss / enlst)
  38.   (cond
  39.     ((= (type ss) 'PICKSET)
  40.       (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
  41.     )
  42.     ((= (type ss) 'LIST)
  43.       (setq enlst (ssadd))
  44.       (last (mapcar '(lambda (x) (ssadd x enlst)) ss))
  45.     )
  46.     ((='ename(type ss))
  47.       (ssadd ss)
  48.     )
  49.   )
  50. )
  51.   ;;;;;;;;;;;;;;;;;;

  53. (defun plinexy( e / e)
  54.   (mapcar'cdr(vl-remove-if'(lambda(x)(/=(car x)10))(entget e)))
  55.   )



  59. (defun poinpl(p pt);;:点是否在指定点表内
  60.   (equal(abs(apply'+(mapcar'(lambda(x y)(rem(-(angle x p)(angle y p))pi))pt(cons(last pt)pt))))pi 1e-8))

  62. ;;;;;;;;;;;;;;;;;;
  63. (defun zjd (p pts / )
  64.        (cdr(assoc(apply'min(mapcar'car(setq l(mapcar'(lambda(x)(cons(distance x p)x))pts))))l))

  66.       )
  67. ;;;;
  68. (defun poinpla(p pt / PZX PZX1);;:点是否在指定点表内
  69.   
  70.   (SETQ PZX (abs(apply'+(mapcar'(lambda(x y)(rem(-(angle x p)(angle y p))pi))pt(cons(last pt)pt)))) )
  71. (IF (OR (= PZX PI) (= PZX 0) ) (SETQ PZX1 T) (SETQ PZX1 NIL))
  72.   PZX1
  73.   )
  74. ;;;;;;;
  75. (defun c:gczx (  / pzxaa ii no ssa ssb en ptb ptb1  )
  76. (setq ssa (ssget '((0 . "lwPOLYLINE") ))
  77.   ssb (ssget  "X"'((0 . "insert") (8 . "**"))))

  79.                      
  80.     (setq ii   0  no  0  pzxaa '()  )              

  82. (repeat (sslength ssa)
  83.   

  85.                        (setq en (ssname ssa ii)
  86.                             ptb (plinexy en)
  87.                                         )
  88. ;;;;;;;;;;;;;
  89.   (foreach  x (cx-ss2en ssb)
  90.          (setq ptb1 (insertgc x)
  91.                                        )
  92.     (if (= (poinpl ptb1 ptb) T     ) (progn   (setq pzxaa (append (LIST 10) (list(CAR (ZXD ptb))) (list(CADR (ZXD ptb))) (list(CADDR ptb1) )  )  ) (setq no  (1+ no) )
  93.   
  94.       (entmod (subst pzxaa  (assoc 10 (entget x))  (entget x)  ))
  95.               )
  96.       )
  97.        )
  98.      ;;;;;;;;;;;;;;;;;;
  99.   ;(setq xindian (list (*(+ (car(car pzxaa)) (car(cadr pzxaa)) ) 0.5)  (*(+ (cadr(car pzxaa)) (cadr(cadr pzxaa)) ) 0.5) (abs(- (caddr(car pzxaa)) (caddr(cadr pzxaa)) ) ) ))
  100. ;(gxl-cs:** xindian (caddr xindian) scale)
  101. ;(entmod  (append (subst (cons 38 (caddr xindian)) (assoc 38 (entget en)) (entget en)) (list(cons 62 3)))  )
  102.   (setq ii  (1+ ii) )
  103.   ;(setq pzxaa '())
  104.   ;(setq xindian nil)
  105.                   )


  108. ;;;;;;;;;;;;(assoc 62 (subst (cons 38 (caddr xindian)) (assoc 38 (entget en)) (entget en)))
  109. )


点评

yangchao2005090
请问这个可以配个使用视频么  详情 回复 发表于 2020-6-20 22:06
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yangchao2005090
发表于 2020-6-20 22:06:45 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
树櫴希德 发表于 2016-8-10 15:34

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

使用道具 举报

wysclc

已领礼包: 3个

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

使用道具 举报

liujian107
发表于 2020-7-19 20:16:32 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
多行文本是否可以啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

使用道具 举报

lispwei
发表于 2021-2-23 21:21:53 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

使用道具 举报

xvjiex

已领礼包: 1094个

财富等级: 财源广进
发表于 2021-2-24 07:03:38 | 显示全部楼层
文字自动居中，感谢分享！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

1234
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-11-15 03:29 , Processed in 0.398347 second(s), 52 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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