错误: 用于比较的参数类型不正确

Lisphk

行雲 发表于 2017-1-4 22:08

你在COND上面，进入分之前，你打印下 这两个值，贴上来，看看是什么？

只进入 11111111，说明 进入COND前， 第一个数一定比第二个大

(princ "\nyzzba ==")
(princ yzzba)
(princ "\nyzfzx==")
(princ yzfzx)
(cond
  ((> yzzba yzfzx)
    (setq kwmzb (polar yuanxi (* 0.75 pi) (+ (* 1.1 bjlscd) wbgd)))
    (princ "\n111111111111111111111111111111")
  )
  ((< yzzba yzfzx)
    (setq kwmzb (polar yuanxi (* 1.25 pi) (+ (* 1.1 bjlscd) wbgd)))
    (princ "\n22222222222222222222222")
  )
  (t
    (princ "\n33333333333333333333")
  )
)

把上面代码替换你的，
屏幕显示的什么，你贴上来。

ll_j

在cond之前，加上(princ yzzba) 和(princ yzfzx)，看看这两个值是不是正确。
你这些变量可能是计算得到的，如果计算过程出错，自然就不是你要的比对了。

行雲

Lisphk 发表于 2017-1-4 22:33

=====================================================================================等于
命令: *取消*
命令: *取消*
命令: ccbl ucs
当前 UCS 名称: *世界*
输入选项
[新建(N)/移动(M)/正交(G)/上一个(P)/恢复(R)/保存(S)/删除(D)/应用(A)/?/世界(W)]
<世界>: w
命令: layer
当前图层:  DIM
输入选项
[?/生成(M)/设置(S)/新建(N)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/打印(P)/冻结(
F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)]: s
输入要置为当前的图层名或 <选择对象>: dim 输入选项
[?/生成(M)/设置(S)/新建(N)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/打印(P)/冻结(
F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)]:
命令:
字高:<2.5>
左下角:
右上角:text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: NO:
命令: text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: X 坐标
命令: text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: Y 坐标
命令: pline
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令: line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令: line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令:
yzzba ==10
yzfzx==-10
111111111111111111111111111111text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: mc
指定文字的中间点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: A1
命令: text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: A1:
命令: text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: 10
命令: text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: 10
命令: pline
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令: line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令: line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令: text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: A:  1-%%C3.1钻穿。
命令: line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令:


=====================================================================================小于
命令: *取消*
命令: *取消*
命令: ccbl ucs
当前 UCS 名称: *世界*
输入选项
[新建(N)/移动(M)/正交(G)/上一个(P)/恢复(R)/保存(S)/删除(D)/应用(A)/?/世界(W)]
<世界>: w
命令: layer
当前图层:  DIM
输入选项
[?/生成(M)/设置(S)/新建(N)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/打印(P)/冻结(
F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)]: s
输入要置为当前的图层名或 <选择对象>: dim 输入选项
[?/生成(M)/设置(S)/新建(N)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/打印(P)/冻结(
F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)]:
命令:
字高:<2.5>
左下角:
右上角:text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: NO:
命令: text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: X 坐标
命令: text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: Y 坐标
命令: pline
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令: line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令: line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令:
yzzba ==4.09
yzfzx==-8.83
111111111111111111111111111111text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: mc
指定文字的中间点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: A1
命令: text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: A1:
命令: text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: 2.58
命令: text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: 4.09
命令: pline
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令: line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令: line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令: text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: A:  1-%%C3.1钻穿。
命令: line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令:


=====================================================================================大于
命令: ccbl ucs
当前 UCS 名称: *世界*
输入选项
[新建(N)/移动(M)/正交(G)/上一个(P)/恢复(R)/保存(S)/删除(D)/应用(A)/?/世界(W)]
<世界>: w
命令: layer
当前图层:  DIM
输入选项
[?/生成(M)/设置(S)/新建(N)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/打印(P)/冻结(
F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)]: s
输入要置为当前的图层名或 <选择对象>: dim 输入选项
[?/生成(M)/设置(S)/新建(N)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/打印(P)/冻结(
F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)]:
命令:
字高:<2.5>
左下角:
右上角:text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: NO:
命令: text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: X 坐标
命令: text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: Y 坐标
命令: pline
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令: line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令: line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令:
yzzba ==19.49
yzfzx==-11.42
111111111111111111111111111111text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: mc
指定文字的中间点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: A1
命令: text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: A1:
命令: text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: 16.75
命令: text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: 19.49
命令: pline
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令: line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令: line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令: text
当前文字样式:  Ashine_abc  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: ml
指定文字的左中点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: A:  1-%%C3.1钻穿。
命令: line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lt
输入新线型名 <ByLayer>:
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: lts
指定新线型比例 <1.0000>: 1
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]: c
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 8
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)]:
命令:

ll_j

行雲 发表于 2017-1-4 22:48

先设置一下cmdecho为0。
回头看来你的第一个帖子，似乎从选择集取实体出错了，你没先设置m初值，在repeat以后也没有(setq m (1+ m))累加，所以m是定值，也就是说，重复多少遍都是只取一个实体来操作，自然只有一种结果。
按这个思路检查一下。

Lisphk

行雲 发表于 2017-1-4 22:48

你自己看的了，红色的， 都是第一个大于第二个，如果没按你意愿的话，说明之前的算这两个值的地方有错误，你要检查的是别的地方，而不是分之这个地方。

代码不会作假

Lisphk

我看他们有正有负，如果你认为都应该正的，那么在算这个值的地方用abs函数把他们都变成正值。

行雲

谢二位，，循环中每次选择都要相对yzfzx做一次比较？做成另一个变量再进入cond对吗？

ll_j

凭空说很累，如果可以的话，你把完整代码贴一下，大家帮你检查分析一下。

newer

行雲 发表于 2017-1-4 23:12

进入分之的判断条件，是你算的，他们的含义你自己清楚，你要保证在分之之前，判断条件的值是按照你期望得到的。

newer

行雲 发表于 2017-1-4 23:12

所以说，问问题要准确的，客观的描述，别带你的想法，你的想法会把别人带“沟”里面去。你这个帖子的问题，根本就不是分之那地方的问题，出在其他地方。

你现在需要多做的是看别人的代码，你把他们理解了。

行雲

谢谢楼上各位，小的惭愧，各位见谅，，程序已搞定，我直接将 (< yzzba yzfzx)改为 (< yzzba 200)，程序完美分支，再次感谢楼上各位