如何實現一個200*200等差實體點陣

winwei

hi,Lockmyeye,不知你有沒試一下我貼的程式,他是由大點(實心圓)依所指定間距在x,Y軸方向遞減涂布;不知你有沒辦法在此基礎上定義同一函數內;要求先從小到大,然後接著又重大到小涂布(圖形對稱).同時還有一個工具讓我對上面產生某一指定區域或任意區域不滿意點作修改(主要修改為重新調整其點大小與間距) ! 拜託高手幫忙,TKS!

lockmyeye

对于你帖的程序，请提供你所输入的参数，我现在随意输入一些参数得不到像你所要求那种效果。或者，提供一幅DWG样例。

winwei

請輸入:40(Y上個數) 5(Y座標)         50(個數) 5(X座標)         2.0(起始圓直徑) 2.02(X方向間距) 2.5(Y方向間距) 0.04(點遞減量大小公差)這樣你就會看到啦!

lockmyeye

对生成后的对象进行镜象操作不就可以吗？

winwei

Lockmyeye,對於先跑好程式,再在autocad中用手動mirror是可以的!


有沒辦法自動調用cad之mirror命令及specify opposite corner命令讓他自動幫忙鏡像? TKS!

mshbo_2006

菜鸟请教::圆半径怎么改啊???还有如果间距不是等差数的话有没有什么办法呢????

mshbo20060

上面的程序我稍做了修改，可是不论怎样就是结果不对

高手帮忙看下

(DEFUN c:test (/ col_base col_delta col_num i j point_base point_insert row_base row_delta row_num)
    ;;点数
    (INITGET 7)
    (SETQ row_num (GETINT "\n输入横向点个数:"))
    (INITGET 6)
    (IF (NOT (SETQ col_num (GETINT (STRCAT "\n输入纵向点个数 <" (ITOA row_num) ">:"))))
        (SETQ col_num row_num)
    )
    ;;基数
    (INITGET 1)
    (SETQ row_base (GETREAL "\n输入横向距离基数:"))
    (IF (NOT (SETQ col_base (GETREAL (STRCAT "\n输入纵向距离基数 <" (RTOS row_base 2) ">:"))))
        (SETQ col_base row_base)
    )
    ;;差值
    (INITGET 1)
    (SETQ row_delta (GETREAL "\n输入横向递增距离:"))
    (IF (NOT (SETQ col_delta (GETREAL (STRCAT "\n输入纵向递增距离 <" (RTOS row_delta 2) ">:"))))
        (SETQ col_delta row_delta)
    )
    ;;插入点
    (INITGET 1)
    (SETQ point_base (GETPOINT "\n选取插入点:"))
    ;;插入
    (SETQ i 0)
    (WHILE (< i row_num)
        (SETQ point_insert (POLAR point_base (* PI 0.5) (+ (* i col_base) (* i (- i 1) col_delta 0.5)))
              i            (1+ i)
              j            1
        )
        (WHILE (< j col_num)
            (COMMAND "circle" (POLAR point_insert 0 (/ 348.5 (- 850.4 (* 0.4 j)))) "0.4") ;使用相应的插入函数代替                 （修改的部分）
            (SETQ j (1+ j))
        )
    )
    (COMMAND "zoom"
             "w"
             point_base
             (POLAR point_insert 0 (+ (* j row_base) (* j (- j 1) row_delta 0.5)))
    )
    (PRINC)
)