[求助]：这个文件怎么改可以实现只画单线

chowquan

～～～以下是个slp文件，可以读取txt里的坐标数据和关系数据生成实体，现在只想让其生成线框即可，请问如何修改。～～～

(defun c:jianmo()
  (setq nme1 (getstring"\n 输入杆件关系数据文件名f="))
  (setq nme2 (getstring"\n 输入坐标数据文件名f="))
  (setq tex1 (open nme1 "r1"))
(
  while (/= tex1 nil)
   (setq a1 (read-line tex1))
   (setq a1 (strcat "("a1")"))
   (setq a1 (read a1))
   (setq b1 (nth 0 a1))
   (setq b2 (nth 1 a1))
   (setq b3 (nth 2 a1))

   (setq tex2 (open nme2 "r2"))
   (setq d1 0)
      (
       while (/= b1 d1)
   (setq a2 (read-line tex2))
   (setq a2 (strcat "("a2")"))
   (setq a2 (read a2))
   (setq d1 (nth 0 a2))
   (setq d2 (nth 1 a2))
   (setq d3 (nth 2 a2))
   (setq d4 (nth 3 a2))
        )
  (setq p1(list d2 d3 d4))
   (close tex2)
   (setq tex2 (open nme2 "r2"))
   (setq d1 0)
      (
       while (/= b2 d1)
   (setq a2 (read-line tex2))
   (setq a2 (strcat "("a2")"))
   (setq a2 (read a2))
   (setq d1 (nth 0 a2))
   (setq d2 (nth 1 a2))
   (setq d3 (nth 2 a2))
   (setq d4 (nth 3 a2))
        )
   (setq p2(list d2 d3 d4))
   (close tex2)
   ;(command "line" p1 p2 ^c)
   (command "cylinder" p1 b3 "c" p2 ^c)
)
;(command "ucs" "")
(close tex1)

)


～～～本人因为工作需要第一次接触slp语言，只能勉强看懂后面有一行命令作用就是生成实体的，试着删之（如下），但是有时成功有时不成功，不知是哪个位置的问题～～～

(defun c:jianmo()
  (setq nme1 (getstring"\n 输入杆件关系数据文件名f="))
  (setq nme2 (getstring"\n 输入坐标数据文件名f="))
  (setq tex1 (open nme1 "r1"))
(
  while (/= tex1 nil)
   (setq a1 (read-line tex1))
   (setq a1 (strcat "("a1")"))
   (setq a1 (read a1))
   (setq b1 (nth 0 a1))
   (setq b2 (nth 1 a1))
   (setq b3 (nth 2 a1))

   (setq tex2 (open nme2 "r2"))
   (setq d1 0)
      (
       while (/= b1 d1)
   (setq a2 (read-line tex2))
   (setq a2 (strcat "("a2")"))
   (setq a2 (read a2))
   (setq d1 (nth 0 a2))
   (setq d2 (nth 1 a2))
   (setq d3 (nth 2 a2))
   (setq d4 (nth 3 a2))
        )
  (setq p1(list d2 d3 d4))
   (close tex2)
   (setq tex2 (open nme2 "r2"))
   (setq d1 0)
      (
       while (/= b2 d1)
   (setq a2 (read-line tex2))
   (setq a2 (strcat "("a2")"))
   (setq a2 (read a2))
   (setq d1 (nth 0 a2))
   (setq d2 (nth 1 a2))
   (setq d3 (nth 2 a2))
   (setq d4 (nth 3 a2))
        )
   (setq p2(list d2 d3 d4))
   (close tex2)
   ;(command "line" p1 p2 ^c)
)
;(command "ucs" "")
(close tex1)

)

carrot1983

(setq tex2 (open nme2 "r2"))
我只知道"r" 没看过"r2"
[php]
open 函数



语法

    (open filename mode)

功能及参数

    以mode中指定的模式打开filename文件。

范例

    假设以下的文件名称均不存在：

    (setq f (open "new.tst" "w"))          返回           <File #nnn>

    (setq f (open "nosuch.fil" "r"))       返回           nil

    (setq f (open "logfile" "a"))          返回           <File #nnn>

    filename 可以包含文件夹路径, 如 /test/func3。在 DOS的系统下, 盘符字母代码也可以包含在内, 而且可以使用反斜线来代替斜线(但是要记住在一个字符串中, 必须使用“\\” 得到一个反斜线)。

    (setq f (open "/x/new.tst" "w"))      返回            <File #nnn>

    (setq f (open "nosuch.fil" "r"))      返回            nil
[/php]  
问题就出在： (setq d1 0)和(/= b1 d1) 和(/= b2 d1)，
(setq p1 (list d2 d3 d4))和(setq p2 (list d2 d3 d4))
当nme1所代表的文本里b1不等于0，b2也不等于0的时候,只能画出一个点。即p1和p2是同一个点。如果当中b1和b2当中一个等于0或都等于0的时候。就没有p1和p2两点。都不知道你的程序有什么意义。

zml84

试一试这样行不行：
[HPH]
(defun c:jianmo        ()
  (setq nme1 (getstring "\n 输入杆件关系数据文件名f="))
  (setq nme2 (getstring "\n 输入坐标数据文件名f="))
  (setq tex1 (open nme1 "r1"))
  (
   while (/= tex1 nil)
    (setq a1 (read-line tex1))
    (setq a1 (strcat "(" a1 ")"))
    (setq a1 (read a1))
    (setq b1 (nth 0 a1))
    (setq b2 (nth 1 a1))
    (setq b3 (nth 2 a1))

    (setq tex2 (open nme2 "r2"))
    (setq d1 0)
    (
     while (/= b1 d1)
      (setq a2 (read-line tex2))
      (setq a2 (strcat "(" a2 ")"))
      (setq a2 (read a2))
      (setq d1 (nth 0 a2))
      (setq d2 (nth 1 a2))
      (setq d3 (nth 2 a2))
      (setq d4 (nth 3 a2))
    )
    (setq p1 (list d2 d3 d4))
    (close tex2)
    (setq tex2 (open nme2 "r2"))
    (setq d1 0)
    (
     while (/= b2 d1)
      (setq a2 (read-line tex2))
      (setq a2 (strcat "(" a2 ")"))
      (setq a2 (read a2))
      (setq d1 (nth 0 a2))
      (setq d2 (nth 1 a2))
      (setq d3 (nth 2 a2))
      (setq d4 (nth 3 a2))
    )
    (setq p2 (list d2 d3 d4))
    (close tex2)
    (command "line" p1 p2 ^c)
    ;;;(command "cylinder" p1 b3 "c" p2 ^c)
  )
  (command "ucs" "")
  (close tex1)

)
[/HPH]