CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 4625|回复: 5

[开发] 一个非常菜的lsp菜鸟希望得到帮助,诚心感谢

[复制链接]
发表于 2012-12-2 03:10 | 显示全部楼层 |阅读模式
有一个lsp自己写的,因为是刚刚入门所以基本上都是错误的,希望有人能帮我纠正
' ~3 R* Z& m$ u' f8 W, ]0 T/ N' t( Z( b6 b
(defun C:jx(/ ss len p1 p2 o1 o2 o3 o4)
5 C; T2 F/ H, _- Y$ j    (setq ss (ssget))      ;得到一批文字 % V0 }9 b  o  @/ ^( I0 _- {5 @% M2 P$ \
        (setq len (sslength ss))     ;得到一共选择文字的数目
! w+ G* q! ]* u2 }4 ?7 W# @! c        (setq a (entget ss) ;将ss的文字变成数组
. C5 i% X4 M9 K) y/ l4 N+ H  m* f         (setq o1 (+ (cdr (assoc 10 a))) ;将每个文字的x坐标赋值给o1
" w1 R/ m* v. Y: [" T- a          (setq o2 (* (o1 (car len)) 1.0));得到每个文字的x坐标的平均值赋值给o2* Z+ {+ z- `* W! k9 R7 z
         (setq o3 (+ (cdr (assoc 20 a)));将每个文字的y坐标赋值给o3
. g) P4 k5 T6 [+ D& \          (setq o4 (* (o3 (car len)) 1.0));得到每个文字的y坐标的平均值赋值给o4: y5 {+ Y' S$ G/ W" |* @. `  Q/ Q+ m

  ~2 c. l1 a9 H2 T4 ?+ X- Lif(progn
2 I: I8 z/ [+ J! z# {3 t# v                   (cond ((=o1 (cdr (assoc 10 ss))  (setq p1 o3)(setq p2 (o2+1)));如果每个文字x坐标的平均值与每个文字相同 那么就得到y值 p1 和 p2
4 g, c7 k3 x9 }0 a3 s(cond ((=o4 (cdr (assoc 20 ss))  (setq p1 (o1+1))(setq p2 o4)))));如果每个文字y坐标的平均值与每个文字相同 那么就得到x值 p1 和 p2 ) z7 t! j. z/ @% T7 j3 ]/ u
(command "._mirror" ss "" p1 p2 "y")根据文字组中线镜像,并删除原有文字组
/ b# B# \# T1 D& x6 c5 U    )
" r% r) H  r+ N  )) y9 S" W, h! O% L2 {- V
  (princ)" s; X5 T) X+ F$ Y& S1 K6 G+ z1 k
)9 d  M# Q8 ^' i; F  ~
我知道里面很多都不对
: ?, r5 G7 c' n4 g0 A% p, P2 [8 e希望有人能帮我一下,先谢谢大家了
* N$ U* [% p/ k. Q目标是变成下图这样
( H# E  |& G0 L* n0 e! j, c, n选择其中一组数,变成右边的那组
  J; E$ z% m: }2 K, J7 ^

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
 楼主| 发表于 2012-12-3 14:37 | 显示全部楼层
自己修改了一下$ B" ]/ ~& y- K$ S! {
defun C:jx(/ ss len a o1 o2 o3 o4 p1 p2);定义参数
  c6 Z1 h6 G2 @(setq ss (ssget));选取文本" j# R8 u# ~# M6 Y
(setq ss (ssadd));选取文本
7 m: Q9 |3 _; v(setq len (sslength ss));读取文本长度% ~. b) }4 @7 S3 z
(setq a (entget ss));将文本变成一个合集
4 `0 P- Q* \% M3 ?& w1 w(setq o1 (+ (cadr (assoc 10 a))));得到文本插入点x坐标的和* h, s" Q$ n3 \/ T# N& Y
(setq o2 (/ (o1 len)));求的x坐标的平均值9 P9 z9 ~6 }& R7 i; O' z, w! \3 D
(setq o3 (+ (cadr (assoc 20 a))));得到文本插入点y标的和; s( y; e& v7 D0 o' F& n! t
(setq o4 (/ (o3 len))))));求的y标的平均值6 _& k$ q6 @" L  Q4 F7 o/ Z+ b
if(=1 1)(progn
9 ]4 e; G9 Q  L3 k- U6 @1 S(cond ((=(assoc 10 ss) o2)  ((setq p1 polar(o1,o3)) (setq p2 polar(o1,(+(o3 1))))如果x坐标相同,则按照Y的平均值的那条线镜像
; ]+ x& E0 Q9 r" A(cond ((=(assoc 2 ss) o4)  ((setq p1 polar((+(o2 1),o3)) (setq p2 polar(o2,o3)))如果y标相同,则按照x平均值的那条线镜像8 S$ \; k! ?- R( L' o$ _8 X; B' B
(command "._mirror" ss "" p1 p2 "y")
8 O5 E4 C$ o5 r: O7 }; D" K* i" K  (princ)
 楼主| 发表于 2012-12-3 20:01 | 显示全部楼层
自己顶,来个人帮个忙啊
 楼主| 发表于 2012-12-3 22:06 | 显示全部楼层
自己顶,来个人帮个忙啊
发表于 2012-12-4 08:50 | 显示全部楼层
楼主是菜鸟,我是什么都不懂啊
发表于 2013-4-23 22:09 | 显示全部楼层
我是菜鸟,不能自己发帖,来楼主处借个地方。
4 @$ ]1 j6 P% t9 W  I  j求助:怎样在多段线上找到距离起点指定距离的点,用lsp实现,即:输入多段线及指定距离,返回所求点的坐标。! C& ?. e2 y  u2 b, b3 R- C, u
望各位帮个忙,谢谢!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

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

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-12-13 00:32

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

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